<div dir="ltr"><div>Felipe, boa tarde!</div><div><br></div><div>Pelo que pude avaliar, o problema é que o código da função não prevê o armazenamento da saída em objetos. Acredito que a solução mais correta seria editar o código e definir uma nova função. Você pode sugerir essas alterações ao autor do pacote.</div>
<div><br></div><div>Caso seu uso seja eventual, dá pra se virar com uma solução paliativa, apresentada abaixo. Pode ser que os colegas da lista tenham uma ideia melhor...</div><div><br></div><div><font face="courier new, monospace">### <code r></font></div>
<div><font face="courier new, monospace">require(lcmm)<br></font></div><div><font face="courier new, monospace">time <- rep(seq(1,10),50)</font></div><div><font face="courier new, monospace">A <- as.data.frame(cbind(ID=rep(1:50, each=10),time1=time,time2=time^2,Y=rnorm(500)))</font></div>
<div><font face="courier new, monospace">gmm <- hlme(Y~time+time2, ng=3, mixture=Y~time+time2, subject='ID', data=A)</font></div><div><font face="courier new, monospace">summary(gmm)</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">tmp <- summary(gmm) ### imprime na tela, mas gera objeto vazio</font></div><div><font face="courier new, monospace">str(tmp)            ### retorna NULL</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">dput(summary.hlme) ### lista código da função</font></div><div><font face="courier new, monospace">### observe ausência de instruções de retorno (return)</font></div>
<div><font face="courier new, monospace">### uma saída é editar o código da função e inserir as instruções...</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### uma solução paliativa! ;D</font></div>
<div><font face="courier new, monospace">res  <- capture.output(summary(gmm)); res ### identifique o número das linhas que interessam</font></div><div><font face="courier new, monospace">sel  <- res[39:47]; sel ### selecione as </font><span style="font-family:'courier new',monospace">linhas que interessam</span></div>
<div><font face="courier new, monospace">pval <- read.table(textConnection(sel), head=F)[6]; pval ### a sexta coluna refere-se ao p-valor</font></div><div><font face="courier new, monospace">### <code r></font></div>
<div class="gmail_extra"><br clear="all"><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><br></div><div class="gmail_extra"><br></div><div class="gmail_extra"><br></div></div>