if (FALSE) {
plot(res.segclust)
plot(res.segclust, nseg = 10, ncluster = 3)
}
if (FALSE) {
plot_likelihood(res.seg)
}
if (FALSE) {
logLik(res.seg)
}
if (FALSE) {
plot_BIC(res.segclust)
}
if (FALSE) {
plot_BIC(res.segclust)
}
if (FALSE) {
stateplot(res.segclust)
stateplot(res.seg)
}
if (FALSE) {
states(res.segclust)
states(res.seg)
}
if (FALSE) {
segment(res.segclust)
segment(res.segclust, ncluster = 3, nseg = 30)
segment(res.seg)
segment(res.seg, nseg = 4)
}
if (FALSE) {
augment(res.segclust)
augment(res.segclust, ncluster = 3, nseg = 30)
augment(res.seg)
augment(res.seg, nseg = 4)
}
if (FALSE) {
segmap(res.segclust, coord.names = c("x", "y"))
segmap(res.segclust, ncluster = 3, nseg = 30)
segmap(res.seg)
segmap(res.seg, nseg = 4)
}
Run the code above in your browser using DataLab