Pular para o conteúdo principal

Postagens

Mostrando postagens de fevereiro, 2012

Economic Growth (Notas de aula do Prof. Daron Acemoglu)

Dica do professor Giacomo, via Facebook. O link é do MIT , das aulas da disciplina de Economic Growth, ministrada pelo Prof. Daron Acemoglu.

Mais um (sempre quis escrever isso..rsrs)

Muito li posts com títulos como esse nos blogs dos professores que admiro (Erik, Laurini, Hilton, Shikida, etc ) e sempre quis que chegasse o dia que eu pudesse escrever isso, "Mais um". Como ano passado tive publicado meu primeiro paper em revista, tudo que vier a partir dele será "mais um".....heheheh. Recebi uma aceitação parcial de uma Revista (divulgarei assim que estiverem feitas as correções sugeridas pelo avaliador e com data de publicação prevista pela revista). O parecer foi favorável, com poucas e rápidas modificações, meus co-autores nesse trabalho adiantarão as correções, e eu farei a revisão e contribuirei no possível, dado que estou na fase final de minha dissertação. Tenho mais dois trabalhos na gaveta, realizados no decorrer de algumas disciplinas no mestrado, que quero ainda esse ano submeter, além da dissertação é claro. Assim que terminar a dissertação tenho o "dever" de atualizar várias informações e postagens no blog.

Um Bat_Gráfico no R....rsrsrs

Dica dos professores Erik e Hilton da UFPB. install.packages("ggplot2") instala <- function(pacote) { if(is.element(pacote, installed.packages()[,1])==FALSE) { install.packages(pacote,repos='http://www.vps.fmvz.usp.br/CRAN/') } } instala('ggplot2') require(ggplot2) f1 <- function(x) { y1 <- 3*sqrt(1-(x/7)^2) y2 <- -3*sqrt(1-(x/7)^2) y <- c(y1,y2) d <- data.frame(x=x,y=y) d <- d[d$y > -3*sqrt(33)/7,] return(d) } x1 <- c(seq(3, 7, 0.001), seq(-7, -3, 0.001)) d1 <- f1(x1) p1 <- ggplot(d1,aes(x,y)) + geom_point(color="red") x2 <- seq(-4,4, 0.001) y2 <- abs(x2/2)-(3*sqrt(33)-7)*x2^2/112-3 + sqrt(1-(abs(abs(x2)-2)-1)^2) p2 <- p1 + geom_point(aes(x=x2,y=y2), color="yellow") x3 <- c(seq(0.75,1,0.001), seq(-1,-0.75,0.001)) y3 <- 9-8*abs(x3) p3 <- p2+geom_point(aes(x=x3,y=y3), color="green") x4 <- c(seq(0.5,0.75,0.001), seq(-0.75,-0.5,0.001)) y4 <- 3*abs(x4)+0.75 p4 <- p3+geom_poin