In aswansyahputra/sensehubr: A Tidy Approach for Sensory Analyses

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

library(sensehubr)

Specify sensory table

df <- specify(
 data = perfume_qda_consumers,
 sensory_method = "QDA",
 panelist = consumer,
 product = product,
 attribute = intensity:green,
 hedonic = NULL
)
df

Local analysis

qda_local <- analyse(df, "local")
qda_local
visualise(qda_local, min_scales = 0, max_scales = 100)

Global analysis

qda_global <- analyse(df, "global")
qda_global
visualise(qda_global, choice = "eigenvalue")
visualise(qda_global, choice = "product")
visualise(qda_global, choice = "attribute")

aswansyahputra/sensehubr documentation built on March 12, 2021, 9:45 a.m.