This function is an alias for based_on().
ctl_contents(...)Arguments to be passed to based_on().
An nm object with modified ctl_contents field.
# create example object m1 from package demo files
exdir <- system.file("extdata", "examples", "theopp", package = "NMproject")
m1 <- new_nm(run_id = "m1",
based_on = file.path(exdir, "Models", "ADVAN2.mod"),
data_path = file.path(exdir, "SourceData", "THEOPP.csv"))
m1 %>% ctl_contents()
#> $`execute.Models/m1`
#> $PROB
#> 1| ;; 1. Based on: NA
#> 2| ;; 2. Description: 1CMT+oral
#> 3| ;; x1. Author: runner
#> 4|
#> 5| $PROBLEM ...
#> 6|
#> 7| ;; 4. Date: 01.01.2011
#> 8| ;; 5. Version: 1
#> 9| ;; 6. Label:
#> 10| ;; Basic model
#> 11| ;; 7. Structural model:
#> 12| ;; One compartment model
#> 13| ;; 8. Covariate model:
#> 14| ;; No covariates
#> 15| ;; 9. Inter-individual variability:
#> 16| ;; CL and V1.
#> 17| ;; 10. Inter-occasion variability:
#> 18| ;; No IOV
#> 19| ;; 11. Residual variability:
#> 20| ;; Additive + Proportional
#> 21| ;; 12. Estimation:
#> 22| ;; IMP
#> 23|
#>
#> $INPUT
#> 1| $INPUT ...
#>
#> $DATA
#> 1| $DATA ../../../../../../../../../../Users/runner/work/_temp/Library/NMproject/extdata/examples/theopp/SourceData/THEOPP.csv IGNORE=@
#>
#> $SUB
#> 1| $SUB ADVAN2
#> 2|
#>
#> $PK
#> 1| $PK
#> 2|
#> 3| TVKA=EXP(THETA(1))
#> 4| MU_1=LOG(TVKA)
#> 5| KA = EXP(MU_1+ETA(1))
#> 6|
#> 7| TVK=EXP(THETA(2))
#> 8| MU_2=LOG(TVK)
#> 9| K = EXP(MU_2+ETA(2))
#> 10|
#> 11| TVV=EXP(THETA(3))
#> 12| MU_3=LOG(TVV)
#> 13| V = EXP(MU_3+ETA(3))
#> 14|
#> 15| CL = K*V
#> 16|
#> 17| S2 = V
#> 18|
#>
#> $ERROR
#> 1| $ERROR
#> 2|
#> 3| IPRED=F
#> 4| W=SQRT(SIGMA(1,1)*IPRED**2 + SIGMA(2,2)) ; proportional + additive error
#> 5| IRES=DV-IPRED
#> 6| IWRES=IRES/W
#> 7| Y=IPRED + IPRED*EPS(1) + EPS(2)
#> 8|
#> 9|
#>
#> $THETA
#> 1| $THETA
#> 2| ..... ; KA ; h-1 ; LOG
#> 3| ..... ; K ; h-1 ; LOG
#> 4| ..... ; V ; L ; LOG
#> 5|
#>
#> $OMEGA
#> 1| $OMEGA
#> 2| 0.1 ; IIV_KA ; LOG
#> 3| 0.1 ; IIV_K ; LOG
#> 4| 0.1 ; IIV_V ; LOG
#> 5|
#>
#> $SIGMA
#> 1| $SIGMA
#> 2| 0.1 ; prop error
#> 3| ..... ; add error
#> 4|
#> 5|
#>
#> $EST
#> 1| ; Parameter estimation - FOCE
#> 2| ;$EST METHOD=1 INTER NOABORT MAXEVAL=9999 PRINT=1 NSIG=3 SIGL=9
#> 3|
#> 4| ; Parameter estimation - IMP
#> 5| $EST METHOD=IMP ISAMPLE=300 NITER=300 RANMETHOD=3S2P
#> 6| CTYPE=3 CITER=10 CALPHA=0.05 CINTERVAL=3
#> 7| PRINT=1 NOABORT INTERACTION
#> 8|
#> 9| ; Parameer estimation - SAEM
#> 10| ;$EST METHOD=SAEM ISAMPLE=2 NBURN=1000 NITER=500 RANMETHOD=3S2P
#> 11| ;CTYPE=3 CITER=10 CALPHA=0.05 CINTERVAL=10
#> 12| ;PRINT=1 NOABORT INTERACTION
#> 13|
#> 14| ; Objective function and covariance evaluation
#> 15| $EST METHOD=IMP INTER EONLY= 1 MAPITER=0 ISAMPLE = 2000 NITER = 10 RANMETHOD=3S2P NOABORT PRINT=1 NSIG=3 SIGL=9
#> 16|
#>
#> $COV
#> 1| $COV MATRIX=R PRINT=E UNCONDITIONAL SIGL=10
#> 2|
#>
#> $SIM
#> 1| ;$SIM (1234) ONLYSIM SUBPR=1
#> 2|
#>
#> $TABLE
#> 1| $TABLE ID TIME IPRED IWRES IRES CWRES NPDE
#> 2| FILE=sdtabm1 NOPRINT ONEHEADER
#> 3| $TABLE ID ETAS(1:LAST); individual parameters
#> 4| FILE=patabm1 NOPRINT ONEHEADER
#> 5| $TABLE ID ; continuous covariates
#> 6| FILE=cotabm1 NOPRINT ONEHEADER
#> 7| $TABLE ID ; categorical covariates
#> 8| FILE=catabm1 NOPRINT ONEHEADER
#>
#> attr(,"class")
#> [1] "ctl_list"
#>