R/likert_means_4p.R

In samueltobler/behavdata: Behavioral Data Preprocessing and Analysis

likert_means_4p <- function(data, weight = 3, round = 2) {
  
  values <- vector()
  
  for (i in 1:dim(data)[1]) {
    daty <- data[i,]
    individual <- behavdata::count_if(daty, value = c(1,2,3,4))$Count
    value <- weight*individual[1]*1 + individual[2]*2 + 
      individual[3]*3 + weight*individual[4]*4
    sum <- weight*individual[1] + individual[2] + 
      individual[3] + weight*individual[4]
    values[i] <- value/sum
  }
  
  values <- round(values, 2)
  return(values = values)
  
}