Pelo que eu entendi, é isso que tu quer: install.packages('data.table') # Rodar só se nao tiver o pacote data.table instalado. Da para fazer com data.frame comum, mas com data.table é mais fácil. require(data.table)
dados <- data.table(dados) dados[, sample(medidas, 20), by = c('proj.talhao', 'n.talhao')] # Faz uma amostragem de tamanho 20 da variavel medida, pra cada par das variaveis proj.talhao e n.talhao 2014-05-09 21:15 GMT-03:00 ASANTOS <alexandresanto...@yahoo.com.br>: > Pessoal, > > Comecei a evoluir um pouco, mas a programação em R tem sido a > limitação, segue CRM: > > > proj.talhao<-sort(rep(c("tamandua","itapagi","corrego"),100)) > n.talhao<-sort(rep(c("144","256","356","144","301","180"),50)) > dados<-as.data.frame(cbind(proj.talhao,n.talhao)) > dados$medidas<-rnorm(nrow(dados),300) > head(dados) > > dados$ab<- interaction(dados$proj.talhao, dados$n.talhao)## Fiz a > interação dos objetos pois existe dois proj.talhao cada um com numeração > diferente n.talhao (totalizando 6 áreas > diferentes) > > dados$num<-as.numeric(dados$ab)## Atribui uma numeração a cada área > diferente > > head(dados) > > RES<-NULL > > for (i in 1:length(dados$num)){ ## E é aqui que esta pegando, como fazer > para que a mostragem seja a cada mudança de número (ou área) > > samp <- sample(dados[,3], replace=F) > RES <- rbind(RES, c(dados$ab,samp)) > > } > > > > Obrigado, > > Alexandre > > Em 09/05/2014 19:28, ASANTOS escreveu: > > Ricardo não é bem isso, seria > > sample(row.names(dados), 20) a cada mudança de n.talhao (se fosse númerico > ate tenho algumas idéias) no código: > > > proj.talhao<-sort(rep(c("tamandua","itapagi","corrego"),100)) > n.talhao<-sort(rep(c("144","256","356","144","301","180"),50)) > dados<-as.data.frame(cbind(proj.talhao,n.talhao)) > dados$medidas<-rnorm(nrow(dados),300) > head(dados) > > > Em 09/05/2014 17:49, Ricardo Solar escreveu: > > Olá, não sei se entendi bem o que quer, mas você pode mandar ele fazer o > sample de row.names > > > use_talhao <- sample(row.names(dados), 20) > > dados2 <- dados[use_talhao,] > > para fazer isso por talhão, se esse for o caso, use um for, ou algo do > tipo. > > Abs > > ========================================== > Dr. Ricardo Ribeiro de Castro Solar (Curriculum > Vitœ<http://lattes.cnpq.br/9924177207371692> > ) > Pesquisador Associado (PNPD - Capes) > Programa de Pós-Graduação em Ciências Biológicas > Visit my blog! <http://photographyandconservation.wordpress.com/> / Rede > Amazônia Sustentável <http://www.redeamazoniasustentavel.org> > Skype: rrsolar > Universidade Estadual de Montes Claros - MG > ========================================== > > > 2014-05-09 18:37 GMT-03:00 ASANTOS <alexandresanto...@yahoo.com.br>: > >> Boa noite listeiros, >> >> >> Criei o seguinte data frame: >> >> proj.talhao<-sort(rep(c("tamandua","itapagi","corrego"),100)) >> n.talhao<-sort(rep(c("144","256","356","144","301","180"),50)) >> dados<-as.data.frame(cbind(proj.talhao,n.talhao)) >> dados$medidas<-rnorm(nrow(dados),300) >> head(dados) >> >> >> Agora gostaria de solicitar a função sample() para 20 valores sem >> reposição a cada alteração de n.talhao em cada proj.talhao, que são >> caracteres, então neste caso o que eu poderia utilizar? >> >> >> Obrigado >> >> -- >> ====================================================================== >> Alexandre dos Santos >> Proteção Florestal >> IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso >> Campus Cáceres >> Caixa Postal 244 >> Avenida dos Ramires, s/n >> Bairro: Distrito Industrial >> Cáceres - MT CEP: 78.200-000 >> Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) >> e-mails:alexandresanto...@yahoo.com.br >> alexandre.san...@cas.ifmt.edu.br >> Lattes: http://lattes.cnpq.br/1360403201088680 >> ====================================================================== >> >> _______________________________________________ >> R-br mailing list >> R-br@listas.c3sl.ufpr.br >> 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. >> > > > > _______________________________________________ > R-br mailing > listr...@listas.c3sl.ufpr.brhttps://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. > > > -- > ====================================================================== > Alexandre dos Santos > Proteção Florestal > IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso > Campus Cáceres > Caixa Postal 244 > Avenida dos Ramires, s/n > Bairro: Distrito Industrial > Cáceres - MT CEP: 78.200-000 > Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 > (VIVO)e-mails:alexandresanto...@yahoo.com.br > alexandre.san...@cas.ifmt.edu.br > Lattes: http://lattes.cnpq.br/1360403201088680 > ====================================================================== > > > > _______________________________________________ > R-br mailing > listr...@listas.c3sl.ufpr.brhttps://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. > > > -- > ====================================================================== > Alexandre dos Santos > Proteção Florestal > IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso > Campus Cáceres > Caixa Postal 244 > Avenida dos Ramires, s/n > Bairro: Distrito Industrial > Cáceres - MT CEP: 78.200-000 > Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 > (VIVO)e-mails:alexandresanto...@yahoo.com.br > alexandre.san...@cas.ifmt.edu.br > Lattes: http://lattes.cnpq.br/1360403201088680 > ====================================================================== > > > _______________________________________________ > R-br mailing list > R-br@listas.c3sl.ufpr.br > 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. >
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.