Uncategorized

Momento R do Dia

Baseado nesta dica, resolvi experimentar uma Cobb-Douglas simples.

u <- function(x, y) (x^0.5)*(y^0.5)

x <- seq(.1, 40, by=.1)
y <- seq(.1, 40, by=.1)
a <- c(1,5,10,15, 20, 30)

persp(x, y, outer(x, y, u), ticktype=”detailed”)
contour(x, y, outer(x, y, u), levels=a)

Resultado? Olha que bonitinhas.

curvaindife

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s