Made R script work

Wasn't parsing due to header containing ',' we should look into whether we can escape that in any way.  Also change tramsect to transect.  Seems to work now.