I have some R code there I am attempting to write a header in csv format then follow it up with data:
HeaderTXT <- paste("Year","Location",
