# generate simulated data with no real variance heterogeneity
y <- sim.GRW(20, 0, 1)
bart <- test.var.het(y) # nonsignificant 95% of the time!
ys<- pool.var(y, ret.paleoTS=TRUE)
cat (ys$vv) # note all variances now the same
Run the code above in your browser using DataLab