model <- list(model="whittle", param=c(1,2,3,4,5))
Print(PrepareModel(model=model, me="ci"))
model <- list("+",
list("$", var=2, s=4, list(model="whi", kappa=5)),
list("$", var=3, s=0, list(model="whi", kappa=1)) )
Print(PrepareModel(model=model, me="ci"))
Run the code above in your browser using DataLab