Skip to contents

Estimate EPA profile of a characteristic emotion

Usage

characteristic_emotion(events)

Arguments

events

A data frame with an I column (for "identity")

Examples

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

act$add_equation(type = "emotionid", group = "male")
#>  emotionid = list(key = "us2010", group = "male")

act$characteristic_emotion(list(I = "brute"))
#> # A tibble: 1 × 3
#>      Me    Mp    Ma
#>   <dbl> <dbl> <dbl>
#> 1 -1.40  3.05  1.46

x <- list(I = c("censor", "grandson", "infant", "australian", "job_seeker"))
act$characteristic_emotion(x)
#> # A tibble: 5 × 3
#>       Me      Mp    Ma
#>    <dbl>   <dbl> <dbl>
#> 1  1.82   0.759  0.945
#> 2 -0.289  2.62   0.230
#> 3  2.43   0.692  1.42 
#> 4  2.43  -2.71   1.26 
#> 5  2.05  -0.0783 0.893