Elasticity calculation function

Source: R/elasticidade.R

Based on a lm object, returns elasticity based in any parameter in the model.

elasticidade(object, variable, func, local, factor = 0.1)

Arguments

object

object of class "lm"
variable

regressor to calculate elasticity
func

transformation applied to dependent variable
local

point in which elasticity will be calculated
factor

factor applied to calculate elasticity

Examples

data <- st_drop_geometry(centro_2015)

#> Error in st_drop_geometry(centro_2015): could not find function "st_drop_geometry"
fit <- lm(log(valor) ~ ., data = data)

#> Error in terms.formula(formula, data = data): 'data' argument is of the wrong type
new <- data.frame(area_total = 205, quartos = 3, suites = 1,
             garagens = 2, dist_b_mar = 250, padrao = "medio")
(p <- predict(fit, newdata = new))

#> Error in predict(fit, newdata = new): object 'fit' not found
new1 <- data.frame(area_total = 1.1*205, quartos = 3, suites = 1,
             garagens = 2, dist_b_mar = 250, padrao = "medio")
(p1 <- predict(fit, newdata = new1))

#> Error in predict(fit, newdata = new1): object 'fit' not found
(exp(p1) - exp(p))/exp(p)

#> Error in eval(expr, envir, enclos): object 'p1' not found
elasticidade(fit, "area_total", func = "log",
             local = list(area_total = 205, quartos = 3, suites = 1,
             garagens = 2, dist_b_mar = 250, padrao = "medio"))

#> Error in elasticidade(fit, "area_total", func = "log", local = list(area_total = 205,     quartos = 3, suites = 1, garagens = 2, dist_b_mar = 250,     padrao = "medio")): object 'fit' not found
elasticidade(fit, "dist_b_mar", func = "log",
             local = list(area_total = 205, quartos = 3, suites = 1,
             garagens = 2, dist_b_mar = 250, padrao = "medio"))

#> Error in elasticidade(fit, "dist_b_mar", func = "log", local = list(area_total = 205,     quartos = 3, suites = 1, garagens = 2, dist_b_mar = 250,     padrao = "medio")): object 'fit' not found
elasticidade(fit, "padrao", func = "log",
             local = list(area_total = 205, quartos = 3, suites = 1,
             garagens = 2, dist_b_mar = 250, padrao = "medio"),
             factor = +1)

#> Error in elasticidade(fit, "padrao", func = "log", local = list(area_total = 205,     quartos = 3, suites = 1, garagens = 2, dist_b_mar = 250,     padrao = "medio"), factor = +1): object 'fit' not found
elasticidade(fit, "padrao", func = "log",
             local = list(area_total = 205, quartos = 3, suites = 1,
             garagens = 2, dist_b_mar = 250, padrao = "medio"),
             factor = -1)

#> Error in elasticidade(fit, "padrao", func = "log", local = list(area_total = 205,     quartos = 3, suites = 1, garagens = 2, dist_b_mar = 250,     padrao = "medio"), factor = -1): object 'fit' not found