# HG changeset patch
# User taoufik
# Date 1548549539 18000
# Node ID 6978113c6053c4e9be9a60d8ffb7e2bde2fe69e3
# Parent  ea02d47cd0c29dacb7027d547fc53e7873cf4e69
Uploaded

diff -r ea02d47cd0c2 -r 6978113c6053 FormatDream.R
--- 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"
 )