Hatena::ブログ(Diary)

極めて個人的なメモ Twitter

Θ・)ノシ Bob#3のメモ帳です。
1972 | 12 |
2003 | 03 | 04 | 05 | 06 | 11 | 12 |
2004 | 01 | 02 | 03 | 04 | 05 | 06 | 09 | 10 | 11 | 12 |
2005 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 09 | 10 | 11 |
2006 | 03 | 04 | 05 | 06 | 07 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 05 | 06 | 07 | 10 | 11 | 12 |
2008 | 01 | 02 | 04 | 05 | 08 | 09 | 10 | 11 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 |
2011 | 05 | 06 | 09 | 10 |
2012 | 02 | 03 | 05 | 06 | 08 |
2013 | 01 | 02 | 03 |
2015 | 02 |

2006-12-17

スーパーpre記法を使ったシンタックス・ハイライトの実験 スーパーpre記法を使ったシンタックス・ハイライトの実験を含むブックマーク スーパー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")
トラックバック - http://d.hatena.ne.jp/bob3/20061217
Connection: close