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

ぎょーむ日誌 2002-12-(01-10)

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

2002 年 12 月 01 日 (日)

[予備審対策カレー]
私もおしょうばんにあずかってしまった. 小菅せんせーには善行章一本がついたのは 言うまでもない.

2002 年 12 月 02 日 (月)


2002 年 12 月 03 日 (火)

	Call:
	glm(formula = y ~ 1 + x, family = binomial(logit), data = xy)

	Deviance Residuals: 
	     Min        1Q    Median        3Q       Max  
	-3.04534  -0.31143  -0.06511   0.31177   2.66082  

	Coefficients:
		    Estimate Std. Error z value Pr(>|z|)    
	(Intercept)  -2.2899     0.5224  -4.383 1.17e-05 ***
	x             1.0172     0.1844   5.518 3.43e-08 ***
	---
	Signif. codes:  0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1 

	(Dispersion parameter for binomial family taken to be 1)

	    Null deviance: 167.535  on 120  degrees of freedom
	Residual deviance:  63.984  on 119  degrees of freedom
	AIC: 67.984

	Number of Fisher Scoring iterations: 5
logistic

2002 年 12 月 04 日 (水)

pipetree 2002e [PipeTree 2002e]
…… とゆーヴァージョンでした. 左の図 (age 21) は, 毎年のかせぎの 25% を意味もなく 地下部に投入してる状況. 「純粋炭素植物」でなくなったため, それなりに見てくれは良い. 次は 2003a とする予定.

2002 年 12 月 05 日 (木)


2002 年 12 月 06 日 (金)

crepe [予備審クレイプ]
ということで 横須賀市民の面目は保たれたのでした.

2002 年 12 月 07 日 (土)


2002 年 12 月 08 日 (日)


2002 年 12 月 09 日 (月)


2002 年 12 月 10 日 (火)

	xy <- scan("sample.txt", list(x = 0, y = 0))
	require(nls)
	Pmax = 10.2 # きめうち
	psynthesis <- nls(
		y ~ (f * x + Pmax - sqrt((f * x + Pmax)^2 - 4 * (f * x * q * Pmax)))
			/ (2 * q - C), # この式は間違いと翌日判明
		data = xy,
		start = list(f = 0.1, q = 0.5, C = 0.0)
	)
	summary(psynthesis)

	(結果の出力例)
	Parameters:
	  Estimate Std. Error t value Pr(>|t|)    
	f  0.04712    0.00218  21.612  < 2e-16 ***
	q  0.75033    0.05345  14.038  < 2e-16 ***
	C  0.10854    0.01582   6.862 6.63e-10 ***
estimated ps curve [推定されたセン]
上の R コード例の sample (ねつ造曲線+正規乱数) を用いた推定. q の真の値は 0.7 …… あ, 推定値は 0.75 だから値としては そんなにズレてないぞ. f と C はほぼ正しく推定できてる.

KuboLog | KuboWeb