minor corrections

1 files changed, 1 insertions, 1 deletions

diff --git a/R/sim.R b/R/sim.R
index a3257f6..ea1f225 100644
--- a/R/sim.R
+++ b/R/sim.R
@@ -49,7 +49,7 @@ sim.idpoly <- function(model,input,addNoise = F,innov=NULL,seed=NULL){
       ek <- innov
     } else{
       if(!is.null(seed)) set.seed(seed)
-      ek <- rnorm(n,sd=model$noiseVar)
+      ek <- rnorm(n,sd=sqrt(model$noiseVar))
     }
     den1 <- as.numeric(polynomial(model$A)*polynomial(model$D))
     filt1 <- Arma(b=model$C,a=den1)