library(needs)
library(dplyr)
needs(xgboost)

set.seed(42)
attach(input[[1]])

rawData = read.table(streamFilename, header=FALSE, sep=",")
matrixViviendas = as.matrix(rawData);

dtrain <- xgb.DMatrix(data = matrixViviendas, label = arrayLabel,)
bstSparse <- xgboost( data = dtrain, max.depth = 4, eta = 1, nthread = 4, nrounds = 200)
if (file.exists("apartamentos-model.model")) {
    file.remove("apartamentos-model.model")
}
xgb.save(bstSparse, "apartamentos-model.model")
obj <- list(
    request_status =        "ASTEG::SYSTEM::OK",
    operation_message =     "ASTEG::SYSTEM::CREATED-FILE::apartamentos-model.model "
)