Olá Vinicius e Thales,
Eu testei o pacote neuralnet e realmente ele possui um
escope bem abrangente e é bem estruturado.
Para resolver o meu problema eu precisava extrair os pesos da rede
e as funções de erro e ativação. Também precisava definir o número
de nós das camadas ocultas e alterar o algoritmo de aprendizagem.
A função neturalnet fornece todas essas opções:
require("neuralnet")
data <- data.frame(a = rnorm(100, 10, 3), b = rnorm(100, 0,
1), y = runif(100))
aaaa <- neuralnet(y ~ a + b, data, hidden = 2, algorithm =
"rprop+", act.fct = "tanh")
aaaa$weights #extrair pesos
aaaa$err.fct #extrair função de erro
aaaa$act.fct #extrair função de ativação
Obrigado novamente pela atenção. Vocês ajudaram muito!
Abraços,
On 03/11/2014 12:03 PM, Vinicius Brito Rocha wrote:
eu tenho usado o neuralnet. Gosto do tipo de
parametrização e ainda é possível plotar a rede.
Boa sorte
abs
Vinicius
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
--
Lucas Venezian Povoa
Assistente de Informática II
UNESP - Câmpus Experimental de Ourinhos