Muito obrigado Paulo,
Problema resolvido, o código ficou muito mais limpo e eficiente,
Abraços,
--
======================================================================
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
======================================================================
Em 07/10/2015 20:43, Paulo Nogueira Starzynski escreveu:
# Definir o número de linhas e colunas da base original
n <- 100
nCols <- 10
# Construir a base original
dados <- matrix(runif(n * nCols), nrow = n)
dados <- cbind(1:nrow(dados), dados)
nomeVars <- c("var1",
"var2","var3","var4","var5","var6","var7","var8","var9","var10")
attributes(dados)$dimnames <- list(1:nrow(dados), c("ID", nomeVars))
head(dados)
# Sorteio de 20% das linhas
nLinhas <- n * 0.2
amostra20 <- sample(1:nrow(dados), size = nLinhas, replace = F)
amostra20 <- amostra20[order(amostra20)]
dados20 <- dados[amostra20, ]
# Sorteio de 10% dos valores da subamostra
nValores <- (nLinhas * nCols) * 0.1
amostra10 <- sample(1:(nLinhas * nCols), size = nValores, replace = F)
amostra10 <- amostra10[order(amostra10)]
# substituir os valores por NA
dados20[, nomeVars][amostra10] <- NA
dados20
_______________________________________________
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 fornea cdigo mnimo
reproduzvel.
