## 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), model=c("BM_null"))
#
# ###run typeI error test. This should be run for a minimum of N=1000 simulations
# TypeI.error(TIME, GRAD, beta=2, null.model="BM_null", REP=1, N=10,
# write.file = "FALSE", wd = "")
# ## End(Not run)#end dontrun
Run the code above in your browser using DataLab