Mercurial > repos > jfb > transposy_data_cleanup

annotate transposy/transposy.R @ 1:c2c215a5dea0 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Tue, 27 Feb 2018 12:11:57 -0500
parents eac197ac2fb2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
1 #transpose a csv file, DO NOTHING ELSE
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
2
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
3 inputy<-read.csv(file = "transposy.csv", header = FALSE, stringsAsFactors = FALSE)
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
4 outputy<-"outputy.csv"
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
5
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
6 inputy<-as.data.frame(inputy)
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
7
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
8 transposy<-t(inputy)
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
9
eac197ac2fb2 Uploaded
jfb
parents:
diff changeset
10 write.table(x=transposy,file = outputy,row.names = FALSE,col.names = FALSE,sep=",")