Parcial 03 Simulacion Terminado Punto 1
Parcial 03 Simulacion Terminado Punto 1
Parcial 03 Simulacion Terminado Punto 1
NOTA: Todo debe estar bien justificado. Se anula el punto si el punto no está correctamente
justificado, así tenga la respuesta correcta.
1. Se quiere estimar el metro cuadrado esperado de inmuebles, pero solo se cuenta una muestra
tamaño tres de metros cuadrados 80, 94 y 87. Use Estadistica Bayesiana y Metrópolis Hasting
para estimar el metro cuadrado esperado dada la información de la muestra tamaño tres. Como
sugerencia para la muestra asuma modelo exponencial negativo y para el metro cuadrado asuma
un modelo uniforme continúo teniendo en cuenta que el valor minimo que puede tomar el metro
cuadrado es 75 y el valor máximo 105. La estimación debe ir acompañada junto con su
respectivo cálculo de la variabilidad, confianza y error.
SOLUCION
Pasos:
2. Establecer un valor inicial θ0, para ellos tenemos que relacionar y calcular los modelos de la
muestra y total del metro cuadrado. En nuestro caso el modelo que se va a generar es un
modelo exponencial negativo.
K= 10% de t K=0.1t
Para este caso usaremos 50000 interacciones entonces como K es igual al 10% de las
interacciones se tomarán las interacciones desde 5000 hasta 50000 es decir 45000.
R: Será una función uniforme entre 75 y 105 con un número aleatorio a la vez donde se
replicará todo lo anterior n veces, en este caso 50000 veces.
Y: Será una función uniforme entre 75 y 105 con un número aleatorio a la vez.
IF: Se condiciona si los valores de teta (t), teta de la siguiente iteración (t+1) y de la
uniforme es menor a la función , si esto se cumple entonces el valor es, Ɵ (t+1) =
Ɵ (*) en otro caso es igual a Ɵ (t+1) = Ɵ (t).
Rdef: Son los valores que serán tenidos en cuenta después del 10% total es decir desde
5000 simulaciones hasta 50000.
Código Implementado en R
Graficas de R y Rdef
2. Asumiendo que, Y es uniforme continuo con parámetro mínimo 1 y con parámetro máximo 5X
y X es Poisson con media 6, usar la técnica MCMC Gibbs Sampler, estimar el valor esperado
de Y, el valor esperado de 6X+3Y, la correlación de X e Y y la probabilidad conjunta de que
X>4 e Y >16. Incluir solo confianza y error en cada estimación.
>cor(X,T)
Nsim=100000
n=15
a=3
b=7
X=Y=array(0,dim=c(Nsim,1))
Y[1]=runif(1,2,3)
X[1]=runif(1,1,Y[1])
for (i in 2:Nsim){
Y[i]=runif(1,2,3)
X[i]=runif(1,1,Y[i])
}
H=cbind(X,Y)