MODECLUS Analysis of Mammals' Teeth Data
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: MODECLU3 */
/* TITLE: MODECLUS Analysis of Mammals' Teeth Data */
/* PRODUCT: SAS */
/* SYSTEM: ALL */
/* KEYS: CLUSTER */
/* PROCS: MODECLUS */
/* DATA: */
/* */
/* SUPPORT: saswfk UPDATE: */
/* REF: */
/* MISC: */
/* */
/****************************************************************/
TITLE "Modeclus Analysis of Mammals' Teeth Data";
data teeth;
input Mammal $ 1-16 @21 (v1-v8) (1.);
label v1='Top Incisors'
v2='Bottom Incisors'
v3='Top Canines'
v4='Bottom Canines'
v5='Top Premolars'
v6='Bottom Premolars'
v7='Top Molars'
v8='Bottom Molars';
datalines;
Brown Bat 23113333
Mole 32103333
Silver Hair Bat 23112333
Pigmy Bat 23112233
House Bat 23111233
Red Bat 13112233
Pika 21002233
Rabbit 21003233
Beaver 11002133
Groundhog 11002133
Gray Squirrel 11001133
House Mouse 11000033
Porcupine 11001133
Wolf 33114423
Bear 33114423
Raccoon 33114432
Marten 33114412
Weasel 33113312
Wolverine 33114412
Badger 33113312
River Otter 33114312
Sea Otter 32113312
Jaguar 33113211
Cougar 33113211
Fur Seal 32114411
Sea Lion 32114411
Grey Seal 32113322
Elephant Seal 21114411
Reindeer 04103333
Elk 04103333
Deer 04003333
Moose 04003333
;
proc modeclus data=teeth std list m=1 k=3 to 8;
id mammal;
run;
proc modeclus data=teeth std list m=1 r=1.50 to 3.00 by .25;
id mammal;
run;
proc modeclus data=teeth std list m=1 ck=3 r=1.50 to 3.00 by .25;
id mammal;
run;