summaryrefslogtreecommitdiff
path: root/R/nonparam.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/nonparam.R')
-rw-r--r--R/nonparam.R3
1 files changed, 2 insertions, 1 deletions
diff --git a/R/nonparam.R b/R/nonparam.R
index 932b97d..487dbcd 100644
--- a/R/nonparam.R
+++ b/R/nonparam.R
@@ -94,7 +94,8 @@ plot.impulseest <- function(model,sig=0.975){
impulseplot <- function(model,sig){
lim <- model$se*qnorm(sig)
- ylim <- c(min(coef(model)),max(coef(model)))
+ max <- max(abs(coef(model)))
+ ylim <- c(-max,max)
title <- paste("Impulse Response \n From",model$x,"to",model$y)
plot(model$lags,coef(model),type="h",xlab="Lag",ylab= "IR Coefficient",