# NOT RUN {
data(think)
think.ndl <- ndlClassify(Lexeme ~ Agent + Patient + Section, data=think)
plot(think.ndl, values="weights")
plot(think.ndl, values="weights", type="hist", panes="multiple")
plot(think.ndl, values="weights", type="density", panes="multiple")
plot(think.ndl, values="weights", type="density", panes="multiple",
predictors="Section*")
plot(think.ndl, values="weights", type="density", panes="multiple",
predictors="Patient*")
plot(think.ndl, values="weights", type="hist", panes="multiple", col=1:4)
plot(think.ndl, values="weights", type="density", panes="single",
outcomes=c("ajatella","miettia","pohtia","harkita"))
plot(think.ndl, values="probabilities")
plot(think.ndl, values="probabilities", panes="multiple")
plot(think.ndl, values="probabilities", select="max")
plot(think.ndl, values="probabilities", select=c(1:3))
plot(think.ndl, values="probabilities", panes="multiple", select=c(1:3))
plot(think.ndl, values="probabilities", type="sort", legend.position="topleft")
plot(think.ndl, values="probabilities", type="sort", pch=".",
legend.position="topleft")
plot(think.ndl, values="probabilities", type="sort", pch=".", panes="multiple")
# }
Run the code above in your browser using DataLab