block by nstrayer e8b951549caea967cd48e268852a465f

Experiments with the function rapply in R's base library

fun_w_rapply.R