Estimados
Adjunto un archivo de texto separado por comas, muy simple como ejemplo, luego
el siguiente código explicaría el problema. Si ejecutan el código se entenderá,
creo.
x <- read.csv("~/R/neuronal/x.csv", header=FALSE, sep=";")
V1Binario <- model.matrix(~ factor(x$V1) - 1)
# -1 no coloca como interceto, deja x$V1 sin nada, son los que no tienen nada
(nada, puerta, porton)
V1Binario
V2Binario <- model.matrix(~ factor(x$V2) - 1)
V3Binario <- model.matrix(~ factor(x$V3) - 1)
V4Binario <- model.matrix(~ factor(x$V4) - 1)
V5Binario <- model.matrix(~ factor(x$V5) - 1)
V6Binario <- model.matrix(~ factor(x$V6) - 1)
x <- cbind(x,V1Binario)
x <- cbind(x,V2Binario)
x <- cbind(x,V3Binario)
x <- cbind(x,V4Binario)
x <- cbind(x,V5Binario)
x <- cbind(x,V6Binario)
nn <- neuralnet(V6Binario~V1Binario+V2Binario+V3Binario+V4Binario+V5Binario, x,
hidden=2, rep=5)
#claro no funciona
#porque si miro los datos con x
x
# puedo ver que la cantidad de "columnas" se incrementa por cada factor pasado
a binario
# ¿Alguna idea?
Javier Rubén Marcuzzi
De: Javier Marcuzzipuerta;ventana;techo;comedor;pileta;casa grande
puerta;ventana;techo;comedor;;casa comun
puerta;ventana;techo;;;casa pequeña
;ventana;techo;;pileta;casa grande
;;;;pileta;casa grande
puerta;;techo;comedor;;casa comun
;;techo;;;casa pequeña
portón;ventana;techo;cocina;pileta;casa grande
_______________________________________________
R-help-es mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-help-es
