diff transposy/transposy.R @ 0:eac197ac2fb2 draft

Uploaded
author jfb
date Tue, 27 Feb 2018 11:29:18 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/transposy/transposy.R	Tue Feb 27 11:29:18 2018 -0500
@@ -0,0 +1,10 @@
+#transpose a csv file, DO NOTHING ELSE
+
+inputy<-read.csv(file = "transposy.csv", header = FALSE, stringsAsFactors = FALSE)
+outputy<-"outputy.csv"
+
+inputy<-as.data.frame(inputy)
+
+transposy<-t(inputy)
+
+write.table(x=transposy,file = outputy,row.names = FALSE,col.names = FALSE,sep=",")