# example on a single shape
data(shapes)
cat <- coo_sample(shapes[4], 6)
truss(cat)
# example on wings dataset
data(wings)
tx <- truss(wings)
dim(tx)
# we normalize and plot an heatmap
txn <- apply(tx$coe, 2, .normalize)
# heatmap(txn)
txp <- PCA(tx, scale. = TRUE, center=TRUE, fac=wings$fac)
plot(txp, 1)
Run the code above in your browser using DataLab