Displaying 1 result from an estimated 1 matches for "rtomega".
Did you mean:
omega
2007 Aug 16
0
summarising systemfit with saveMemory
...t("McElroy's R-squared value for the system: ")
cat(formatC(x$mcelr2, digits = digits, width = -1))
cat("\n")
}
<<--SNIP-->>
combined with
> systemfit
<<--SNIP-->>
if (!saveMemory) {
<<--SNIP-->>
mcelr2 <- 1 - (rtOmega %*% resids)/denominator
}
else {
mcelr2 <- NA
}
<<--SNIP-->>
Or am I missing something here. Thanks in advance.
--
Tim Calkins
0406 753 997