Pesquisa Sensométrica de Sucos de Laranja em Caixa

O experimento consiste em buscar diferenças entre três marcas de sucos de laranja através de características previamente definidas.

As características e a escala foram definidas pelos provadores.

O treinamento dos provadores foi realizado durante o processo de definição dos atributos.

Devido a ausência de alguns provadores em um dos dois dias do experimento, foram agrupados dados de diferentes provadores para que houvesse três repetições.

  Provador Repetition Caracteristica   Marca Nota
1  Adilson         R1    Intensidade Maguary  6.0
2  Adilson         R2    Intensidade Maguary  8.5
3  Adilson         R3    Intensidade Maguary  8.8
4   Dupla1         R1    Intensidade Maguary  8.0
5   Dupla1         R2    Intensidade Maguary  7.0
6   Dupla2         R1    Intensidade Maguary  8.5

    Provador   Repetition     Caracteristica      Marca    
 Adilson: 63   R1:210     Intensidade:90     Maguary :210  
 Daniel : 63   R2:210     Opacidade  :90     Del Vale:210  
 Dupla1 : 63   R3:210     Odor       :90     Shefa   :210  
 Dupla2 : 63              Doçura     :90                   
 Dupla3 : 63              Acidez     :90                   
 Dupla4 : 63              Rancidez   :90                   
 (Other):252              Corpo      :90                   
      Nota       
 Min.   : 0.200  
 1st Qu.: 3.300  
 Median : 5.200  
 Mean   : 5.197  
 3rd Qu.: 7.000  
 Max.   :10.000  

for (i in 1:length(provador)){
  pvalue1 <- ""
  for (j in 1:length(caracteristica)){

    suco.av.p <- aov(Nota ~  Repetition + Marca, subset(suco, 
       Provador ==  provador[i] & Caracteristica ==  caracteristica[j]))
      if(summary(suco.av.p)[[1]][["Pr(>F)"]][1] < 0.05)
        pvalue1[j] <- paste(
          "<div style='color:red'>",
          round(summary(suco.av.p)[[1]][["Pr(>F)"]][1], 3), "</div>")
      else
        pvalue1[j] <- round(summary(suco.av.p)[[1]][["Pr(>F)"]][1], 3)
  }
  df2 <- rbind(df2, c(provador[i], pvalue1[1:7]))
}

colnames(df2) <- c("Provador", caracteristica[1:7])