- orig_file = file(orig_csv_file, open="r")
- ignored = readLines(orig_file, 1) #skip header
+ datetimes = #...TODO: all 3 years? year-by-year is better
+ orig_con = file(orig_csv, open="r") #2009, 2010 or 2011
+ ignored = readLines(orig_con, 1) #skip header
+ serie_length = length(datetimes) #around 365*24*2 = 17520
+ sep = if (year==2009) "," else if (year==2010) ";" else ";"