Mercurial > repos > taoufik > dream_challenge

view FormatDream.R @ 1:7c746038ed87 draft

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:02:54 -0500
parents
children ea02d47cd0c2
line wrap: on
line source

log_file=file("Read_Dataset.log", open = "wt")
sink(log_file)
sink(log_file, type = "out") 
suppressWarnings(suppressMessages(library("batch")))
suppressWarnings(suppressMessages(library(data.table)))
listArguments = parseCommandArgs(evaluate=FALSE)
datasetsource = listArguments[["datasetsource"]]

training=fread(datasetsource,header = T)
training1=fread(datasetsource,header = T)
training=as.matrix(training)
training=training[,-1]
rownames(training)<-training1$V1
training=t(training)
training=training[,-c(4,7)]
fwrite(
  as.data.frame(training),"Format_Dream.tsv",sep="\t"
)