기본적으로 r은 python과 다르게 df.iloc[1:,] 같은 슬라이스 기능이 없다.
시계열데이터의 경우 train, test set을 random으로 선택하지 않고 날짜별로 정렬된 상태에서 일부만 test set으로 활용된다.
이때 간접적인 방법이 존재한다.
data_train<-lapply(data,
function(ldata){
train<-head(ldata,floor(nrow(ldata)*0.7))
return(train)
})
data_test<-lapply(data,
function(ldata){
test<-tail(ldata,nrow(ldata)-floor(nrow(ldata)*0.7))
return(test)
})