Classify LTA Traits into Hermann's Leadership Typology

Takes per-speech LTA output (from get_lta()) and aggregates trait scores across speeches, then classifies the leader along three dimensions (constraint, openness, motivation toward world) and maps the first two plus task orientation to one of eight leadership styles.

Usage

type_lta(
  lta,
  precision_weighted = FALSE,
  need_for_power = 0.5,
  control = 0.44,
  complex_high = 0.56,
  confidence_high = 0.81,
  task = 0.59,
  distrust = 0.41,
  ingroup = 0.42
)

Arguments

lta

A data frame with one row per speech, as returned by get_lta(). Must contain columns Pp, B, C, Ss, Ta, D, Na. When precision_weighted = TRUE, must also contain varPp, varB, varC, varSs, varTa, varD, varNa.

precision_weighted

Logical. If FALSE (default), aggregate traits with a simple mean. If TRUE, use inverse-variance (precision) weighting via random-effects meta-analysis (metafor::rma()).

need_for_power

Threshold for the need-for-power trait (Pp). Default 0.50.

control

Threshold for belief in ability to control events (B). Default 0.44.

complex_high

Threshold for high conceptual complexity (C). Default 0.56.

confidence_high

Threshold for high self-confidence (Ss). Default 0.81.

task

Threshold for task orientation (Ta). Default 0.59.

distrust

Threshold for distrust (D). Default 0.41.

ingroup

Threshold for in-group bias / nationalism (Na). Default 0.42.

Value

A one-row tibble::tibble with aggregated trait values, standard errors (when precision_weighted = TRUE), and classification columns: constraint, openness, motivation_toward_world, task_orientation, typology, and method.

Examples

if (FALSE) { # \dontrun{
spacyr::spacy_initialize()
res <- data.table::rbindlist(
  lapply(c(jfk19610120, jfk19610925, jfk19630610), function(x)
    get_lta(own_entity = "United States", text = clean_text(x),
            bootstrap = TRUE, B = 1000))
)
# Simple mean aggregation
type_lta(res)
# Precision-weighted aggregation
type_lta(res, precision_weighted = TRUE)
} # }