Compruebe el ajuste de la distribución teórica a la distribución simulada, puede utilizar para este fin la función runif comparando el resultado del simulador de R contra el siguiente código set.seed(1) X=c(1,2,3) L=c(0.5,0.2,0.3) muestras <- sample(X, 700,replace = TRUE,prob = L ) muestras , comparar las tablas de frecuencia calculada y simulada, en cualquiera de los dos casos deberá realizar prueba de bondad de ajuste.
set.seed(1) X=c(1,2,3) L=c(0.5,0.2,0.3) muestras <- sample(X, 700,replace = TRUE,prob = L ) muestras #CALCULADO X=c(1,2,3) L=c(0.5,0.2,0.3) muestras <- sample(X, 700,replace = TRUE,prob = L ) muestras tabla<-table(muestras) tabla tabla/700 #SIMULADO set.seed(1) X=c(1,2,3) L=c(0.5,0.2,0.3) muestras <- sample(X, 700,replace = TRUE,prob = L ) muestras tabla<-table(muestras) tabla tabla/700 # PRUEBA DE BONDAD DE AJUSTE # H0 =