Skip to contents

Cumulative-link random-intercept mixed model for ordinal responses under a KK matching-on-the-fly design, using the cauchit (inverse-Cauchy-CDF) link: \(\tan(\pi (P(Y_i \le k) - 1/2)) = \alpha_k - (\beta_T W_i + X_i^\top \gamma) - b_{g(i)}\), \(b_g \sim N(0, \sigma_b^2)\), where \(g(i)\) is subject \(i\)'s matched-pair group id. The cauchit link's heavy-tailed latent distribution makes it more robust than logit/probit to a small number of subjects near the response's extreme categories. See InferenceAbstractKKOrdinalCLMM for the shared model-fitting, caching, and likelihood-tier contract common to all four link-function siblings; this class supplies only the link-function choice (private$clmm_link() == "cauchit").

Super classes

Inference -> InferenceAbstractKKOrdinalCLMM -> InferenceOrdinalKKCLMMCauchit

Methods

+ inherited public methods from InferenceAbstractKKOrdinalCLMM
+ inherited public methods from Inference


InferenceOrdinalKKCLMMCauchit$new()

Initialize the cauchit-link ordinal KK CLMM subclass; see the shared ordinal mixed-model contract in InferenceAbstractKKOrdinalCLMM.

Usage

InferenceOrdinalKKCLMMCauchit$new(
  des_obj,
  model_formula = NULL,
  use_rcpp = TRUE,
  verbose = FALSE,
  smart_cold_start_default = NULL
)

Arguments

des_obj

A completed Design object.

model_formula

Optional formula for covariate adjustment.

use_rcpp

Use internal Rcpp implementation (default TRUE).

verbose

Print messages?

smart_cold_start_default

Use smart cold start values?


InferenceOrdinalKKCLMMCauchit$clone()

The objects of this class are cloneable with this method.

Usage

InferenceOrdinalKKCLMMCauchit$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

# \donttest{
seq_des = DesignSeqOneByOneKK14$new(n = 10, response_type = 'ordinal')
for (i in 1:10) {
  seq_des$add_one_subject_to_experiment_and_assign(data.frame(x1 = rnorm(1), x2 = rnorm(1)))
}
seq_des$add_all_subject_responses(sample(1:4, 10, replace = TRUE))
inf = InferenceOrdinalKKCLMMCauchit$new(seq_des)
inf$compute_estimate()
#> [1] -0.04076549
# }