# NOT RUN {
sr1 <- sigratio(formula = y ~ xa + xb + xc, data = sim,
ndisc = c(4,4,5), methoddisc = "quantile",
methodoverlay = "fuzzyAND")
sr2 <- sigratio(formula = y ~ xa + xb + xc, data = sim,
ndisc = c(4,4,5), methoddisc = "quantile",
methodoverlay = "intersection")
sr1$n.zone; sr2$n.zone
sr1$ratio.sigdif; sr2$ratio.sigdif
# }
Run the code above in your browser using DataLab