Displaying 1 result from an estimated 1 matches for "arcoeff".
Did you mean:
arcoefs
2009 Feb 24
0
Wavelet Bootstrap Size Simulation
...wf = "d8", J = log(length(y), 2) - 1, infl =
sqrt(1.1)){
y.dwt <- dwt(y, wf, n.levels = J)
resample.dwt <- y.dwt
for (i in 1:(length(y.dwt)-1)) {
resample.dwt[[i]] <- sample(y.dwt[[i]]*infl, replace = TRUE)
}
idwt(resample.dwt)
}
#The simulation:
arcoeff<-.9 #AR(1) Coefficient
T<-128 #Realization Length
bsreps<-300 #Number of Bootstrap Replicates used for test
nosims<-20 #Number of Simulations
wspval<-rep(0,nosims) #initialize vector of p-values
#outer loop for recording calculated p-values
for (j in 1:nosims){
series<-arima.sim...