# NOT RUN {
library(caret)
df <- data.frame(a=c(1,2,3,1),
b=c('m','f','m','m'),
c=c(0.7,1.4,2.4,2.0),
d=c(100,250,200,150))
# Get alternate feature scenarios
dfResult <- calculateSDChanges(df=df,
rowNum=2,
sizeOfSDPerturb = 0.5,
numColLeaveOut='d')
y <- c('y','n','y','n')
# Train model on original data frame
glmOb <- train(x = df,y = y,method = 'glm',family = 'binomial')
outList <- calulcateAlternatePredictions(df=dfResult,
modelObj=glmOb,
type='lasso')
outList
# }
Run the code above in your browser using DataLab