Jovem Economista

Como dito no A Consciência de Três Liberais , blog que postou o vídeo inicialmente, "sensacional", segue aqui o link.

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

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.

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