//! /* This script requires JMP® to run. Download a 30-day free trial from jmp.com/trial */ Names Default To Here( 1 ); dt = Open( "$SAMPLE_DATA/Cherts.jmp" ); obj = Hierarchical Cluster( Y( :Al, :Mn, :Na, :Br, :Ce, :Co, :Cr, :Cs, :Eu, :Fe, :Hf, :La, :Sc, :Sm, :U ), Method( "Ward" ), Standardize( 1 ), Dendrogram Scale( "Distance Scale" ), Number of Clusters( 9 ), Constellation Plot( 1 ), SendToReport( Dispatch( {}, "Dendrogram", OutlineBox, {Close( 1 ), SetHorizontal( 1 )} ) ) );