Create applyfunctions.r

apply functions example
apply,lapply,sapply,tappy,mapply