source("R/score_transformations.R")
calculate_confidence_score <- function(scores_df,
scores_sum,
target){
target_score <- scores_df[[target]]
(target_score/scores_sum)*100
}
confidence_score <- function(df, target_labels_for_dataset) {
#subsetting
df_subset <- df[, grepl(
x = names(df),
pattern = paste0(target_labels_for_dataset,
collapse = '|')
)]
#calculate the sum of ratings > 0
scores <- lapply(df_subset, function(x)
ifelse(x < 0, 0, x)) %>%
lapply(function(x)
sum(x))
sum_of_scores <- Reduce(`+`, scores)
res <- purrr::map_df(target_labels_for_dataset, function(emotion_label)
calculate_confidence_score(scores_df = scores,
scores_sum = sum_of_scores,
target = emotion_label)
)
round(res, 2)
}
confidence_score_odds <- function(df, target_labels_for_dataset, score_type = "odds") {
#subsetting
df_subset <- df[, grepl(
x = names(df),
pattern = paste0(target_labels_for_dataset,
collapse = '|')
)]
#calculate the sum of ratings > 0
scores <- lapply(df_subset, function(x){
prob_scores <- to_probabilities(x)
odds_scores <- to_odds(prob_scores)
if(score_type == "odds") {
return(sum(odds_scores))
} else if(score_type == "probs") {
return(sum(prob_scores))
}
})
sum_of_scores <- Reduce(`+`, scores)
res <- purrr::map_df(target_labels_for_dataset, function(emotion_label)
calculate_confidence_score(scores_df = scores,
scores_sum = sum_of_scores,
target = emotion_label)
)
round(res, 2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.