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

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)

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2008-12-11 (木) 22:19:24 (5699d)