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