rm(list=ls(all=TRUE)) #start with empty workspace
library(dplyr)
library(tidyr)
library(stringr)


sub_sample <- 1
subject <- 1

i <- 1

        file_name_eeg <- paste('../input/train/subj',subject,'_series',i,
                               '_data.csv',sep='') 
        file_name_events <- paste('../input/train/subj',subject,'_series',i,
                                  '_events.csv',sep='') 
        eeg <- read.csv(file_name_eeg, header=TRUE,
                        colClasses=c("character",rep("numeric",32)))#read data.csv based on file name
        events <- read.csv(file_name_events,header=TRUE,
                           colClasses=c("character",rep("numeric",6))) #read events.csv based on file name

read.csv("../input/train/subj1_series1_data.csv",nrow=2)

head(eeg);head(events)