Tras el festival de música electrónica de Elche, se ha enviado una
encuesta a todos los asistentes que compraron la entrada de forma
telemática para preguntarles sobre su experiencia. Una de las preguntas
de la encuesta pregunta a cerca su opinión sobre la entrada que han
comprado, concretamente si repetirían esa entrada en el futuro. De todos
aquellos que han entrado con entrada general la organización ha obtenido
de beneficio 50€, mientras que los del VIP ha obtenido 70€.
Preguntas:
1) Si el festival organizara 4 eventos en un año,y los encuestados
compran la entrada; ¿Qué beneficio esperaría la organización a final de
año por cada participante?
estados=c("Entrada general","Entrada Vip")
# matriz de transición idioma1
p1=matrix(c(0.51,0.49,0.9,0.1),byrow = TRUE,ncol=2,dimnames=list(estados,estados))
# proceso 1: idioma1
idioma1=new("markovchain",states=colnames(p1),byrow=TRUE,transitionMatrix=p1,name="idioma1")
as(idioma1,"data.frame")
t0
t1
prob
Entrada general
Entrada general
0.51
Entrada general
Entrada Vip
0.49
Entrada Vip
Entrada general
0.90
Entrada Vip
Entrada Vip
0.10
ptran.n=function(proceso,n){
nestados=length(states(proceso))
i=1
ptran=proceso[1:nestados]
pn=ptran
while(i<n){
pn=pn%*%ptran
i=i+1
}
return(pn)
}
mocupa.proceso <- function(proceso, n)
{
nestados <- dim(idioma1)
estados<- names(proceso)
P <- proceso[1:nestados]
mocupa=diag(nestados)
for (i in 1:n)
mocupa <- mocupa + ptran.n(proceso,i)
return(mocupa)
}
#Beneficios esperados por entrada tras 4 conciertos
ingresos=c(50,70)
c=matrix(round(ingresos,2), ncol=1)
n=3
mocupa1=mocupa.proceso(idioma1,n)
g=mocupa1 %*% c
g
## [,1]
## Entrada general 223.2466
## Entrada Vip 237.3022
Para aquél que comienza comprando entrada general, esperamos un
beneficio de 223.24€
Para aquél que comienza comprando entrada VIP, esperamos un
beneficio de 237.30€
2) Cuál será el beneficio esperado para el segundo concierto
sabiendo que asistieron al primero 2000 personas de las cuales 1750
compraron general y 250 VIP.
El beneficio total esperado para el segundo concierto será de
104650€ para las entradas generales y 13000€ para las VIP
3) Haz un análisis para preveer los beneficios en los 4 conciertos y
por cada tipo de entrada:
4) Extrae conclusiones una vez has realizado el ejercicio
entero:
Gracias al gráfico final podemos observar con total claridad como
las entradas VIP reportan mucho dinero al principio, pero la gente con
VIP obtienen la entrada general. Esto se podría deber a que la
diferencia de precio no se corresponda con la diferencia de
calidad/servicios que ofrece esta entrada superior.
Si fuéramos parte de la dirección de la organización, con estos
informes sabríamos que tenemos que mejorar el porcentaje de gente que
quiere repetir en el VIP para que no bajen los beneficios, para ello
sería necesaria una inversión en este servicio para mejorar los
beneficios totales.
Como vemos, la opción para mejorar los beneficios de la empresa
es o bien mejorar los porcentajes, o bien jugar con el precio de las
entradas.
