Reidentification of actor or object, following an event

The $reidentify() method does this and that..

Usage

reidentify(x, who = c("actor", "object"))

Arguments

x

an "event deflection" object created by the $deflection() method

who

(character) either "actor" or "object"

Value

a data frame of EPA profiles for the optimal re-identification

See also

Other InteRactModel methods: method-add-equation, method-characteristic-emotion, method-closest-terms, method-deflection, method-fundamentals, method-max-confirm, method-modify-identity, method-optimal-behavior

Examples

act <- interact()
#> ✔ dictionary = list(dataset = "usfullsurveyor2015", group = "all")
#> ✔ equations = list(key = "us2010", group = "all")

events <- rbind(
  data.frame(A = "ceo", B = "rescue", O = "baby"),
  data.frame(A = "ceo", B = "torment", O = "baby")
)

d <- act$deflection(events)
d
#> # Event deflection
#> # A data frame: 2 × 4
#>   A     B       O     deflection
#> * <chr> <chr>   <chr>      <dbl>
#> 1 ceo   rescue  baby        4.44
#> 2 ceo   torment baby       50.1 
act$reidentify(d, who = "actor")
#> # A tibble: 2 × 3
#>       Ae    Ap    Aa
#>    <dbl> <dbl> <dbl>
#> 1  0.515  3.44  2.05
#> 2 -1.52   1.47  1.05
act$reidentify(d, who = "object")
#> # A tibble: 2 × 3
#>       Oe    Op    Oa
#>    <dbl> <dbl> <dbl>
#> 1  3.87  -2.25  4.51
#> 2 -0.540 -3.60 -3.10