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œ)

Pesquisador Associado (PNPD - Capes) 

Programa de Pós-Graduação em Ciências Biológicas

Visit my blog! / Rede Amazônia Sustentável

Skype: rrsolar

Universidade Estadual de Montes Claros - MG

==========================================

2014-05-09 18:37 GMT-03:00 ASANTOS <alexandresantosbr@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:alexandresantosbr@yahoo.com.br
        alexandre.santos@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.

-- 
======================================================================
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:alexandresantosbr@yahoo.com.br 
        alexandre.santos@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.

-- 
======================================================================
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:alexandresantosbr@yahoo.com.br 
        alexandre.santos@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.