automl_predict {automl} | R Documentation |
Predictions function, to apply a trained model on datas
automl_predict(model, X, layoutputnum)
model |
model trained previously with automl_train or automl_train_manual |
X |
inputs matrix or data.frame (containing numerical values only) |
layoutputnum |
which layer number to output especially for auto encoding (default 0: no particular layer, the last one) |
##REGRESSION (predict Sepal.Length given other parameters) data(iris) xmat <- as.matrix(cbind(iris[,2:4], as.numeric(iris$Species))) ymat <- iris[,1] amlmodel <- automl_train_manual(Xref = xmat, Yref = ymat, hpar = list(modexec = 'trainwpso', verbose = FALSE)) res <- cbind(ymat, automl_predict(model = amlmodel, X = xmat)) colnames(res) <- c('actual', 'predict') head(res) # ## Not run: ##CLASSIFICATION (predict Species given other Iris parameters) data(iris) xmat = iris[,1:4] lab2pred <- levels(iris$Species) lghlab <- length(lab2pred) iris$Species <- as.numeric(iris$Species) ymat <- matrix(seq(from = 1, to = lghlab, by = 1), nrow(xmat), lghlab, byrow = TRUE) ymat <- (ymat == as.numeric(iris$Species)) + 0 amlmodel <- automl_train_manual(Xref = xmat, Yref = ymat, hpar = list(modexec = 'trainwpso', verbose = FALSE)) res <- cbind(ymat, round(automl_predict(model = amlmodel, X = xmat))) colnames(res) <- c(paste('act',lab2pred, sep = '_'), paste('pred',lab2pred, sep = '_')) head(res) ## End(Not run)