dados <-read.csv2(file.choose());dados
attach(dados)
summary(dados)
names(dados)

vetor <- c(1:length(linha));vetor

set.seed(2018)
obs_selecionadas <- sample(vetor,50,replace = TRUE);obs_selecionadas

amostra_50 <- NULL
amostra_50 <- dados[obs_selecionadas,];amostra_50