スーパーpre記法を使ったシンタックス・ハイライトの実験

Ｒだとどんな感じになるのかな。

# パッケージの読み込み
library(car)
library(datasets)

# データセットの読み込み
data(iris)

# ヒストグラム付き散布図行列の描画
scatterplot.matrix(
	~Petal.Length+Petal.Width+Sepal.Length+Sepal.Width | Species,
	reg.line=lm,
	smooth=FALSE,
	span=0.5,
	diagonal= 'histogram',
	by.groups=TRUE,
	data=iris)

# 階層型クラスタリング（ウォード法）
HClust.1 <- hclust(dist(model.matrix(
		~-1 + Petal.Length+Petal.Width+Sepal.Length+Sepal.Width, iris))^2,
	method= "ward")
plot(	HClust.1,
	main= "Cluster Dendrogram for Solution HClust.1",
	xlab= "Observation Number in Data Set iris",
	sub="Method=ward; Distance=squared-euclidian")