# NOT RUN {
## first calculate the EDOF for the ocean series
edof <- wavEDOF(ocean)
## calculate the 95% confidence intervals for EDOF
## mode 1
wavVarConfidence(edof$variance.unbiased, edof$EDOF1)
# }
Run the code above in your browser using DataLab