## Missing at random features
train <- heart[1 : 199, ]
test <- heart[200 : 300, ]
marobj <- autoMAR (train, aucv = 0.9, strataname = NULL, stratasize = NULL, mar_method = "glm")
## print summary in console
testobj <- predictAutoMAR(marobj, test)
Run the code above in your browser using DataLab