「ぎょーむ日誌」目次に戻る | KuboWeb top に戻る | twilog | atom

ぎょーむ日誌 2001-11-20

苦情・お叱りは, たいへんお手数かけて恐縮ですが, 久保 (kubo@ees.hokudai.ac.jp) までお知らせください.

2001 年 11 月 20 日 (火)

Beta distribution [ベータ分布]
こういう分布です. x ∈ [0,1]
	x <- seq(0, 1, length = 101);
	par(bg = "#d0d0d0", fig = c(0.25, 0.75, 0.15, 0.85))
	for (p in seq(1, 19, length = 10)) {
		plot(
			x, dbeta(x, p, 5),
			xlim = range(0:1), ylim = range(0:5), type = "l"
		);
		par( new = TRUE )
	}
	title( main = "Beta Distribution", font.main=3 )

KuboLog | KuboWeb