[R-es] Duda_Observed vs Predicted

[Lorena Tudela Marco]

Buenos días a todxs,

Estoy comparando la predicción de los valores (0, 1, 2, 3,.....hasta 13)
frente a los observados.
Con la idea de comparar el modelo Zero inflated y el Binomial negativo y
ver cual presenta mas distancia frente a las predicciones observadas.

Para ello introduzco los códigos en la consola:

#Modelo ZIM
pred<-round(colSums(predict(zeroinfl, type="prob") [,1:14]))
#Valores observados realmente
obs<-table(IB$nijt)[1:14]
#Tabla comparativa
rbind( pred, obs)

Y obtengo la siguiente tabla:

        0   1   2   3   4   5  6  7  8  9 10 11 12 13
pred 3600 589 349 224 151 105 75 55 42 32 25 20 16 13
obs  3529 743 300 203 135  81 76 44 33 37 30 12 14 13

La duda me surge al intentarlo con el Modelo Binomial negativo.¿Sabeis que
comando podría introducir para obtener los 13 valores predichos por el
modelo BN?

Muchas gracias por vuestra ayuda y buen día.

Lorena

	[[alternative HTML version deleted]]