PICKMDL information as a list

Extract ok, ok_final and mdl_nr

Usage

ok(sa)

Arguments

sa

Output from x13_pickmdl

Value

List constructed from comment attribute

See also

crit_ok

Examples

myseries <- pickmdl_data("myseries")

a <- x13_pickmdl(myseries, x13_spec(spec = "RSA3", transform.function = "Log"))
b <- x13_pickmdl(myseries, x13_spec(spec = "RSA3", transform.function = "None"))
#> Warning: No model is ok according to criteria

comment(a)
#>       ok ok_final   mdl_nr 
#>   "TRUE"   "TRUE"      "3" 
comment(b)
#>       ok ok_final   mdl_nr 
#>  "FALSE"  "FALSE"      "1" 
ok(a)
#> $ok
#> [1] TRUE
#> 
#> $ok_final
#> [1] TRUE
#> 
#> $mdl_nr
#> [1] 3
#> 
ok(b)
#> $ok
#> [1] FALSE
#> 
#> $ok_final
#> [1] FALSE
#> 
#> $mdl_nr
#> [1] 1
#>