Probabilidad frecuentista Hipergeométrica R.

Programa Probabilidad frecuentista (todos exitos) en un muestreo aleatorio
simple sin reemplazo.

m=100000 #Número de muestras
RegistroBuenas=numeric(m)

for (i in 1:m)
{
fusible=sample(1:100,5)
RegistroBuenas[i]=sum(fusible<=90)
}

ProbabilidadTodasBuenas=mean(RegistroBuenas==5)# == genera una partición

ProbabilidadTodasBuenas

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s