R Under development (unstable) (2023-12-02 r85657 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(ordinal)
> data(wine)
> 
> 
> ### 3 options for specifying control arguments:
> ## 1) control is a simple list, e.g. list(trace=-1)
> ## 2) control is a call to clmm.control
> ## 3) control is an empty list; list()
> ## all in combination with extra control arguments.
> 
> ordinal:::getCtrlArgs(clmm.control(), list(maxIter=200))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 200

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(list(), list(maxIter=200))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 200

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(list(), list(trace=-1))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 1

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(list(), list(trace=1))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(list(), list())
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(list(maxIter=2), list())
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 2

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> 
> ordinal:::getCtrlArgs(clmm.control(), list())
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(maxIter=100), list(maxIter=200))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 200

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(maxIter=100), list(maxIter=200))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 200

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(), list(trace=1))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(), list(trace=-1))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 1

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(trace=1), list())
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(trace=-1), list())
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 1

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(trace=0), list())
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 0

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 0


$checkRanef
[1] "warn"

> ## Don't specify trace twice - surprising behavior might occur: 
> ordinal:::getCtrlArgs(clmm.control(trace=1), list(trace=-1))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 1

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> ordinal:::getCtrlArgs(clmm.control(trace=-1), list(trace=1))
$method
[1] "nlminb"

$useMatrix
[1] FALSE

$ctrl
$ctrl$trace
[1] 1

$ctrl$maxIter
[1] 50

$ctrl$gradTol
[1] 1e-04

$ctrl$maxLineIter
[1] 50

$ctrl$innerCtrl
[1] "warnOnly"


$optCtrl
$optCtrl$trace
[1] 1


$checkRanef
[1] "warn"

> 
> proc.time()
   user  system elapsed 
   1.43    0.28    1.68