data(calspeedflow)
lpc1 <- lpc(calspeedflow[,3:4])
plot(lpc1)
data(mussels, package="dr")
lpc2 <- lpc(mussels[,-3], x0=as.numeric(mussels[49,-3]), scaled=FALSE)
pairs(lpc2$LPC, panel="lines", labels= c("H","L","S","W") )
data(gaia)
s <- sample(nrow(gaia),200)
gaia.pc <- princomp(gaia[s,5:20])
lpc3 <- lpc(gaia.pc$scores[,c(2,1,3)],scaled=FALSE)
plot(lpc3,curvecol=2)Run the code above in your browser using DataLab