# Load the data:
data(PAYF)
# Store the name of the conditions in one vector:
conds <- c("HE","GG","AH","HI","HW")
# Create several solutions:
# The initial solution
IS <- minimize(data = PAYF,
outcome = "HL",
conditions = conds,
incl.cut = 0.87,
n.cut = 2,
include = "?",
details = TRUE,
show.cases = TRUE)
# altering consistency
TS1 <- minimize(data = PAYF,
outcome = "HL",
conditions = conds,
incl.cut = 0.7,
n.cut = 2,
include = "?",
details = TRUE, show.cases = TRUE)
#altering n.cut
TS2 <- minimize(data = PAYF,
outcome = "HL",
conditions = conds,
incl.cut = 0.87,
n.cut = 1,
include = "?",
details = TRUE, show.cases = TRUE)
# Create the test set in a list:
TS <- list(TS1, TS2)
# Plotting the initial solution against the test set:
rob.xyplot(test_sol = TS,
initial_sol = IS,
outcome = "HL",
fontsize = 2.5,
jitter=TRUE)
Run the code above in your browser using DataLab