wrote wrapper script for some transposing in R