LoadVideoFeatures <- function(csv_file){
  options( stringsAsFactors=F )
  df = read.csv(csv_file)
  data_to_numeric_list = function(col) lapply(col, function(x) as.numeric(strsplit(x, "\\s+")[[1]]))
  return(apply(df, 2, data_to_numeric_list))
}


Add function to parse csv file better
Add function to parse csv file better

Signed-off-by: Cody W. Eilar <c951a9dfd6009d72a7222f9697e33f76af2d5e79@Gmail.com>
