<font face="trebuchet ms,sans-serif">Saudações a todos,<br><br>Estou montando um procedimento em que numa certa altura do código eu preciso de uma lista. Eu possuo um vetor nomeado que quero incluir nessa lista, mas que cada elemento do vetor seja um slot da lista, sendo o primeiro slot é x NULL e o ultimo o corpo de uma função. Abaixo tento via código esclarecer o meu objetivo.<br>
<br><span style="font-family: courier new,monospace;"> #-----------------------------------------------------------------------------</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> # uma função</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">  </span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> fn <- function(x){</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">   sen(x)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> }</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> </span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> #-----------------------------------------------------------------------------</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> # um vetor</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> </span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> vec <- c(a=1, b=2, c=3, d=4)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> </span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> #-----------------------------------------------------------------------------</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> # a lista que sei até agora obter(preciso converte-la)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> </span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> list(x=NULL, vec, body(fn))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$x</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">NULL</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">[[2]]</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">a b c d </span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">1 2 3 4 </span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">[[3]]</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">{</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">    sen(x)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">}</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> </span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> #-----------------------------------------------------------------------------</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> # como faço para obter essa lista aqui, em que cada elemento do vetor</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> # é um slot da lista, ficando assim, mas convertendo a lista de cima?</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> # essa abaixo é a lista no formato de que preciso</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> </span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> list(x=NULL, a=1, b=2, c=3, d=4, body(fn))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$x</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">NULL</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$a</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">[1] 1</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$b</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">[1] 2</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$c</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">[1] 3</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">$d</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">[1] 4</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">[[6]]</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">{</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">    sen(x)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">}</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> #-----------------------------------------------------------------------------</span><br style="font-family: courier new,monospace;">
<br></font><font face="trebuchet ms,sans-serif">Grato à todos.<br>
Walmes. <br>
</font><font face="trebuchet ms,sans-serif"> <br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>