A function that applies the modifier equations to find the EPA location for modifier
identity
modify_identity(
d,
equation_key = NULL,
equation_gender = NULL,
eq_df = NULL,
...
)a dataframe from reshape events that should be only actor_modifier and actor elements or object_modifier and object elements
a string corresponding to the equation key from actdata
either average, male, or female, depending on if you are using gendered equations
three digit EPA profile of the modified identity
d <- tibble::tibble(actor_modifier = "tired", actor = "ceo")
d <- reshape_events_df(df = d, df_format = "wide", dictionary_key = "usfullsurveyor2015", dictionary_gender = "average")
#> Joining, by = c("term", "component")
tired_ceo <- modify_identity(d = d, equation_key = "us2010", equation_gender = "average")