df <- data.frame(
conf_comp = sample(1:6, 3, replace = TRUE),
trad_comp = sample(1:6, 3, replace = TRUE),
bene_comp = sample(1:6, 3, replace = TRUE),
achie_comp = sample(1:6, 3, replace = TRUE),
power_comp = sample(1:6, 3, replace = TRUE),
sec_comp = sample(1:6, 3, replace = TRUE),
stim_comp = sample(1:6, 3, replace = TRUE),
selfdir_comp = sample(1:6, 3, replace = TRUE),
univ_comp = sample(1:6, 3, replace = TRUE),
hedo_comp = sample(1:6, 3, replace = TRUE))
valueMap <- c(CO = "conf_comp", TR = "trad_comp",
BE = "bene_comp", AC = "achie_comp",
PO = "power_comp", SE = "sec_comp",
ST = "stim_comp", SD = "selfdir_comp",
UN = "univ_comp", HE = "hedo_comp")
persval::tenvalplot(df = df, valueMap = valueMap, instrument = "pvq40",
corrected = FALSE)
Run the code above in your browser using DataLab