Mercurial > repos > jfb > py_data_cleanup

annotate pYtime/xytime.R @ 1:72fbbff22c5c 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:38:51 -0500
parents 16160fe81a16
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
16160fe81a16 Uploaded
jfb
parents:
diff changeset
1 #change all central Ys to xY and do nothing else
16160fe81a16 Uploaded
jfb
parents:
diff changeset
2
16160fe81a16 Uploaded
jfb
parents:
diff changeset
3 inputtoim<-read.csv("needspy.csv",header = FALSE,sep = ",",stringsAsFactors = FALSE)
16160fe81a16 Uploaded
jfb
parents:
diff changeset
4
1
72fbbff22c5c Uploaded
jfb
parents: 0
diff changeset
5 YsToim<-rep("xY",times=nrow(inputtoim)-1)
0
16160fe81a16 Uploaded
jfb
parents:
diff changeset
6 YsToim<-c("0",YsToim)
16160fe81a16 Uploaded
jfb
parents:
diff changeset
7
16160fe81a16 Uploaded
jfb
parents:
diff changeset
8 outputtoim<-inputtoim
16160fe81a16 Uploaded
jfb
parents:
diff changeset
9
16160fe81a16 Uploaded
jfb
parents:
diff changeset
10 outputtoim[,11]<-YsToim
16160fe81a16 Uploaded
jfb
parents:
diff changeset
11
16160fe81a16 Uploaded
jfb
parents:
diff changeset
12 head(inputtoim)
16160fe81a16 Uploaded
jfb
parents:
diff changeset
13 head(outputtoim)
16160fe81a16 Uploaded
jfb
parents:
diff changeset
14
16160fe81a16 Uploaded
jfb
parents:
diff changeset
15 write.table(x=outputtoim,file = "haspy.csv",row.names = FALSE,col.names = FALSE,sep = ",")