I have a data set:

```
library(quantmod)
getSymbols('GOOG', from = "2010-05-01", to = "2017-05-01", src = "yahoo")

```

I am trying to split this data into train (nrow 1: to nrow 60% of the data), test (nrow 60% of the data to nrow 80% of the data) and finally validate (nrow 80% of the data to nrow 100% of the data).

I have the following;

```
library(caTools)
set.seed(123)
split <- sample.split(GOOG[Close], SplitRatio = 0.60)
train = subset(GOOG, split == TRUE)
nottrain = subset(GOOG, split == FALSE)

```

I am stuck here, I have been trying to split the "nottrain" data set into two parts with little luck.

I also believe that the data set gets split randomly (correct me if I am wrong). I am trying to split it as described above.

Any pointers in the right direction would be greatly appreciated.