Displaying 1 result from an estimated 1 matches for "ytit".
Did you mean:
tit
2013 Apr 23
0
adding the second regressor
...???
for (fmp in 1:1){
cat ("Tax and Spend, Linear ","\n")
cat ("\n")
whiten <- 1
kernel <- 3
band <- 4
out <- fm(y,x,1,1)
cat ("\n")
cat ("\n")
if (fplot == 1){
mtit <- "Ependiture, 1986:2011"
xtit <- "Figure 1"
ytit <- "F stat"
t <- nrow(y)
firstob <- 1986 + round(.15*t)/4
inc <- .25
rf <- nrow(out$f)
crit <- matrix(1,rf,1)%*%cbind(15.2,6.22,7.815)
ytics <- range(cbind(out$f,crit))
xx <- as.matrix(seq(firstob,firstob+(rf-1)*inc,inc))
plot(xx,out$f,type="l",ylim=ytics...