R code muck abouts