O que Eder falou. Mas mesmo assim não daria certo.<div><br></div><div>O jeito mais fácil, mas é um "copout" é usar um loop. Ou se quiser mesmo apply:<div><br></div><div><span class="Apple-style-span" style="font-family:'times new roman','new york',times,serif;font-size:16px">apply(names(dados),2,funcao)</span></div>
<div><font class="Apple-style-span" face="'times new roman', 'new york', times, serif" size="3"><br></font></div><div><font class="Apple-style-span" face="'times new roman', 'new york', times, serif" size="3">modificando a funcao para pegar o nome da coluna e extrair de 'dados'.<br>
</font></div><div><font class="Apple-style-span" face="'times new roman', 'new york', times, serif" size="3"><br></font></div><div><font class="Apple-style-span" face="'times new roman', 'new york', times, serif" size="3"><br>
</font></div><br><div class="gmail_quote">2012/2/6 Eder David Borges da Silva <span dir="ltr"><<a href="mailto:eder@leg.ufpr.br">eder@leg.ufpr.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Vanessa,<br>
se sei se é esse o problemas, mas sua matriz parece estar sem nome,<br>
por isso esta retornando o NULL<br>
quando a matriz tem nome nas colunas o colnames funciona:<br>
<br>
dados = replicate(100,rnorm(50))<br>
## Colocando os nomes<br>
dimnames(dados)[[2]] <- paste('X',1:100,sep='')<br>
head(dados)<br>
colnames(dados)<br>
<br>
dimnames(dados)[[2]]<br>
<div class="im"><br>
funcao = function(coluna){<br>
y = coluna<br>
x = 2*coluna<br>
tabela = data.frame(x,y)<br>
nome1 = colnames(coluna)<br>
nome2 = names(coluna)<br>
</div> #write.csv(FILE,paste(nome1,'.csv',sep=''))<br>
<div class="im"> saida = list(nome1,nome2,x,y)<br>
return(saida)<br>
}<br>
<br>
resultados = apply(dados,2,funcao)<br>
<br>
</div>Acho que pode ser isso...<br>
Éder<br>
<br>
<br>
<br>
Em 6 de fevereiro de 2012 16:12, Vanessa Leotti Torman<br>
<<a href="mailto:vleotti@yahoo.com.br">vleotti@yahoo.com.br</a>> escreveu:<br>
<div><div class="h5">> Caros membros da lista R-br,<br>
><br>
> gostaria de uma ajuda em relação a situação a seguir. Gostaria de aplicar<br>
> certa função as colunas de uma matriz, sendo que entre outras coisas, a<br>
> função que desejo deve gravar arquivos csv com os dados. Entretanto, preciso<br>
> de um arquivo apra cada coluna, e não estou conseguindo transferir o nome<br>
> (ou número da coluna) dentro da função apply.<br>
><br>
> Um código exemplo está abaixo:<br>
><br>
> dados = replicate(100,rnorm(50))<br>
><br>
> funcao = function(coluna){<br>
> y = coluna<br>
> x = 2*coluna<br>
> tabela = data.frame(x,y)<br>
> nome1 = colnames(coluna)<br>
> nome2 = names(coluna)<br>
> #write.csv("tabela_?NOMEDACOLUNA?.csv")<br>
> saida = list(nome1,nome2,x,y)<br>
> return(saida)<br>
> }<br>
><br>
> resultados = apply(dados,2,funcao)<br>
><br>
> O problema está em como passar o nome da coluna, pois tanto o "names" e o<br>
> "colnames" retornam NULL.<br>
><br>
> Eu sei que se o objetivo fosse somente o de criar estes vários arquivos<br>
> poderia usar "eval" e "paste", mas a função que quero aplicar é muito mais<br>
> complexa que esta. O objetivo de criar os arquivos csv é poder tirar alguns<br>
> objetos da saída da minha função e assim economizar memória RAM. Tais<br>
> objetos não são primordias para mim mas gostaria de salvá-los.<br>
><br>
> Muito obrigada,<br>
> Vanessa B Leotti Torman<br>
> UFRGS<br>
><br>
><br>
><br>
><br>
><br>
</div></div>> _______________________________________________<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<br>
> mínimo reproduzível.<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></div>