## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(iotarelr)
coder_1<-c("A","A","C","C","B","A","A","B","C","A","B","C","A","B","A","B","C","A","A","C")
coder_2<-c("A","A","C","B","B","A","A","B","C","A","A","C","A","C","A","B","A","A","A","C")
coder_3<-c("A","A","C","C","B","A","A","B","C","A","B","C","A","B","A","B","C","A","A","C")
coder_4<-c("A","C","C","C","B","A","A","B","C","A","B","A","A","B","A","C","B","A","A","C")

coded_data<-cbind(coder_1,coder_2,coder_3,coder_4)

## -----------------------------------------------------------------------------
results<-compute_iota1(data=coded_data)

## -----------------------------------------------------------------------------
results$alpha

## -----------------------------------------------------------------------------
results$beta

## -----------------------------------------------------------------------------
results$iota

## -----------------------------------------------------------------------------
results$assignment_error_matrix

## -----------------------------------------------------------------------------
results$average_iota