[R-es] Red Neuronal complicada categorías

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 Marcuzzi
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160709/744ba897/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: x.csv
Type: text/csv
Size: 295 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160709/744ba897/attachment.bin>