# NOT RUN {
## Generate data from Maillard reaction
simulation.obj <- generate.data.maillard(target=6,
env=rep(1:3, 5),
L=15,
seed=5,
par.noise=list(noise.sd=1))
D <- simulation.obj$simulated.data
time <- simulation.obj$time
env <- simulation.obj$env
target <- simulation.obj$target
## Fit data using CausalKinetiX
ck.fit <- CausalKinetiX(D, time, env, target,
pars=list(expsize=1,
average.reps=TRUE))
# variable ranking (here the true parent is variable 4)
print(ck.fit$ranking)
# }
Run the code above in your browser using DataLab