<div dir="ltr"><br><div><br><div><br></div><div><div>porano<-apply(dados[,-1],2,function(x)c(summary(x),0)[1:7])</div><div>desvio padrão<-sd(dados[,-1], na.rm= TRUE)</div><div>Error: unexpected symbol in "desvio padrão"</div>
<div><br></div><div>##tente isso. Você está usando espaços no mome do objeto</div><div>desvio_padrao<-sd(dados[,-1], na.rm= TRUE)</div><div><br></div><div><br></div><div> variância<-diag(var(dados[,-1], na.rm= TRUE))</div>
<div>IQR) <- quantile(dados[,-1], 3/4) -</div><div><br></div><div>#1° você tem ")" no nome do objeto como está falando no aviso de erro</div><div><br></div><div>Error: unexpected ')' in "IQR)"</div>
<div>quantile(dados[,-1], 1/4)</div><div>Error in quantile.default(dados[, -1], 1/4) :</div><div> missing values and NaN's not allowed if 'na.rm' is FALSE</div><div> </div><div>## aqui é provavel que vc tem NA's na matriz. siga a dica no aviso de erro</div>
<div> </div><div>amplitude<-apply(dados[,-1],2,range, na.rm= TRUE)</div><div>amplitudediff<-c(amplitude[2,] - amplitude[1,])</div><div>rownames(porano) <- c('Minimo','Primeiro quartil','Mediana','Média','Terceiro Quartil','Máximo','NAs')</div>
<div>poranol<-rbind(porano,desvio padrão,variância,amplitude,amplitudediff,IQR) </div><div>Error: unexpected symbol in "poranol<-rbind(porano,desvio padrão"</div></div></div></div><div class="gmail_extra">
<br><br><div class="gmail_quote">Em 13 de março de 2013 13:26, <span dir="ltr"><<a href="mailto:alanarocha@sapo.pt" target="_blank">alanarocha@sapo.pt</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Eu encontrei a forma de calcular os quantis que precisava mas não conheço nem percebo os erros que me deram<br>
e os resultados de "IRQ" não me aparecem.<br>
código:<br>
# Estatística por ano<br>
porano<-apply(dados[,-1],2,<u></u>function(x)c(summary(x),0)[1:<u></u>7])<br>
desvio padrão<-sd(dados[,-1], na.rm= TRUE)<br>
Error: unexpected symbol in "desvio padrão"<br>
variância<-diag(var(dados[,-1]<u></u>, na.rm= TRUE))<br>
IQR) <- quantile(dados[,-1], 3/4) -<br>
Error: unexpected ')' in "IQR)"<br>
quantile(dados[,-1], 1/4)<br>
Error in quantile.default(dados[, -1], 1/4) :<br>
missing values and NaN's not allowed if 'na.rm' is FALSE<br>
amplitude<-apply(dados[,-1],2,<u></u>range, na.rm= TRUE)<br>
amplitudediff<-c(amplitude[2,] - amplitude[1,])<br>
rownames(porano) <- c('Minimo','Primeiro quartil','Mediana','Média','<u></u>Terceiro Quartil','Máximo','NAs')<br>
poranol<-rbind(porano,desvio padrão,variância,amplitude,<u></u>amplitudediff,IQR) <br>
Error: unexpected symbol in "poranol<-rbind(porano,desvio padrão"<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
colnames(porano) = 2008:2012<br>
poranol<br>
</blockquote>
X2008 X2009 X2010 X2011 X2012<br>
Minimo 66.000000 65.000000 62.000000 59.000000 60.000000<br>
Primeiro quartil 76.000000 84.000000 86.000000 88.250000 91.000000<br>
Mediana 80.000000 87.000000 89.500000 91.500000 94.000000<br>
Média 80.270000 86.290000 88.500000 90.500000 91.840000<br>
Terceiro Quartil 85.000000 89.500000 92.000000 95.000000 96.000000<br>
Máximo 94.000000 98.000000 98.000000 98.000000 99.000000<br>
NAs 4.000000 3.000000 3.000000 3.000000 0.000000<br>
desviopadrão 7.362374 6.254838 6.542402 7.439656 7.879345<br>
variância 54.204545 25.746212 21.530303 25.130682 12.780303<br>
66.000000 65.000000 62.000000 59.000000 60.000000<br>
94.000000 98.000000 98.000000 98.000000 99.000000<br>
amplitudediff 28.000000 33.000000 36.000000 39.000000 39.000000<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
porano<br>
</blockquote>
2008 2009 2010 2011 2012<br>
Minimo 66.00 65.00 62.0 59.00 60.00<br>
Primeiro quartil 76.00 84.00 86.0 88.25 91.00<br>
Mediana 80.00 87.00 89.5 91.50 94.00<br>
Média 80.27 86.29 88.5 90.50 91.84<br>
Terceiro Quartil 85.00 89.50 92.0 95.00 96.00<br>
Máximo 94.00 98.00 98.0 98.00 99.00<br>
NAs 4.00 3.00 3.0 3.00 0.00<br>
<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div><b style="font-size:12.727272033691406px;color:rgb(34,34,34);font-family:arial,sans-serif;background-color:rgb(255,255,255)">Luciano F. Sgarbi</b><br>
<br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Mestrando em Ecologia e Evolução</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Laboratório de Ecologia de Insetos (sl. 222)</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">
<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Departamento de Ecologia<br>Instituto de Ciências Biológicas - ICB 1<br>Universidade Federal de Goiás, campus II<br>
Goiânia-GO<br>74001-970</div><div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Brazil</div></div><div><br></div><div><br></div>
</div>