vars transformadas

var_transformadas.r

preco_rocha <- log(geo$preco)
area_rocha <- log(geo$area)
coef_ap_rocha <- (geo$coef_ap)^2
acl_decl_rocha <- (geo$acl_decl)^-1
frente_rocha <- (geo$frente)^3

m0 <- lm(preco_rocha ~ area_rocha)
m1 <- lm(preco_rocha ~ coef_ap_rocha)
m2 <- lm(preco_rocha ~ acl_decl_rocha)
m3 <- lm(preco_rocha ~ frente_rocha)

plot(preco_rocha ~ area_rocha, ylab = "Log(Preço)", xlab = "Log(Área)")
abline(m0)

plot(preco_rocha ~ coef_ap_rocha, ylab = "Log(Preço)", xlab = "(Coeficiente de Aproveitamento)^2")
abline(m1)

plot(preco_rocha ~ acl_decl_rocha, ylab = "Log(Preço)", xlab = "(Sentido predominante da topografia por lote)^-1")
abline(m2)

plot(preco_rocha ~ frente_rocha, ylab = "Log(Preço)", xlab = "(Frente do lote)^3")
abline(m3)