<div dir="ltr">Sérgio, bom dia!<div><br></div><div>Teria um set de dados pra rodar o CMR? De antemão parece haver problema na execução da rnorm() cuja saída está sendo alocada em um objeto indexado que ainda não existe ('z'). A cada ciclo do for será gerada uma linha com 'npart' elementos e imagino que você queira acumular as saídas, mas essa não é a forma correta. Pode funcionar definindo z como uma lista e adicionando a saída em cada ciclo do for.</div>
<div><br></div><div>Trabalhando só no primeiro trecho pensei em algo assim...</div><div><div><font face="courier new, monospace"></font></div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">
<font face="courier new, monospace">### <BEGIN></font></div><div class="gmail_extra"><font face="courier new, monospace">### não testado!</font></div><div class="gmail_extra"><font face="courier new, monospace">prop <- function(x){</font></div>
<div class="gmail_extra"><font face="courier new, monospace">z <- list(NULL)          </font></div><div class="gmail_extra"><font face="courier new, monospace">for (i in 1:nrow(x)) {</font></div><div class="gmail_extra">
<font face="courier new, monospace">          z[i]=list(rnorm(x$npart[i], mean=x$idade[i], sd=x$sd[i]))}</font></div><div class="gmail_extra"><font face="courier new, monospace">return(z)</font></div><div class="gmail_extra">
<font face="courier new, monospace">}</font></div><div class="gmail_extra"><font face="courier new, monospace">### <END></font></div><div class="gmail_extra"><font face="courier new, monospace"><br></font></div><div class="gmail_extra">
<font face="courier new, monospace">Desse ponto seria só prosseguir com os cálculos utilizando cada 'linha' da lista.</font></div><div class="gmail_extra"><br></div><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br></div></div></div>