funkmeans.
funkpanel(fkmobj, semiobj, arr4d, predictor, titl = "", xlab = "", ylab = "", ncluster = nrow(fkmobj$centers), slice = dim(fkmobj$arr.cluster)[3]%/%2, ylim.scatter = NULL, deriv.legend = 0, ylim.legend = NULL, scattermain = NULL, colvec = NULL)funkmeans4d.semipar.mp or
semipar4d.ncluster elements of c("dodgerblue", "green",
"red", "orange", "yellow", "orchid", "brown", "grey", "purple"), if
ncluster < 9.plot.funkmeans,
consists of plots of 30 randomly selected curves, along with the cluster
center, from each cluster.
funkmeans, funkmeans4d,
plot.funkmeans
data(test)
d4 = test$d4
x = test$x
semi.obj = semipar4d(d4, ~sf(x), -5:5, data.frame(x = x))
fdobj = extract.fd(semi.obj)
fkmobj = funkmeans4d(fdobj, d4, ncomp=6, centers=3)
funkpanel(fkmobj, semi.obj, d4, x)
Run the code above in your browser using DataLab