## Not run:
#
# ###simulate data
# set.seed(seed = 3)
# TIME = runif(n=300, min = 0, max = 10)
# GRAD = runif(n=300, min = 0, max = 60)
# DATA1 <- sim.sisters(TIME = TIME, GRAD=GRAD, parameters = c(2, -0.03),
# model=c("BM_linear"))
#
# ###run power.test
# model = c("BM_linear")
# power.test(TIME=TIME, GRAD=GRAD, parameters = c(2, -0.03), test.model="BM_linear",
# threshold_deltaAICc = c((1:20)*0.5), REP=1, N=2, write = "FALSE", wd = "")
# ## End(Not run)#end dontrun
Run the code above in your browser using DataLab