#Caros, existe alguma forma de melhorar este exemplo:
vetor <- rep('0',108)
z=1
for(i in 0:5){
for(j in 0:2){
for(k in 1:2){
for (l in 0:2){
vetor[z] <- paste(i,j,k,l,sep='')
z = z + 1
}
}
}
}
vetor
#Aproveitando, se quero usar um tapply extraindo média,
#desvio-padrão e uma função personalizada, alguém saberia com fazer as
#três funções de uma vez só?
#Gostaria de executar o comando abaixo de uma única vez em um tapply.
#Alguma sugestão?!
set.seed(1)
x <- rnorm(1000,500,100)
y <- trunc(runif(1000,1,10))
fper <- function(x){mean(x-500)/100}
dataframe <- t(rbind(tapply(x,y,mean),tapply(x,y,sd),tapply(x,y,fper)))
colnames(dataframe) <- c('media','desvp','fper')
dataframe
Atenciosamente,
Leandro Lins Marino
Centro de Avaliação
Fundação CESGRANRIO
Rua Santa Alexandrina, 1011 - 2º andar
Rio de Janeiro, RJ - CEP: 20261-903
R (21) 2103-9600 R.:236
( [email protected]
Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE
Esta mensagem, incluindo seus anexos, pode conter informacoes privilegiadas
e/ou de carater confidencial, nao podendo ser retransmitida sem autorizacao do
remetente. Se voce nao e o destinatario ou pessoa autorizada a recebe-la,
informamos que o seu uso, divulgacao, copia ou arquivamento sao proibidos.
Portanto, se você recebeu esta mensagem por engano, por favor, nos informe
respondendo imediatamente a este e-mail e em seguida apague-a.
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
