# NOT RUN {
rep <- system.file("extdata", package="RclusTool")
traindir <- file.path(rep, "train_example")
train <- readTrainSet(traindir)
train <- dropTrainSetVars(train, c("Id", "i..ID", "ArrivalTime", "X"))
# }
Run the code above in your browser using DataLab