[R-es] Red Neuronal complicada categorías

[Javier Marcuzzi]

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>