R/ysb.R

Defines functions ysb

ysb <-
function(x,b,e)
{
    p <- length(b)-1
    n <- nrow(x)
    y <- x
    for(i in (n-p):1)
        y[i,1] <- b[p+1,1] + sum(b[1:p,1]*y[(i+1):(i+p),1]) + e[i]
    return(y)
}

Try the BootPR package in your browser

Any scripts or data that you put into this service are public.

BootPR documentation built on Aug. 31, 2023, 9:08 a.m.