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

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/pYtime/xytime.R	Tue Feb 27 11:27:07 2018 -0500
@@ -0,0 +1,15 @@
+#change all central Ys to xY and do nothing else
+
+inputtoim<-read.csv("needspy.csv",header = FALSE,sep = ",",stringsAsFactors = FALSE)
+
+YsToim<-rep("xY",times=nrow(inputtime)-1)
+YsToim<-c("0",YsToim)
+
+outputtoim<-inputtoim
+
+outputtoim[,11]<-YsToim
+
+head(inputtoim)
+head(outputtoim)
+
+write.table(x=outputtoim,file = "haspy.csv",row.names = FALSE,col.names = FALSE,sep = ",")
\ No newline at end of file