guess <-c(12,16,12,9,9,10,8,16,20,12,15,7,9,15,12,10,12,25,15,15,14,10,15)

conv <- c(10.2,13.6,13.8,6.8,7.6,7.4,11.6,10.2,5.2,9.2,10.6,16.6,9.6,15.6,8.4,10,10,5.6,10.2,8,11.2,5.6,7.8)

randsamp <- c(3.4,9.2,5.6,10.2,3.8,8,9.6,12.4,5.6,4.2,10.2,7.8,5.8,7.4,5.2,7.6,9.4,7.2,7.8,8.8,8.2,2.8,9)

boxplot(guess,conv,randsamp,names = c("Guess","Convenient","Rand Samp"))