#Cluster
big <- subset(mammals, subset=(body > median(body)))
d <- dist(log(big))
h <- hclust(d, method = "complete")
plot(h)
#Polygon
plot(log(mammals$body), log(mammals$brain),
xlab = "log(body)", ylab = "log(brain)")
y <- log(mammals[c("Grey wolf", "Cow", "Human"),])
polygon(y)
#chickwts # most juicy
boxplot(weight ~ feed, chickwts)
[/ code][/math] tags to insert blocks of code that run with a single copy&paste on any system. Edit your posts if you would like to add them.
TE