# NOT RUN {
## create
w <- wactor(c("a", "a", "a", "b", "b", "c"))
## summarize
summary(w)
## plot
plot(w)
## predict
predict(w)
## use on NEW data
dtm(w, letters[1:5])
## dtm() is the same as predict()
predict(w, letters[1:5])
## works if you specify 'newdata' too
predict(w, newdata = letters[1:5])
# }
Run the code above in your browser using DataLab