Mercurial > repos > taoufik > dream_challenge

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author taoufik
date Sat, 26 Jan 2019 19:38:59 -0500
parents ea02d47cd0c2
children
comparison
equal deleted inserted replaced
2:ea02d47cd0c2 3:6978113c6053
11 training=as.matrix(training) 11 training=as.matrix(training)
12 training=training[,-1] 12 training=training[,-1]
13 rownames(training)<-training1$V1 13 rownames(training)<-training1$V1
14 training=t(training) 14 training=t(training)
15 training=training[,-c(4,7)] 15 training=training[,-c(4,7)]
16 training[,4]<-as.numeric(gsub("HR", "", training[,4])) 16 tp=training[,4]
17 training[,4]=as.numeric(training[,4]) 17 tr=training[,5]
18 tp[tp=="6HR"]<-0
19 tp[tp=="24HR"]<-1
20 tr[tr=="DHA"]<-0
21 tr[tr=="UT"]<-1
22 training[,4]=tp
23 training[,5]=tr
18 fwrite( 24 fwrite(
19 as.data.frame(training),"Format_Dream.tsv",sep="\t" 25 as.data.frame(training),"Format_Dream.tsv",sep="\t"
20 ) 26 )
21 27
22 28