script to extract a random sample out of a dataset

random_subset.r

# making the random sample reproducible, makes it easier to take other samples
set.seed(123)

# add your local path below
setwd("")
fulldat <- read.csv("fulldat.csv", header = TRUE)

#removing duplicates
fulldat <- fulldat[!duplicated(fulldat$var),]
str(fulldat)

#taking a random sample
datasamp <- fulldat[sample(1:nrow(fulldat), 1500, replace=FALSE),]

# saving a local file
write.csv(datasamp, "datasamp.csv")