Augusto,<div><br></div><div>vc esta' confundindo as coisas.</div><div><br></div><div>O que ainda esta' presente e' o *nivel* 4, mas nenhuma das observacoes pertence ao nivel 4... Veja, por exemplo, o resultado de:</div>
<div><br></div><div>table(test2[['V1']])</div><div><br></div><div>e conte quantas observacoes pertencem ao nivel 4 (zero).</div><div><br></div><div>b</div><div><br><br><div class="gmail_quote">2011/4/28 Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div>Opa Gustavo. Do seu jeito so funciona quando não é fator.</div><div>Eu economizei para fazer o exemplo ali, mas os dados são um data frame e a que quero usa pra seleciona é um fator.</div>
<div>So se tiver um sort.factor, numero inteiro da erro dae.</div>
<div> </div><div>Mas aproveitando, deixa eu fazer mais uma perguntinha:</div><div> </div><div>#Repostando o exemplo</div><div>test<-matrix(c(rep(1:3,each=5),rep(4,each=4),rep(5,each=6),runif(50)),byrow=F,nrow=25)<br>test<br>
test<-as.data.frame(test)<br>test[[1]] <- as.factor(test[[1]])<br>names(test)<br>str(test)<br>counts<-table(test[['V1']])<br>counts<br>sel<-names(counts)[counts > 4]<br>sel<br>test2<-subset(test, V1 %in% sel)<br>
test2</div><div>#até aqui ok so que o level 4 ainda ficou<br>levels(test2[,1])</div><div> </div><div>Como eu tiro ele?</div><div> </div><div>E Walmes, problema não são so os comandos, mas eu me embanano mesmo para implementar as coisas. Eu entendo o que o Benilton fez, mas não tava vizualizando faze daquele jeito. </div>
<div><br><br> </div><div class="gmail_quote">Em 28 de abril de 2011 19:05, Gustavo Henrique de Carvalho <span dir="ltr"><<a href="mailto:gustavo.bio@gmail.com" target="_blank">gustavo.bio@gmail.com</a>></span> escreveu:<br>
<blockquote style="margin:0px 0px 0px 0.8ex;padding-left:1ex;border-left-color:rgb(204, 204, 204);border-left-width:1px;border-left-style:solid" class="gmail_quote">
Outra forma:<br>
<br>
bleh <- rle(<a href="http://sort.int" target="_blank">sort.int</a>(test[, 1]))<br>
bleh <- bleh$values[bleh$lengths > 4]<br>
<br>
test[test[, 1] %in% bleh, ]<br>
<br>
2011/4/28 Walmes Zeviani <<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>>:<br>
<div><div></div><div>> Pessoal,<br>
><br>
> Vejam o cartão de referência do R (no google: R reference card). Ele tem<br>
> todas essas opções de operadores lógicos, de datas, de horas, de importação,<br>
> parâmetros gráficos, distribuição de probabilidades, etc. Vale a pena ter<br>
> ele salvo no navegador ou impresso na gaveta mais próxima.<br>
><br>
> À disposição.<br>
> Walmes.<br>
><br>
> ==========================================================================<br>
> Walmes Marques Zeviani<br>
> LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)<br>
> Departamento de Estatística - Universidade Federal do Paraná<br>
> fone: (+55) 41 3361 3573<br>
> VoIP: (3361 3600) 1053 1173<br>
> e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a><br>
> twitter: @walmeszeviani<br>
> homepage: <a href="http://www.leg.ufpr.br/~walmes" target="_blank">http://www.leg.ufpr.br/~walmes</a><br>
> linux user number: 531218<br>
> ==========================================================================<br>
><br>
</div></div><div><div></div><div>> _______________________________________________<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/cgi-bin/mailman/listinfo/r-br</a><br>
><br>
><br>
_______________________________________________<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/cgi-bin/mailman/listinfo/r-br</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org/</a></div>
<div> <a href="http://dhost.info/augusto/" target="_blank">http://dhost.info/augusto/</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div><br>
<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>
<br></blockquote></div><br><br clear="all"><br>-- <br>Successful people ask better questions, and as a result, they get better answers. (Tony Robbins)<br>
</div>