x1<-c("2015-01-01","2015-01-02","2015-01-03","2015-01-04","2015-01-05","2015-01-06","2015-01-07","2015-01-08","2015-01-09","2015-01-10","2015-01-11")
x2<-c(1,3.5,2.8,9,8.1,10,11,7.4,6.2,4.8,1.2)
x3<-c(0.12,0.11,0.02,0.31,0.22,0.17,0.43,0.35,0.61,0.44, 0.29)
x<-data.frame(x1,x2,x3)
data.list<-list()
for(i in 6:10)
{
  data.list[[i-5]]<- filter(x,x2>=i)
  }
slappy(data.list[[2]][,3]/sum(data.list[[2]][,3]))
Error: could not find function "slappy"