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 Vitoe
<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 <[email protected]
<mailto:[email protected]>>:
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 <tel:%28%2B55%29%2065%208132-8112> (TIM)
(+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO)
e-mails:[email protected]
<mailto:e-mails%[email protected]>
[email protected]
<mailto:[email protected]>
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================
_______________________________________________
R-br mailing list
[email protected] <mailto:[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.
_______________________________________________
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.
--
======================================================================
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:[email protected]
[email protected]
Lattes:http://lattes.cnpq.br/1360403201088680
======================================================================
_______________________________________________
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.
--
======================================================================
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:[email protected]
[email protected]
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================
_______________________________________________
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.
