R scripts of many sorts