lunes, 10 de enero de 2011

Construcción de redes neuronales en R. Paquete AMORE.

###### Ejemplo: Construcción de una RNA ########
#Queremos construir una red con: 2 neuronas de entrada (-1 y -2), una primera capa oculta con 4 neuronas (1-4), una segunda capa oculta con 2 neuronas (5 y 6) y finalmente, una capa de salida con 2 neuronas de salida (7 y 8); especificamos estos parámetros como n.neurons=c(2,4,2,2).
net.start <- newff(n.neurons=c(2,4,2,2),learning.rate.global=1e-2,momentum.global=0.5, error.criterium="LMS", Stao=NA,hidden.layer="tansig", output.layer="purelin", method="ADAPTgdwm")
 
#capas
net.start$layers
 
#neuronas
#id
net.start$neurons[[1]]$id
net.start$neurons[[5]]$id
net.start$neurons[[8]]$id
#type
net.start$neurons[[1]]$type
net.start$neurons[[5]]$type
net.start$neurons[[8]]$type
# activation.function
net.start$neurons[[1]]$activation.function
net.start$neurons[[5]]$activation.function
net.start$neurons[[8]]$activation.function
# output.links
net.start$neurons[[1]]$output.links
net.start$neurons[[5]]$output.links
net.start$neurons[[8]]$output.links
# output.aims
net.start$neurons[[1]]$output.aims
net.start$neurons[[3]]$output.aims
net.start$neurons[[8]]$output.aims
# input.links
net.start$neurons[[1]]$input.links
net.start$neurons[[5]]$input.links
net.start$neurons[[8]]$input.links
# weigths
net.start$neurons[[1]]$weights
net.start$neurons[[5]]$weights
net.start$neurons[[8]]$weights
# bias
net.start$neurons[[1]]$bias
net.start$neurons[[5]]$bias
net.start$neurons[[8]]$bias
# v0
net.start$neurons[[1]]$v0
net.start$neurons[[5]]$v0
net.start$neurons[[8]]$v0
# v1
net.start$neurons[[1]]$v1
net.start$neurons[[5]]$v1
net.start$neurons[[8]]$v1
# f0
net.start$neurons[[1]]$f0
net.start$neurons[[5]]$f0
net.start$neurons[[8]]$f0
# f1
net.start$neurons[[1]]$f1
net.start$neurons[[5]]$f1
net.start$neurons[[8]]$f1
# method
net.start$neurons[[1]]$method
net.start$neurons[[5]]$method
net.start$neurons[[8]]$method
# method.dep.variables:
net.start$neurons[[1]]$method.dep.variables
net.start$neurons[[5]]$method.dep.variables
net.start$neurons[[8]]$method.dep.variables
#deltaE
net.start$deltaE

Created by Pretty R at inside-R.org