File: Rcode-8-2.R

package info (click to toggle)

urca 1.3-3-1

links: PTS, VCS
area: main
in suites: bookworm
size: 2,432 kB
sloc: fortran: 501; ansic: 15; makefile: 2

file content (9 lines) | stat: -rwxr-xr-x 335 bytes

parent folder | download | duplicates (7)

beta <- H1@V
beta[,2] <- beta[,2]/beta[4,2]
beta[,3] <- beta[,3]/beta[4,3]
alpha <- H1@PI%*%solve(t(beta))
beta1 <- cbind(beta[,1:2], H1@V[,3:5]) 
ci.1 <- ts((H1@x%*%beta1)[-c(1,2),], start=c(1972, 3),
           end=c(1987, 2), frequency=4)
ci.2 <- ts(H1@RK%*%beta1, start=c(1972, 3),
           end=c(1987, 2), frequency=4)