This function is an alias for based_on().

ctl_contents(...)

Arguments

...

Arguments to be passed to based_on().

Value

An nm object with modified ctl_contents field.

Examples


# 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"
#>