“Proyecto Demanda”

Metodologia

Se planteo una encuesta , la cual establecia la situacion de una celebracion

• “Piensa en la siguiente situación, estas de aniversario con tu pareja así que se lo quieres celebrar de la manera más linda posible y preciso es principio de mes y es quincena, su comida favorita son las hamburguesas de McDonald’s, dada la situación usted cuantas hamburguesas comprarías si tuvieran los siguientes precios. (Estas hamburguesas son bajas en calorías y altas en proteína).”

El precio se hallaba en un inicio en $8,000COP e iba aumentando en $3,000 COP hasta llegar a $35,000COP , en total 10 cambios de precio.

La encuesta fue aplicada por medios de la herramienta de Google Forms, y se difundio atraves de diferentes grupos de WhatsApp en los que se encuentran estudiantes de economia.Se obtuvieron 22 respuestas.

Limpieza datos

library(readxl)
DE =read_excel("Respuestas.xlsx")

Se le cambio el nombre a las variables para manejar un orden.

#cambiar nombre de las variables
colnames(DE)=c("Fecha", "Sexo", "Edad", "8000", "11000", "14000", "17000", "20000", "23000", "26000", "29000", "32000", "35000")

attach(DE)

Y se escojen las variables que nesecitaremos

library(tidyr)
DE_o = gather(DE, "Precio", "Cantidad", c(4:13))
DEO =  DE_o[, c(4,5)]
attach(DEO)
summary(DEO)

##     Precio             Cantidad    
##  Length:220         Min.   :0.000  
##  Class :character   1st Qu.:1.000  
##  Mode  :character   Median :2.000  
##                     Mean   :2.782  
##                     3rd Qu.:4.000  
##                     Max.   :8.000

#definir las variables entre X y Y
#encontrar la variable a definir con el $
Y=DEO$Precio
X=DEO$Cantidad

class(Precio)

## [1] "character"

class(Cantidad)

## [1] "numeric"

Y= as.numeric(as.character(DEO$Precio))
class(Y)

## [1] "numeric"

Procesamiento de Datos

Ya con los datos filtrados y organizados se podra realizar la estimacion de los parametros y el modelo lineal

Estimacion de Parametros

B1

#Hallar b1
#numerador
n=(nrow(DEO)*sum(X*Y))-(sum(X)*sum(Y))
#Denominador
d=(nrow(DEO)*sum(X^2))- sum(X)^2
###Toda completa
B1= n/d
B1

## [1] -2632.901

De esta manera hallamos que B1 tiene el valor de -2632.901

B0

Yn=mean(Y)
Xn=mean(X)
B0=Yn-(B1*Xn)
B0

## [1] 28824.25

De esta manera , el valor de B0 es de 28824.25

Modelo lineal

lm(Precio~Cantidad, data=DEO)

## 
## Call:
## lm(formula = Precio ~ Cantidad, data = DEO)
## 
## Coefficients:
## (Intercept)     Cantidad  
##       28824        -2633

Conclusiones

La funcion de demanda quedaria de la siguiente manera D=28824.25-2632.901Q

• Punto de saturacion es decir cuando la hamburguesa se halla gratis corresponde a $28,824.25COP

• 𝜷1 es de -2632.901, lo que significa una pendeiente negativa correspondiente de un bien normal , lo unico a resaltar de eso es la inclinacion de la misma.

• Debido a que la planteacion del problema fue “al revez”, l ecuacion responde a la cantidad pedida mas no al cambia del precio.

 D1=28824.25-2632.901*1
 D1

## [1] 26191.35

Es decir si desea comer una hambuerguesa el precio que espera pagar por esa es de $26,200COP.

D2=28824.25-2632.901*2
D2

## [1] 23558.45

Es decir si desea comer 2 hambuerguesas el precio que espera pagar por esas dos es $23,600COP.

D3=28824.25-2632.901*3
D3

## [1] 20925.55

Es decir si desea comer 3 hambuerguesas el precio que espera pagar por esas tres es $20,900COP.