<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <div class="moz-cite-prefix">Olá Vinicius e Thales,<br>
      <br>
      Eu testei o pacote <i>neuralnet</i> e realmente ele possui um
      escope bem abrangente e é bem estruturado.<br>
      <br>
      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 <i>neturalnet</i> fornece todas essas opções:<br>
      <br>
      <font face="Courier 10 Pitch">require("neuralnet")<br>
        data <- data.frame(a = rnorm(100, 10, 3), b = rnorm(100, 0,
        1), y = runif(100))<br>
        aaaa <- neuralnet(y ~ a + b, data, hidden = 2, algorithm =
        "rprop+", act.fct = "tanh")<br>
        aaaa$weights #extrair pesos<br>
        aaaa$err.fct #extrair função de erro<br>
        aaaa$act.fct #extrair função de ativação<br>
      </font><br>
      Obrigado novamente pela atenção. Vocês ajudaram muito!<br>
      <br>
      Abraços,<br>
      <br>
      On 03/11/2014 12:03 PM, Vinicius Brito Rocha wrote:<br>
    </div>
    <blockquote
cite="mid:CAJSzTedxPNiO+4Xd5fJzM0WwYcH8fBuz40N9Qfm=t_v7c1zCkA@mail.gmail.com"
      type="cite">
      <div dir="ltr">eu tenho usado o neuralnet. Gosto do tipo de
        parametrização e ainda é possível plotar a rede.
        <div><br>
        </div>
        <div>Boa sorte</div>
        <div><br>
        </div>
        <div>abs</div>
        <div><br>
        </div>
        <div>Vinicius</div>
      </div>
      <div class="gmail_extra">
        <br>
        <br>
        <div class="gmail_quote">Em 11 de março de 2014 11:54,
          Tropidurus Torquatus <span dir="ltr"><<a
              moz-do-not-send="true" href="mailto:t.torquatus@gmail.com"
              target="_blank">t.torquatus@gmail.com</a>></span>
          escreveu:<br>
          <blockquote class="gmail_quote" style="margin:0 0 0
            .8ex;border-left:1px #ccc solid;padding-left:1ex">
            Lucas,<br>
            <br>
            Dê uma olhada nos pacotes:<br>
            <br>
            Rweka, monmlp e caret<br>
            <br>
            Um deles pode ter o que você precisa.<br>
            <br>
            Abraços<br>
            <br>
            Thales<br>
            <br>
            Em 11/03/2014, à(s) 15:07, Lucas Venezian Povoa <<a
              moz-do-not-send="true"
              href="mailto:lucas@ourinhos.unesp.br">lucas@ourinhos.unesp.br</a>>
            escreveu:<br>
            <div class="HOEnZb">
              <div class="h5"><br>
                > Olá comunidade R,<br>
                ><br>
                > Eu gostaria de saber se existe algum pacote no R
                para gerar análises de estimativa com Redes Neurais Muti
                Layer Perceptron (MLP) para múltiplas variáveis
                independentes. O que procuro é algo parecido com o
                código abaixo:<br>
                ><br>
                > > data <- data.frame(a = rnorm(100, 10, 3), b
                = rnorm(100, 0, 1), y = runif(100))<br>
                > ><br>
                > > lm(y ~ a + b, data)<br>
                > ><br>
                > > mlp(y ~ a + b, data, hiddenl = 1)<br>
                > ><br>
                ><br>
                > Obrigado pela ajuda.<br>
                ><br>
                > Lucas Venezian Povoa<br>
                > _______________________________________________<br>
                > R-br mailing list<br>
                > <a moz-do-not-send="true"
                  href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
                > <a moz-do-not-send="true"
                  href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
                  target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
                > Leia o guia de postagem (<a moz-do-not-send="true"
                  href="http://www.leg.ufpr.br/r-br-guia"
                  target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
                e forneça código mínimo reproduzível.<br>
                <br>
                _______________________________________________<br>
                R-br mailing list<br>
                <a moz-do-not-send="true"
                  href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
                <a moz-do-not-send="true"
                  href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
                  target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
                Leia o guia de postagem (<a moz-do-not-send="true"
                  href="http://www.leg.ufpr.br/r-br-guia"
                  target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
                e forneça código mínimo reproduzível.<br>
              </div>
            </div>
          </blockquote>
        </div>
        <br>
        <br clear="all">
        <div><br>
        </div>
        -- <br>
        <div dir="ltr"><i>Vinicius Brito Rocha.</i><br>
          <i style="font-weight:bold">Estatístico e Atuário </i><i
            style="font-weight:bold"><br>
            M.Sc. Engenharia de Produção/PO</i><br>
          <br>
          <br>
        </div>
      </div>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
    </blockquote>
    <br>
    <br>
    <div class="moz-signature">-- <br>
      <font size="2" face="arial">
        <b>Lucas Venezian Povoa</b><br>
        Assistente de Informática II<br>
        UNESP - Câmpus Experimental de Ourinhos
      </font></div>
  </body>
</html>