A0Obs <-
Observation(ObservationName = "A0Obs",
SigmasChosen = list(Additive = 2,
Power = c(Stdev = 10, Power = 0.5)),
Frozen = FALSE,
ResetObs = TRUE,
PMLStructure = "PK1FOC")
CObs <- Observation("CObs", Frozen = TRUE, PMLStructure = "2Cpt")
Run the code above in your browser using DataLab