#Criando a planilha setwd("INSIRA AQUI O CAMINHO DA PASTA DE TRABALHO") diabetes <- read.csv("diabetes.csv", sep = ";") #Sorteando a amostra amostra <- diabetes[sort(sample.int(n = 50000, size = 10)), ] #Exibir a amostra amostra #Sumário estatístico summary(amostra)