Create descSapply.R