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)]
training[,4]<-as.numeric(gsub("HR", "", training[,4]))
training[,4]=as.numeric(training[,4])
fwrite(
  as.data.frame(training),"Format_Dream.tsv",sep="\t"
)