set.seed(113)
library("dplyr")
library("TTR")
library("gbm")

df <- read.csv("C:/OpenMod/testb.csv" , header = TRUE , sep="," , strip.white = TRUE)
df2 <- read.csv("C:/OpenMod/testc.csv" , header = TRUE , sep="," , strip.white = TRUE)
#---
modelrf <- gbm(av9 ~ . , data=df, distribution = "gaussian",n.trees = 100) 
preda<-predict(modelrf,df2,  n.trees = 100)
avcls <-data.frame(preda)
plot.ts(preda)