<div dir="ltr"><div><div>Alexandre,<br></div>se me permite, acho que tenho uma solução mais simples, sem usar o pacode dplyr e sem transformar o objeto de <i>matrix</i> para <i>data.frame.<br><br></i></div>Segue abaixo:<br><br># Definir o número de linhas e colunas da base original<br>n <- 100<br>nCols <- 10<br><br># Construir a base original<br>dados <- matrix(runif(n * nCols), nrow = n)<br>dados <- cbind(1:nrow(dados), dados)<br>nomeVars <- c("var1", "var2","var3","var4","var5","var6","var7","var8","var9","var10")<br>attributes(dados)$dimnames <- list(1:nrow(dados), c("ID", nomeVars))<br>head(dados)<br><br># Sorteio de 20% das linhas<br>nLinhas <- n * 0.2<br>amostra20 <- sample(1:nrow(dados), size = nLinhas, replace = F)<br>amostra20 <- amostra20[order(amostra20)]<br>dados20 <- dados[amostra20, ]<br><br># Sorteio de 10% dos valores da subamostra<br>nValores <- (nLinhas * nCols) * 0.1<br>amostra10 <- sample(1:(nLinhas * nCols), size = nValores, replace = F)<br>amostra10 <- amostra10[order(amostra10)]<br><br># substituir os valores por NA<br>dados20[, nomeVars][amostra10] <- NA<br>dados20<br><br><br><i></i><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div>Abraços,<br></div><div>Paulo<br></div></div></div></div></div>
<br><div class="gmail_quote">Em 7 de outubro de 2015 18:48, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Caros Listeiros,<br>
<br>
Estou tentando criar uma rotina para primeiro sortear 20% de linhas de um data frame com 10 variáveis e n=100, e com o resultado desse sorteio eu gostaria de sortear 10% dos valores independente da variável e substituir por NA. No entanto, estou com dois problemas para realizar isso: 1) O objeto sampl.data.10 criado que corresponde ao sorteio de 10% dos valores não corresponde ao objeto que originou o sorteio (sampl.n.20); e 2) Quando faço o sorteio de 10% dos valores e substituo por NA, perco a informação do identificador da amostra ou seja meu dados$ID, segue CRM abaixo, alguém poderia me dar um help?<br>
<br>
<br>
#Variáveis artificiais<br>
dados<-runif(1000)<br>
dados<-(dados*100)+c(1:500, 500:1)<br>
dados<-matrix(dados,nrow=50,ncol=10)<br>
dados<-as.data.frame(dados)<br>
names(dados)<-c("var1", "var2","var3","var4","var5","var6","var7","var8","var9","var10")<br>
dados$ID<-1:length(dados[,1])<br>
dados<-as.data.frame(dados)<br>
<br>
#Pacote<br>
require(dplyr)<br>
<br>
## Seleciono 20% das linhas do objeto dados<br>
sampl.n.20<-sample_frac(dados, 0.2)<br>
sampl.n.20<br>
<br>
##Seleciono 10% de valores independente da variável<br>
n.data<-0.1*(length(sampl.20[,1])*length(sampl.20[1,]))<br>
sampl.data.10<-matrix(sample(c(NA, sampl.20[,1]),length(sampl.20[,1])*length(sampl.20[1,]), replace = TRUE), n.data)<br>
sampl.data.10<br>
<br>
Obrigado,<br>
<br>
-- <br>
======================================================================<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" rel="noreferrer" target="_blank">http://lattes.cnpq.br/1360403201088680</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" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><br></div></div>