Comparing roots, shoots and calluses for statistical significance between all four medium types, have subsetted by medium
dat<-read.csv("~/RECAP/Book5.csv",header=T, stringsAsFactors = T)
dat$Medium<-as.factor(dat$Medium) # makes medium a catergorical dataset
M1<-subset(dat,dat$Medium=="M1") # subset into medium types
M2<- subset(dat,dat$Medium=='M2')
M3<- subset(dat,dat$Medium=='M3')
M4<- subset(dat,dat$Medium=='M4')