Displaying 1 result from an estimated 1 matches for "system_out".
Did you mean:
system_auth
2009 Apr 13
2
joint estimation of two poisson equations
...y necessary.
I'll post my solution to the list when I've worked it out.
Regards,
~Owen
# CODE FOR "sur" OPTION
rm(list = ls())
library(Zelig)
y1 = c(1,2,3,4)
y2 = c(0,2,0,2)
x = c(2,3,4,8)
d = data.frame(cbind(y1, y2, x))
eq1 = y1 ~ x
eq2 = y2 ~ x
eqSystem = list (eq1, eq2)
system_out = zelig(formula = eqSystem, model = "sur", data = d)
summary(system_out)
-----------------------------------------------------------------
# ERROR FROM REPLACING "sur" WITH "poisson"
Error in switch(mode(x), `NULL` = structure(NULL, class = "formula"), :...