Mercurial > repos > jfb > py_data_cleanup

annotate pYtime/xytime.R @ 0:16160fe81a16 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author jfb
date Tue, 27 Feb 2018 11:27:07 -0500
parents
children 72fbbff22c5c
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
16160fe81a16 Uploaded
jfb
parents:
diff changeset
5 YsToim<-rep("xY",times=nrow(inputtime)-1)
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 = ",")