R/cataccuracy.R

In cbohil/cdlutilities: Misc. functions for UCF Categorization & Decision Lab

# compute accuracy by block (any number of categories)
#

catAccuracy = function(data) {
  # data needs to be a list of data frames
  # each data set needs columns labeled "block", "cat", & "resp"
  accuracy <- lapply(data, function(data) {lapply(split(data, data$block), function(data) {length(which(data$cat == data$resp))/nrow(data)})})
  accuracy <- matrix( unlist(accuracy), nrow=length(accuracy) , byrow = TRUE)
  return(accuracy)
}