Improved functions w/lapply, sapply, do.call