AlysonRegoHW2.Rmd | | HW2 | Alyson Rego | 33412526 | 2-12-22 | Ann Folker

aliens <- read.csv ("aliens.csv", header = TRUE, stringsAsFactors = TRUE)


make.my.sample <- function(studentID, n, data) {
RNGversion("3.2.1")
set.seed(studentID)
sample_values <- sample(size = n, c(1:nrow(data)))
my_sample <- data[data$ID %in% sample_values,]
return(my_sample)
}

my_sample <- suppressWarnings(make.my.sample(33412526, 100, aliens))

##1

college.table <- table(my_sample$college)
college.table

## 
## Callisto   Europa Ganymede       Io 
##       24       23       25       28

##
## Callisto Europa Ganymede Io
## 27 26 25 22

barplot(college.table)