Jovem Economista

Buenas, Vamos as novidades, doutorado, ficarei pela UFRGS, minha dúvida entre ir pra FGV-SP e ficar na UFRGS foi resolvida pelo pessoal de SP (não fui aceito lá). Mas estou contente, gosto muito da UFRGS e posso ter um certo ganho de escala fazendo o doc por aqui. Aproveito para agradecer aos responsáveis pela seleção que depositaram confiança em mim e me deram essa oportunidade, espero poder dar retorno em forma de trabalho. Sobre a dissertação, essa semana estava trabalhando em um bootstrap sugerido por meu orientador e co-orientador, creio ter conseguido concluir a programação corretamente. Estou no aguardo da revisão deles com relação ao código que montei, em janeiro, para "colocar os computadores para rodar". De resto está tudo acertado, basta agora terminar de rodar outras programações já revisadas, pegar os resultados e escrever a parte que falta. Também pretendo, se possível, melhorar um pouco o que escrevi até agora (espero dar tempo pra tudo).

Achei bem legal, segue abaixo todo código, basta copiar e colar no seu R Feliza natal :) #instando "rgl" package: install.packages("rgl") #lendo library library(rgl) ##Dados r=1.0 h=5.0 m=h/r x=seq(0:99) y=x X=x*cos(y) Y=x*sin(y) Z=-1*(m*x) Z1=Z+rnorm(length(Z),Z,5) sub<-matrix(subset(c(X,Y,Z),Z==max(Z)),ncol=3) trunk<-matrix(c(0.54,0.84,-200,0.54,0.84,-650),byrow=TRUE,ncol=3) sno<-c(0,rep(15,9)) ##Plot card open3d(FOV=1) par3d(windowRect=c(100,100,600,600)) bg3d("aquamarine2") plot3d(X,Y,Z,col="darkgreen",type="l",box=FALSE,axes=FALSE,lwd=10,zlim=c(min(Z),0),xlab="",ylab="",zlab="",top=TRUE,border=TRUE) plot3d(X,Y,Z,col=c("yellow","red"),add=TRUE,type="s",radius=3) points3d(sub,col="orange",size=10) lines3d(trunk,col="brown",lwd=20) text3d(matrix(c(0.54,-100,300),ncol=3),text="Happy Holidays",font=5,cex=1.9,color="darkred",adj=c