[R-br] função, if dentro fo loop

[Daniela Recchia]

Boa tarde pessoal,
tenho certeza que meu problema é bem simples mas não estou conseguindo visualizar a solução, criei a função:
conv<- function(n){u<-matrix(nrow=n+1,ncol=1)                   for (i in 0:n) {                      if(i==0) f<-function(i) {pnorm(i,m,dp)}                     else     f<- function(i) {pnorm(i*1/n,m,dp)}                     if(i==0) p<- function(i) {f(i)}                     else     p<- function(i) {f(i)-f(i-1)}                     I<- function (i) {-p(i)*log2(p(i))}                     u[i,]<- I(i)}                   y<-u[0:n,]; y}
Mas para o caso onde i==0 não está sendo feito corretamente, e preciso idendificar se não tenho problemas na condição f(i)-f(i-1), o que ele retorna no lugar do i=0 é o valor do i=1.
Alguém saberia me dar uma dica?
Abraços,
Daniela -- 
Daniela Rodrigues Recchia

“The standard of success in life is absolutely the amount of joy you feel”
Esther & Jerry Hick
 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20141118/01afb123/attachment.html>