Skip to content

[R-es] predict multinomial model con nnet

3 messages · Carlos Ortega, Patricio Fuenmayor Viteri

#
Hola todos
Cuando realizo las predicciones del modelo multinomial con el paquete nnet,
estas cambian cada vez que lo ejecuto ... saben por qué pasa esto ??

Gracias por la ayuda.
#
Por la semilla.

Cada vez que inicias la red, los pesos comienzan con unos valores
aleatorios.
Si fijas la semilla, de ejecución en ejecución no debieras de ver variación.

Saludos,
Carlos Ortega
www.qualityexcellence.es

El jue., 18 jul. 2019 a las 14:58, patricio fuenmayor (<
patricio.fuenmayor en gmail.com>) escribió:

  
    
#
Gracias Carlos por responder.
Te comento que si tengo fija la semilla.
Entendería yo que eso variaría en la estimación, pero en la predicción
debería tomar los resultados del modelo y aplicar los coeficientes. Lo
extraño es que si ejecuto varias veces solo las predicciones ... estas
tienen variaciones.

p1 <- data.table(predict(multinom.fit,newdata=train,"class"),1)
p2 <- data.table(predict(multinom.fit,newdata=train,"class"),2)
p3 <- data.table(predict(multinom.fit,newdata=train,"class"),3)
p4 <- data.table(predict(multinom.fit,newdata=train,"class"),4)
p5 <- data.table(predict(multinom.fit,newdata=train,"class"),5)
p6 <- data.table(predict(multinom.fit,newdata=train,"class"),6)
p7 <- data.table(predict(multinom.fit,newdata=train,"class"),7)

p <- rbindlist(list(p1,p2,p3,p4,p5,p6,p7))
dcast(p,V1~V2)
Using 'V2' as value column. Use 'value.var' to override
Aggregate function missing, defaulting to 'length'
      V1   1   2   3   4   5   6   7
1:  ALTO 773 785 772 785 786 783 772
2:  BAJO 551 533 537 539 532 555 551
3: MEDIO 512 518 527 512 518 498 513
Es extraño, voy a leer un poco mas como funciona la función predict, para
entender que pasa
Gracias por la ayuda.






El jue., 18 jul. 2019 a las 8:09, Carlos Ortega (<cof en qualityexcellence.es>)
escribió: