Vectorized arguments for trun.r functions

[fhui28]

Currently the behaviour of functions created from trun.r is a bit weird to me when you pass you in vectorized arguments?

library(gamlss.tr)
#> Loading required package: gamlss.dist
#> Loading required package: gamlss
#> Loading required package: splines
#> Loading required package: gamlss.data
#> 
#> Attaching package: 'gamlss.data'
#> The following object is masked from 'package:datasets':
#> 
#>     sleep
#> Loading required package: nlme
#> Loading required package: parallel
#>  **********   GAMLSS Version 5.4-22  **********
#> For more on GAMLSS look at https://www.gamlss.com/
#> Type gamlssNews() to see new features/changes/bug fixes.

ztnbR <- trun.r(par = 0, family = NBI()$family[1], type = "left") 

table(ztnbR(5000, mu = 0.1, sigma = 1)) # This creates no zeros, which is to be expected
#> 
#>    1    2    3    4 
#> 4549  407   39    5
table(ztnbR(5000, mu = 1e-5, sigma = 1)) # This creates no zeros, which is to be expected
#> 
#>    1 
#> 5000
table(ztnbR(5000, mu = rep(1e-5, 1000), sigma = 1)) # This also does not create zeros, which is expected
#> 
#>    1 
#> 5000
table(ztnbR(5000, mu = runif(1000), sigma = 1)) # This does create zeros!
#> 
#>    0    1    2    3    4    5    6    7    8    9   10   11 
#> 1795 1977  755  269  116   47   21   10    5    3    1    1

^{Created on 2025-09-24 with reprex v2.1.0}

Session info

sessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#>  setting  value
#>  version  R version 4.3.3 (2024-02-29)
#>  os       Linux Mint 22.1
#>  system   x86_64, linux-gnu
#>  ui       X11
#>  language en_AU:en
#>  collate  en_AU.UTF-8
#>  ctype    en_AU.UTF-8
#>  tz       Australia/Sydney
#>  date     2025-09-24
#>  pandoc   3.4 @ /usr/lib/rstudio/resources/app/bin/quarto/bin/tools/x86_64/ (via rmarkdown)
#> 
#> ─ Packages ───────────────────────────────────────────────────────────────────
#>  package     * version    date (UTC) lib source
#>  cli           3.6.5      2025-04-23 [1] CRAN (R 4.3.3)
#>  digest        0.6.37     2024-08-19 [1] CRAN (R 4.3.3)
#>  evaluate      0.23       2023-11-01 [3] CRAN (R 4.3.2)
#>  fastmap       1.1.1      2023-02-24 [3] CRAN (R 4.2.2)
#>  fs            1.6.5      2024-10-30 [1] CRAN (R 4.3.3)
#>  gamlss      * 5.4-22     2024-03-20 [1] CRAN (R 4.3.3)
#>  gamlss.data * 6.0-6      2024-03-14 [1] CRAN (R 4.3.3)
#>  gamlss.dist * 6.1-1      2023-08-23 [1] CRAN (R 4.3.3)
#>  gamlss.tr   * 5.1-9      2024-01-30 [1] CRAN (R 4.3.3)
#>  glue          1.8.0      2024-09-30 [1] CRAN (R 4.3.3)
#>  htmltools     0.5.8.1    2024-04-04 [1] CRAN (R 4.3.3)
#>  knitr         1.45       2023-10-30 [3] CRAN (R 4.3.2)
#>  lattice       0.22-5     2023-10-24 [4] CRAN (R 4.3.3)
#>  lifecycle     1.0.4      2023-11-07 [1] CRAN (R 4.3.3)
#>  MASS          7.3-60.0.1 2024-01-13 [4] CRAN (R 4.3.2)
#>  Matrix        1.6-5      2024-01-11 [4] CRAN (R 4.3.2)
#>  nlme        * 3.1-164    2023-11-27 [4] CRAN (R 4.3.3)
#>  reprex        2.1.0      2024-01-11 [3] CRAN (R 4.3.2)
#>  rlang         1.1.6      2025-04-11 [1] CRAN (R 4.3.3)
#>  rmarkdown     2.25       2023-09-18 [3] CRAN (R 4.3.2)
#>  rstudioapi    0.17.1     2024-10-22 [1] CRAN (R 4.3.3)
#>  sessioninfo   1.2.2      2021-12-06 [3] CRAN (R 4.1.2)
#>  survival      3.5-8      2024-02-14 [4] CRAN (R 4.3.2)
#>  withr         3.0.2      2024-10-28 [1] CRAN (R 4.3.3)
#>  xfun          0.52       2025-04-02 [1] CRAN (R 4.3.3)
#>  yaml          2.3.10     2024-07-26 [1] CRAN (R 4.3.3)
#> 
#>  [1] /home/fkch/R/x86_64-pc-linux-gnu-library/4.3
#>  [2] /usr/local/lib/R/site-library
#>  [3] /usr/lib/R/site-library
#>  [4] /usr/lib/R/library
#> 
#> ──────────────────────────────────────────────────────────────────────────────

Thanks heaps!