Rサンプル11 の変更点 - hnami.net

追加された行はこの色です。
削除された行はこの色です。
Rサンプル11 へ行く。
Rサンプル11 の差分を削除

[[一般化最小二乗法と識別問題]]

 qset <- read.csv("d/sample10.csv", header=TRUE) 
 attach (qset)
 dem <- P ~ Q + R 
 sup <- P ~ Q + S
 labels <- list( "demand", "supply" )
 system <- list( dem, sup )
 inst <- ~ R + S
 sysols <- systemfit( "OLS", system, labels, inst)
 summary(sysols)
 sys2sls <- systemfit( "2SLS", system, labels, inst)
 summary(sys2sls)