% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/opcode.R
\name{get_oca}
\alias{get_oca}
\title{Compute operational code (VICS) scores}
\usage{
get_oca(own_entity, text, bootstrap = FALSE, B = 1000)
}
\arguments{
\item{own_entity}{A character vector of entity names representing the
speaker's own country or group.}

\item{text}{A character string containing the speech text to analyse.}

\item{bootstrap}{Logical; if \code{TRUE}, return bootstrapped mean and
variance estimates for all indices. Default is \code{FALSE}.}

\item{B}{Integer; number of bootstrap replicates. Default is 1000.}
}
\value{
A one-row \code{\link[tibble]{tibble}} with P1--P5, I1--I5, and
raw Self/Other counts by score category.
}
\description{
Performs full VICS (Verbs in Context System) operational code analysis on
a speech text, classifying verb-entity pairs as Self/Other and scoring
them on a -3 to +3 scale (Punish to Reward). Returns P1--P5 and I1--I5
indices.
}
