<div dir="ltr">Seu código tá bem ruim de ler...<div>Recomendo que você utilize o GitHub para postar seus códigos. Além disso, ajudaria se você dissesse o que pretende com a função. Do jeito que está é bem difícil ajudar.</div><div><br></div><div>Mas voltando a sua pergunta. Fiz algumas alterações no código (só reorganizei). Veja se está funcionando...</div><div><br></div><div><br><div><br></div><div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px">conv<- function(n) {</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> u <- matrix(nrow=n+1,ncol=1)</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> for (i in 0:n) { </div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> if (i==0) {</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> f <- function(i) {pnorm(i,m,dp)}</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> p<- function(i) {f(i)}</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> } else {</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> f <- function(i) {pnorm(i*1/n,m,dp)}</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> p <- function(i) {f(i)-f(i-1)}<br></div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> }</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> I <- function (i) {-p(i)*log2(p(i))}</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> u[i,]<- I(i)}</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> y <-u[0:n,]</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"> y }</div></div></div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"><br></div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"><br></div><div style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px">Use o browser pra você debugar seu código. <a href="http://adv-r.had.co.nz/Exceptions-Debugging.html">No livro do Hadley</a> tem mais explicações sobre como debugar um código.</div><div dir="ltr" style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"><br></div><div style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px">abçs</div><div style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px">M</div><div style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px"><br></div><div style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px">ps.: Onde que os argumentos 'm' e 'dp' entram na função? Eles são valores globais? Não é a prática mais recomendada...</div><div style="color:rgb(0,0,0);font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12px">ps.2: a cada iteração do loop, as funções f e p são subscritas, de forma que ao final você terá uma f e uma p, dada por i igual a n. É isso mesmo que você quer?</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Nov 18, 2014 at 2:00 PM, Daniela Recchia <span dir="ltr"><<a href="mailto:daniela_recchia@yahoo.com.br" target="_blank">daniela_recchia@yahoo.com.br</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:12px"><div dir="ltr"><span>Boa tarde pessoal,</span></div><div dir="ltr"><span><br></span></div><div dir="ltr"><span>tenho certeza que meu problema é bem simples mas não estou conseguindo visualizar a solução, criei a função:</span></div><div dir="ltr"><span><br></span></div><div dir="ltr">conv<- function(n){u<-matrix(nrow=n+1,ncol=1)</div><div dir="ltr"> for (i in 0:n) { </div><div dir="ltr"> if(i==0) f<-function(i) {pnorm(i,m,dp)}</div><div dir="ltr"> else f<- function(i) {pnorm(i*1/n,m,dp)}</div><div dir="ltr"> if(i==0) p<- function(i) {f(i)}</div><div dir="ltr"> else p<- function(i) {f(i)-f(i-1)}</div><div dir="ltr"> I<- function (i) {-p(i)*log2(p(i))}</div><div dir="ltr"> u[i,]<- I(i)}</div><div dir="ltr"> y<-u[0:n,]; y}</div><div dir="ltr"></div><div dir="ltr"><br></div><div dir="ltr">Mas para o caso onde i==0 não está sendo feito corretamente, e preciso idendificar se não tenho problemas na condição <span style="font-size:11.8181819915771px">f(i)-f(i-1), o que ele retorna no lugar do i=0 é o valor do i=1.</span></div><div dir="ltr"><span style="font-size:11.8181819915771px"><br></span></div><div dir="ltr"><span style="font-size:11.8181819915771px">Alguém saberia me dar uma dica?</span></div><div dir="ltr"><span style="font-size:11.8181819915771px"><br></span></div><div dir="ltr"><span style="font-size:11.8181819915771px">Abraços,</span></div><div dir="ltr"><span style="font-size:11.8181819915771px"><br></span></div><div dir="ltr"><span style="font-size:11.8181819915771px">Daniela</span></div><span class="HOEnZb"><font color="#888888"><div></div><div> </div><div><div><span style="font-size:16px">-- <br><font>Daniela Rodrigues Recchia</font></span></div><div><br></div><div style="color:rgb(0,0,0);font-size:13px;font-family:arial,helvetica,clean,sans-serif;background-color:transparent;font-style:normal"><span style="font-size:16px"><font><br></font></span></div><div><span style="font-size:10px"></span></div><div><span style="font-size:10px"><span style="line-height:18px;font-family:'helvetica neue',arial,sans-serif;font-style:italic"><font>“The standard of success in life is absolutely the amount of joy you feel”</font></span><br></span><span style="font-size:13px"><span style="font-size:10px"><span style="line-height:18px;font-family:'helvetica neue',arial,sans-serif;font-style:italic"><font>Esther & Jerry Hick</font></span></span><br></span></div><div><span style="font-size:small"> </span></div></div></font></span></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a 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 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></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">Manoel Galdino<br><a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/galdinomcz/</a><br></div>
</div>