similarity.tcata.replication {tempR}

Quantify TCATA assessor replication

Description

Quantify TCATA assessor replication using city block distance

Usage

similarity.tcata.replication(this.assessor, other.assessors)

Arguments

this.assessor

TCATA data (given as an indicator matrix) for assessor of interest

other.assessors

TCATA data (given as an indicator matrix) for other assessors

Details

Similarity between one TCATA assessor and other assessors on the panel is quantified. The replication index can take on values between 0 and 1, which indicate complete dissimilarity (disagreement) and complete similarity (agreement), respectively.

Value

replication.index city block distance between this assessor and other assessors

References

Castura, J.C., Antúnez, L., Giménez, A., Ares, G. (2016). Temporal check-all-that-apply (TCATA): A novel temporal sensory method for characterizing products. Food Quality and Preference, 47, 79-90. doi:10.1016/j.foodqual.2015.06.017

Examples

  # Toy TCATA data for three assessors: a1, a2, a3
  a1 <- rbind(rep(0, 7),
              rep(0, 7),
              c(0, 0, 0, 1, 1, 1, 1),
              c(0, 0, 0, 1, 1, 1, 1),
              c(0, 0, 0, 1, 1, 1, 0))
  a2 <- rbind(c(0, 0, 0, 1, 1, 1, 0),
              rep(0, 7),
              c(0, 1, 1, 1, 1, 1, 0),
              rep(1, 7),
              c(0, 0, 0, 1, 1, 1, 1))
  a3 <- rbind(rep(0, 7),
              rep(0, 7),
              rep(1, 7),
              rep(1, 7),
              rep(1, 7))

  # Quantify similarity of assessor a1 to the other assessors
  similarity.tcata.replication(a1, rbind(a2, a3))