# simulate a dataset with continuous data
dataset <- matrix(runif(1000 * 101, 1, 100), nrow = 1000 )
#the target feature is the last column of the dataset as a vector
target <- dataset[, 100]
dataset <- dataset[, -100]
sesObject <- SES(target , dataset , max_k=3 , threshold = 0.05);
model(target, dataset, sesObject, nsignat = 1, test = NULL)
model(target, dataset, sesObject, nsignat = 40, test = NULL)
Run the code above in your browser using DataLab