Displaying 1 result from an estimated 1 matches for "fecov".
Did you mean:
recov
2011 Jul 26
0
Extensión de propiedades de una función
...ien me puede decir en que parte debo incorporar la programación anexada para que pueda utilizar la respectiva función de manera directa?? O saben algun manual para incorporar funciones u propiedades adicionales a programas desarrollados??
Gracias
Atte
Diego
Anexo la programación de interes
".fecov" <-
function(x, n.ahead) {
n.par<-sapply(x$varresult, function(x) summary(x)$df[2])
sigma.u <- crossprod(resid(x))/n.par
Sigma.yh <- array(NA, dim = c(x$K, x$K, n.ahead))
Sigma.yh[, , 1] <- sigma.u
Phi <- Phi(x, nstep = n.ahead)
if (n.ahead > 1) {
for (i in...