## 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 parameter.reestimation
# model = c("BM_linear")
# parameter.reestimation(GRAD, TIME, model=model, PARAMETERS=c(2, -0.03),
# N=100, REP = 1)
# ## End(Not run)#end dontrun
Run the code above in your browser using DataLab