#!/usr/bin/env Rscript
# Title:
# Version: 
# Author: Frédéric CHEVALIER <fcheval@txbiomedgenetics.org>
# Created in: 2014-0
# Modified in:



#==========#
# Comments #
#==========#





#===================#
# Packages required #
#===================#

# library(getopt)



#===========#
# Functions #
#===========#

#-------------------------#
# Function to save tables #
#-------------------------#

save.mytable <- function (x, filename, ext=".tsv", sep="\t", col.names=FALSE, row.names=FALSE, append=FALSE){
	# Folder creation for table output (if does not exist)
	if (file.exists("Results/") == FALSE) {dir.create("Results")}
	
	# Data export
	write.table(x, file=paste("Results/",filename, ext, sep=""), col.names=col.names, row.names=row.names, append=append, sep=sep)
}



#===========#
# Variables #
#===========#

# Data file
myfile <- ""
mydata <- read.csv(myfile, header=TRUE, sep=";")

# Object contaning the input file name
filename <- strsplit(myfile,".csv")



#=================#
# Data processing #
#=================#





#========#
# Curves #
#========#




#=========#
# Figures #
#=========#



# Create the graph folder if it do not already exist
if (file.exists("Graphs/") == FALSE) {dir.create("Graphs")}

pdf(file=paste("Graphs/", name, ".pdf", sep="")

# Draw graph here

dev.off()