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

#---
df <- maml.mapInputPort(1)
df2 <- maml.mapInputPort(2)
modelrf <- gbm(av9 ~ . , data=df, distribution = "gaussian",n.trees = 100) 
preda<-predict(modelrf,df2,  n.trees = 100)
avcls <-data.frame(preda)
plot.ts(preda)



#-------------
# Output diamonds data set
maml.mapOutputPort("avcls");