train.data <- read.csv("../input/train/subj1_series1_data.csv", header=TRUE, stringsAsFactors = FALSE)
train.label <- read.csv("../input/train/subj1_series1_events.csv", header=TRUE, stringsAsFactors = FALSE)

train.label.n.frames <- dim(train.label)[1]

train.label
train.label.n.frames