Skip to content
Prev 60018 / 398502 Next

systemfit - SUR

On Monday 29 November 2004 16:42, contact at thomasalmer.com wrote:
Hi Thomas,
I get identical residual covariance matrices:

R> library(systemfit)
R> data( kmenta )
R> demand <- q ~ p + d
R> supply <- q ~ p + f + a
R> labels <- list( "demand", "supply" )
R> system <- list( demand, supply )
R> fitols <- systemfit("OLS", system, labels, data=kmenta )
R> fitols$rcov
         [,1]     [,2]
[1,] 3.725391 4.136963
[2,] 4.136963 5.784441
R> fitsur <- systemfit("SUR", system, labels, data=kmenta )
R> fitsur$rcovest
         [,1]     [,2]
[1,] 3.725391 4.136963
[2,] 4.136963 5.784441

Did you do _iterated_ SUR?

Best wishes,
Arne