diff FormatDream.R @ 3:6978113c6053 draft default tip

Uploaded
author taoufik
date Sat, 26 Jan 2019 19:38:59 -0500
parents ea02d47cd0c2
children
line wrap: on
line diff
--- a/FormatDream.R	Sat Jan 26 19:22:24 2019 -0500
+++ b/FormatDream.R	Sat Jan 26 19:38:59 2019 -0500
@@ -13,8 +13,14 @@
 rownames(training)<-training1$V1
 training=t(training)
 training=training[,-c(4,7)]
-training[,4]<-as.numeric(gsub("HR", "", training[,4]))
-training[,4]=as.numeric(training[,4])
+tp=training[,4]
+tr=training[,5]
+tp[tp=="6HR"]<-0
+tp[tp=="24HR"]<-1
+tr[tr=="DHA"]<-0
+tr[tr=="UT"]<-1
+training[,4]=tp
+training[,5]=tr
 fwrite(
   as.data.frame(training),"Format_Dream.tsv",sep="\t"
 )