data(BloodBrain)
# one variable has one unique value
preProc <- preProcess(bbbDescr[1:100,])
preProc <- preProcess(bbbDescr[1:100,-3])
training <- predict(preProc, bbbDescr[1:100,-3])
test <- predict(preProc, bbbDescr[101:208,-3])
Run the code above in your browser using DataLab