Fix xy plot

public/biopet-framework/src/main/resources/nl/lumc/sasc/biopet/tools/plotXY.R

-library('gplots')
 library('ggplot2')
 library('reshape2')
 
@@ -6,24 +5,14 @@ args <- commandArgs(TRUE)
 inputArg <- args[1]
 outputArg <- args[2]
 
-print(inputArg)
-print(outputArg)
-
 tsv<-read.table(inputArg, header = 1, sep= '\t', stringsAsFactors = F)
 
-print(inputArg)
-print(outputArg)
-
 data <- melt(tsv)
-#colnames(data) <- c("x", "sample", "value")
 
 data$X <- as.numeric(data$X)
 data <- na.omit(data)
 data <- data[data$value > 0,]
 
-print(inputArg)
-print(outputArg)
-
 print("Starting to plot")
 png(file = outputArg, width = 1500, height = 1500)
 ggplot(data, aes(x=X, y=value, color=variable, group=variable)) + geom_line()