# load the potery data set
data( poteries )
# Compute one-way ANOVA p-values for all ratios in this data set
Mp <- creer.Mp( poteries, c( 'Al', 'Na', 'Fe', 'Ca', 'Mg' ),
f.p = anva1.fpc, v.X = 'Site' )
# Build the tree (in log scale, p-values are all < 0.01)
arbre <- arbre.Mp( Mp, en.log = TRUE )
# It is a dendrogram as defined in the cluster package
str( arbre )
class( arbre )
# Drawing this tree
plot( arbre )
Run the code above in your browser using DataLab