# NOT RUN {
te <- na.omit(bufbuf[,"te"])
tb <- na.omit(bufbuf[,"tb"])
E_bootstrapped <- bootstrap_E(te, tb,
19.35, 26.44,
'hertz',
1000)
# }
Run the code above in your browser using DataLab