# Bret Larget # January 27, 2014 # Sample teams from the Big 10 big10 = function(size=5) { schools = c("Wisconsin","Minnesota","Iowa","Nebraska","Illinois","Northwestern","Purdue","Indiana","Michigan","Michigan State","Ohio State","Penn State","Rutgers","Maryland") s = sample(schools,size) return ( s ) }