This package can be used for fitting multivariate data patterns with local principal curves, including tools for data compression (projection) and measuring goodness-of-fit; with some additional functions for mean shift clustering.
library(LPCM) data(calspeedflow) lpc1 <- lpc(calspeedflow[,3:4]) plot(lpc1, lwd=2, curvecol="red")
ms1 <- ms(calspeedflow[,3:4], plot=FALSE) plot(ms1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.