Tpref<- read.csv("Tpref_bica_allind_filter15.csv") library(dplyr) Ind1<- Tpref%>% filter(Individual == "1") Tpref1<- Ind1$Temp Tp1.50<- quantile(Tpref1) quantile(Tpref1) Ind2<- Tpref%>% filter(Individual == "2") Tpref2<- Ind2$Temp Tp2.50<- quantile(Tpref2) quantile(Tpref2) Ind3<- Tpref%>% filter(Individual == "3") Tpref3<- Ind3$Temp Tp3.50<- quantile(Tpref3) quantile(Tpref3) Ind4<- Tpref%>% filter(Individual == "4") Tpref4<- Ind4$Temp Tp4.50<- quantile(Tpref4) quantile(Tpref4) Ind5<- Tpref%>% filter(Individual == "5") Tpref5<- Ind5$Temp Tp5.50<- quantile(Tpref5) Ind6<- Tpref%>% filter(Individual == "6") Tpref6<- Ind6$Temp Tp6.50<- quantile(Tpref6) Ind7<- Tpref%>% filter(Individual == "7") Tpref7<- Ind7$Temp Tp7.50<- quantile(Tpref7) Ind8<- Tpref%>% filter(Individual == "8") Tpref8<- Ind8$Temp Tp8.50<- quantile(Tpref8) #merge values# tpref.sep.ind<- data.frame() x<-c("Zero", "Twentyfive", "fifty", "seventyfive", "onehundered") asdf<-rbind(Tp1.50,Tp2.50, Tp3.50, Tp4.50, Tp5.50, Tp6.50, Tp7.50, Tp8.50) tpref.sep.ind<- asdf colnames(tpref.sep.ind)<-x write.csv(tpref.sep.ind, file="Tpref_seperated_individuals.csv") matrix(tpref.sep.ind)