library(readxl)
Data_Uji_Sensori_R<- read_excel("D:/SKRIPSI ANGGUN/Data Uji Sensori R.xlsx")
Data_Uji_Sensori_R$Konsentrasi_Starter <- as.factor(Data_Uji_Sensori_R$Konsentrasi_Starter)
Data_Uji_Sensori_R$Lama_Fermentasi <- as.factor(Data_Uji_Sensori_R$Lama_Fermentasi)
Data_Uji_Sensori_R$Warna_H<- as.numeric(Data_Uji_Sensori_R$Warna_H)
library(permuco)
hasil_anova<-aovperm(Warna_H~Konsentrasi_Starter*Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
hasil_anova<-aovperm(Warna_H~Konsentrasi_Starter+Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(rcompanion)
res_posthoc_Lama_Fermentasi_Warna_H <- pairwisePermutationTest(Warna_H~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_Warna_H)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 3.019 0.002536 0.0038040
## 2 18 Jam - 36 Jam = 0 3.854 0.0001164 0.0003492
## 3 24 Jam - 36 Jam = 0 0.9197 0.3577 0.3577000
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_Warna_H, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam b b
## 3 36Jam b b
library(permuco)
hasil_anova<-aovperm(Aroma_H~Konsentrasi_Starter*Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(permuco)
hasil_anova<-aovperm(Aroma_H~Konsentrasi_Starter+Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(permuco)
hasil_anova<-aovperm(Rasa_H~Konsentrasi_Starter*Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(rcompanion)
Data_Uji_Sensori_R$Kombinasi_Perlakuan <- interaction(Data_Uji_Sensori_R$Konsentrasi_Starter, Data_Uji_Sensori_R$Lama_Fermentasi, sep = ".")
res_posthoc_Kombinasi_Rasa <- pairwisePermutationTest(Rasa_H~Kombinasi_Perlakuan, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Kombinasi_Rasa)
## Comparison Stat p.value p.adjust
## 1 0.05.18 Jam - 0.1.18 Jam = 0 3.707 0.0002094 3.590e-04
## 2 0.05.18 Jam - 0.15.18 Jam = 0 4.018 5.877e-05 1.114e-04
## 3 0.05.18 Jam - 0.05.24 Jam = 0 5.585 2.338e-08 1.202e-07
## 4 0.05.18 Jam - 0.1.24 Jam = 0 4.391 1.13e-05 2.542e-05
## 5 0.05.18 Jam - 0.15.24 Jam = 0 7.062 1.636e-12 1.472e-11
## 6 0.05.18 Jam - 0.05.36 Jam = 0 7.81 5.773e-15 6.928e-14
## 7 0.05.18 Jam - 0.1.36 Jam = 0 7.925 2.22e-15 3.996e-14
## 8 0.05.18 Jam - 0.15.36 Jam = 0 8.29 2.22e-16 7.992e-15
## 9 0.1.18 Jam - 0.15.18 Jam = 0 0.3701 0.7113 7.316e-01
## 10 0.1.18 Jam - 0.05.24 Jam = 0 1.572 0.1159 1.439e-01
## 11 0.1.18 Jam - 0.1.24 Jam = 0 0.3999 0.6892 7.297e-01
## 12 0.1.18 Jam - 0.15.24 Jam = 0 3.452 0.0005565 9.106e-04
## 13 0.1.18 Jam - 0.05.36 Jam = 0 5.023 5.086e-07 1.665e-06
## 14 0.1.18 Jam - 0.1.36 Jam = 0 4.894 9.876e-07 2.735e-06
## 15 0.1.18 Jam - 0.15.36 Jam = 0 5.849 4.932e-09 2.959e-08
## 16 0.15.18 Jam - 0.05.24 Jam = 0 1.152 0.2494 2.806e-01
## 17 0.15.18 Jam - 0.1.24 Jam = 0 0 1 1.000e+00
## 18 0.15.18 Jam - 0.15.24 Jam = 0 3.043 0.002341 3.512e-03
## 19 0.15.18 Jam - 0.05.36 Jam = 0 4.69 2.733e-06 7.028e-06
## 20 0.15.18 Jam - 0.1.36 Jam = 0 4.533 5.822e-06 1.397e-05
## 21 0.15.18 Jam - 0.15.36 Jam = 0 5.552 2.827e-08 1.272e-07
## 22 0.05.24 Jam - 0.1.24 Jam = 0 -1.27 0.2041 2.370e-01
## 23 0.05.24 Jam - 0.15.24 Jam = 0 2.284 0.02239 3.100e-02
## 24 0.05.24 Jam - 0.05.36 Jam = 0 4.328 1.506e-05 3.189e-05
## 25 0.05.24 Jam - 0.1.36 Jam = 0 4.15 3.323e-05 6.646e-05
## 26 0.05.24 Jam - 0.15.36 Jam = 0 5.376 7.634e-08 3.054e-07
## 27 0.1.24 Jam - 0.15.24 Jam = 0 3.355 0.0007929 1.241e-03
## 28 0.1.24 Jam - 0.05.36 Jam = 0 5.06 4.2e-07 1.512e-06
## 29 0.1.24 Jam - 0.1.36 Jam = 0 4.946 7.574e-07 2.272e-06
## 30 0.1.24 Jam - 0.15.36 Jam = 0 5.95 2.674e-09 1.925e-08
## 31 0.15.24 Jam - 0.05.36 Jam = 0 2.588 0.00965 1.390e-02
## 32 0.15.24 Jam - 0.1.36 Jam = 0 2.213 0.02692 3.589e-02
## 33 0.15.24 Jam - 0.15.36 Jam = 0 3.904 9.479e-05 1.706e-04
## 34 0.05.36 Jam - 0.1.36 Jam = 0 -0.5936 0.5527 6.029e-01
## 35 0.05.36 Jam - 0.15.36 Jam = 0 1.379 0.1679 2.015e-01
## 36 0.1.36 Jam - 0.15.36 Jam = 0 2.061 0.03927 5.049e-02
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Kombinasi_Rasa, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 .5.18Jam a a
## 2 .1.18Jam b b
## 3 .15.18Jam b b
## 4 .5.24Jam b b
## 5 .1.24Jam b b
## 6 .15.24Jam c c
## 7 .5.36Jam d d
## 8 .1.36Jam d d
## 9 .15.36Jam d d
library(permuco)
hasil_anova<-aovperm(Rasa_H~Konsentrasi_Starter+Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(rcompanion)
res_posthoc_Konsentrasi_Starter_Rasa_H<- pairwisePermutationTest(Rasa_H~Konsentrasi_Starter, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Konsentrasi_Starter_Rasa_H)
## Comparison Stat p.value p.adjust
## 1 0.05 - 0.1 = 0 1.151 0.2496 0.2496000
## 2 0.05 - 0.15 = 0 3.844 0.0001212 0.0003636
## 3 0.1 - 0.15 = 0 2.833 0.004613 0.0069200
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Konsentrasi_Starter_Rasa_H, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 .5 a a
## 2 .1 a a
## 3 .15 b b
library(rcompanion)
res_posthoc_Lama_Fermentasi_Rasa_H<- pairwisePermutationTest(Rasa_H~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_Rasa_H)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 4.988 6.097e-07 6.097e-07
## 2 18 Jam - 36 Jam = 0 10.49 0 0.000e+00
## 3 24 Jam - 36 Jam = 0 7.508 5.995e-14 8.992e-14
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_Rasa_H, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam b b
## 3 36Jam c c
library(permuco)
hasil_anova<-aovperm(Kekentalan_H~Konsentrasi_Starter*Lama_Fermentasi, data=Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(permuco)
hasil_anova<-aovperm(Kekentalan_H~Konsentrasi_Starter+Lama_Fermentasi, data=Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(rcompanion)
res_posthoc_Lama_Fermentasi_Kekentalan_H<- pairwisePermutationTest(Kekentalan_H~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_Kekentalan_H)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 1.876 0.06067 0.09100
## 2 18 Jam - 36 Jam = 0 2.5 0.01242 0.03726
## 3 24 Jam - 36 Jam = 0 0.7621 0.446 0.44600
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_Kekentalan_H, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam ab ab
## 3 36Jam b b
library(permuco)
hasil_anova<-aovperm(Warna_MH~Konsentrasi_Starter*Lama_Fermentasi,data= Data_Uji_Sensori_R,np= 10000)
summary(hasil_anova)
library(permuco)
hasil_anova<-aovperm(Warna_MH~Konsentrasi_Starter+Lama_Fermentasi,data= Data_Uji_Sensori_R,np= 10000)
summary(hasil_anova)
library(rcompanion)
res_posthoc_Lama_Fermentasi_Warna_MH<- pairwisePermutationTest(Warna_MH~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_Warna_MH)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 -3.304 0.0009518 1.428e-03
## 2 18 Jam - 36 Jam = 0 -4.765 1.887e-06 5.661e-06
## 3 24 Jam - 36 Jam = 0 -1.659 0.09704 9.704e-02
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_Warna_MH, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam b b
## 3 36Jam b b
library(permuco)
hasil_anova<-aovperm(Aroma_MH~Konsentrasi_Starter*Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(rcompanion)
res_posthoc_Konsentrasi_Starter_Aroma_MH<- pairwisePermutationTest(Aroma_MH~Konsentrasi_Starter, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Konsentrasi_Starter_Aroma_MH)
## Comparison Stat p.value p.adjust
## 1 0.05 - 0.1 = 0 -1.059 0.2897 0.28970
## 2 0.05 - 0.15 = 0 -2.618 0.008849 0.02655
## 3 0.1 - 0.15 = 0 -1.543 0.1228 0.18420
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Konsentrasi_Starter_Aroma_MH, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 .5 a a
## 2 .1 ab ab
## 3 .15 b b
library(rcompanion)
res_posthoc_Lama_Fermentasi_Aroma_MH<- pairwisePermutationTest(Aroma_MH~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_Aroma_MH)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 -2.26 0.02385 0.035780
## 2 18 Jam - 36 Jam = 0 -3.255 0.001133 0.003399
## 3 24 Jam - 36 Jam = 0 -1.172 0.2411 0.241100
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_Aroma_MH, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam b b
## 3 36Jam b b
library(permuco)
hasil_anova<-aovperm(RasaManis_MH~Konsentrasi_Starter*Lama_Fermentasi, Data_Uji_Sensori_R, method = "freedman_lane", np= 10000)
summary(hasil_anova)
library(rcompanion)
Data_Uji_Sensori_R$Kombinasi_Perlakuan <- interaction(Data_Uji_Sensori_R$Konsentrasi_Starter, Data_Uji_Sensori_R$Lama_Fermentasi, sep = ".")
res_posthoc_Kombinasi_RasaManis <- pairwisePermutationTest(RasaManis_MH~Kombinasi_Perlakuan, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Kombinasi_RasaManis)
## Comparison Stat p.value p.adjust
## 1 0.05.18 Jam - 0.1.18 Jam = 0 4.96 7.043e-07 1.334e-06
## 2 0.05.18 Jam - 0.15.18 Jam = 0 4.828 1.38e-06 2.484e-06
## 3 0.05.18 Jam - 0.05.24 Jam = 0 6.369 1.899e-10 8.546e-10
## 4 0.05.18 Jam - 0.1.24 Jam = 0 5.08 3.77e-07 7.540e-07
## 5 0.05.18 Jam - 0.15.24 Jam = 0 7.654 1.932e-14 1.739e-13
## 6 0.05.18 Jam - 0.05.36 Jam = 0 8.801 0 0.000e+00
## 7 0.05.18 Jam - 0.1.36 Jam = 0 8.859 0 0.000e+00
## 8 0.05.18 Jam - 0.15.36 Jam = 0 9.002 0 0.000e+00
## 9 0.1.18 Jam - 0.15.18 Jam = 0 -0.3967 0.6916 7.243e-01
## 10 0.1.18 Jam - 0.05.24 Jam = 0 0.6645 0.5064 5.881e-01
## 11 0.1.18 Jam - 0.1.24 Jam = 0 -0.7955 0.4263 5.116e-01
## 12 0.1.18 Jam - 0.15.24 Jam = 0 2.845 0.004435 6.141e-03
## 13 0.1.18 Jam - 0.05.36 Jam = 0 5.626 1.843e-08 4.147e-08
## 14 0.1.18 Jam - 0.1.36 Jam = 0 5.522 3.345e-08 7.084e-08
## 15 0.1.18 Jam - 0.15.36 Jam = 0 5.857 4.725e-09 1.134e-08
## 16 0.15.18 Jam - 0.05.24 Jam = 0 1.158 0.2468 3.064e-01
## 17 0.15.18 Jam - 0.1.24 Jam = 0 -0.3797 0.7042 7.243e-01
## 18 0.15.18 Jam - 0.15.24 Jam = 0 3.382 0.0007198 1.037e-03
## 19 0.15.18 Jam - 0.05.36 Jam = 0 6.077 1.222e-09 3.999e-09
## 20 0.15.18 Jam - 0.1.36 Jam = 0 5.999 1.985e-09 5.586e-09
## 21 0.15.18 Jam - 0.15.36 Jam = 0 6.319 2.636e-10 1.009e-09
## 22 0.05.24 Jam - 0.1.24 Jam = 0 -1.748 0.08052 1.035e-01
## 23 0.05.24 Jam - 0.15.24 Jam = 0 2.722 0.006483 8.644e-03
## 24 0.05.24 Jam - 0.05.36 Jam = 0 5.996 2.017e-09 5.586e-09
## 25 0.05.24 Jam - 0.1.36 Jam = 0 5.928 3.071e-09 7.897e-09
## 26 0.05.24 Jam - 0.15.36 Jam = 0 6.309 2.804e-10 1.009e-09
## 27 0.1.24 Jam - 0.15.24 Jam = 0 4.152 3.29e-05 5.384e-05
## 28 0.1.24 Jam - 0.05.36 Jam = 0 6.788 1.137e-11 6.822e-11
## 29 0.1.24 Jam - 0.1.36 Jam = 0 6.761 1.373e-11 7.061e-11
## 30 0.1.24 Jam - 0.15.36 Jam = 0 7.066 1.597e-12 1.150e-11
## 31 0.15.24 Jam - 0.05.36 Jam = 0 4.139 3.483e-05 5.452e-05
## 32 0.15.24 Jam - 0.1.36 Jam = 0 3.945 7.997e-05 1.200e-04
## 33 0.15.24 Jam - 0.15.36 Jam = 0 4.459 8.251e-06 1.414e-05
## 34 0.05.36 Jam - 0.1.36 Jam = 0 -0.4292 0.6678 7.243e-01
## 35 0.05.36 Jam - 0.15.36 Jam = 0 0.1726 0.863 8.630e-01
## 36 0.1.36 Jam - 0.15.36 Jam = 0 0.6311 0.528 5.940e-01
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Kombinasi_RasaManis, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 .5.18Jam a a
## 2 .1.18Jam b b
## 3 .15.18Jam b b
## 4 .5.24Jam b b
## 5 .1.24Jam b b
## 6 .15.24Jam c c
## 7 .5.36Jam d d
## 8 .1.36Jam d d
## 9 .15.36Jam d d
library(permuco)
hasil_anova<-aovperm(RasaManis_MH~Konsentrasi_Starter+Lama_Fermentasi, Data_Uji_Sensori_R, method = "freedman_lane", np= 10000)
summary(hasil_anova)
library(rcompanion)
res_posthoc_Konsentrasi_Starter_RasaManis<- pairwisePermutationTest(RasaManis_MH~Konsentrasi_Starter, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Konsentrasi_Starter_RasaManis)
## Comparison Stat p.value p.adjust
## 1 0.05 - 0.1 = 0 1.738 0.08222 0.0822200
## 2 0.05 - 0.15 = 0 3.657 0.0002548 0.0007644
## 3 0.1 - 0.15 = 0 2.017 0.04374 0.0656100
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Konsentrasi_Starter_RasaManis, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 .5 a a
## 2 .1 ab ab
## 3 .15 b b
res_posthoc_Lama_Fermentasi_RasaManis<- pairwisePermutationTest(RasaManis_MH~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_RasaManis)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 4.862 1.163e-06 1.163e-06
## 2 18 Jam - 36 Jam = 0 11.92 0 0.000e+00
## 3 24 Jam - 36 Jam = 0 9.935 0 0.000e+00
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_RasaManis, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam b b
## 3 36Jam c c
library(permuco)
hasil_anova<-aovperm(RasaAsam_MH~Konsentrasi_Starter*Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(rcompanion)
Data_Uji_Sensori_R$Kombinasi_Perlakuan <- interaction(Data_Uji_Sensori_R$Konsentrasi_Starter, Data_Uji_Sensori_R$Lama_Fermentasi, sep = ".")
res_posthoc_Kombinasi_RasaAsam <- pairwisePermutationTest(RasaAsam_MH~Kombinasi_Perlakuan, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Kombinasi_RasaAsam)
## Comparison Stat p.value p.adjust
## 1 0.05.18 Jam - 0.1.18 Jam = 0 -4.343 1.404e-05 2.660e-05
## 2 0.05.18 Jam - 0.15.18 Jam = 0 -4.183 2.879e-05 5.182e-05
## 3 0.05.18 Jam - 0.05.24 Jam = 0 -6.745 1.532e-11 1.103e-10
## 4 0.05.18 Jam - 0.1.24 Jam = 0 -5.203 1.957e-07 4.697e-07
## 5 0.05.18 Jam - 0.15.24 Jam = 0 -7.625 2.447e-14 2.202e-13
## 6 0.05.18 Jam - 0.05.36 Jam = 0 -8.547 1.268e-17 2.282e-16
## 7 0.05.18 Jam - 0.1.36 Jam = 0 -8.415 3.917e-17 4.700e-16
## 8 0.05.18 Jam - 0.15.36 Jam = 0 -8.966 3.084e-19 1.110e-17
## 9 0.1.18 Jam - 0.15.18 Jam = 0 0.5738 0.5661 6.163e-01
## 10 0.1.18 Jam - 0.05.24 Jam = 0 -1.461 0.1441 1.729e-01
## 11 0.1.18 Jam - 0.1.24 Jam = 0 -0.2017 0.8401 8.401e-01
## 12 0.1.18 Jam - 0.15.24 Jam = 0 -3.258 0.00112 1.680e-03
## 13 0.1.18 Jam - 0.05.36 Jam = 0 -5.166 2.393e-07 5.384e-07
## 14 0.1.18 Jam - 0.1.36 Jam = 0 -4.873 1.099e-06 2.198e-06
## 15 0.1.18 Jam - 0.15.36 Jam = 0 -5.575 2.473e-08 7.419e-08
## 16 0.15.18 Jam - 0.05.24 Jam = 0 -2.33 0.01979 2.544e-02
## 17 0.15.18 Jam - 0.1.24 Jam = 0 -0.8798 0.379 4.264e-01
## 18 0.15.18 Jam - 0.15.24 Jam = 0 -4.149 3.333e-05 5.714e-05
## 19 0.15.18 Jam - 0.05.36 Jam = 0 -6 1.975e-09 7.900e-09
## 20 0.15.18 Jam - 0.1.36 Jam = 0 -5.724 1.042e-08 3.410e-08
## 21 0.15.18 Jam - 0.15.36 Jam = 0 -6.473 9.599e-11 5.759e-10
## 22 0.05.24 Jam - 0.1.24 Jam = 0 1.514 0.13 1.614e-01
## 23 0.05.24 Jam - 0.15.24 Jam = 0 -2.71 0.006729 9.317e-03
## 24 0.05.24 Jam - 0.05.36 Jam = 0 -5.4 6.675e-08 1.716e-07
## 25 0.05.24 Jam - 0.1.36 Jam = 0 -5.006 5.57e-07 1.180e-06
## 26 0.05.24 Jam - 0.15.36 Jam = 0 -6.157 7.434e-10 3.345e-09
## 27 0.1.24 Jam - 0.15.24 Jam = 0 -3.624 0.0002904 4.545e-04
## 28 0.1.24 Jam - 0.05.36 Jam = 0 -5.75 8.93e-09 3.215e-08
## 29 0.1.24 Jam - 0.1.36 Jam = 0 -5.435 5.494e-08 1.521e-07
## 30 0.1.24 Jam - 0.15.36 Jam = 0 -6.306 2.862e-10 1.472e-09
## 31 0.15.24 Jam - 0.05.36 Jam = 0 -3.11 0.00187 2.693e-03
## 32 0.15.24 Jam - 0.1.36 Jam = 0 -2.615 0.008932 1.191e-02
## 33 0.15.24 Jam - 0.15.36 Jam = 0 -3.726 0.0001948 3.188e-04
## 34 0.05.36 Jam - 0.1.36 Jam = 0 0.5503 0.5821 6.163e-01
## 35 0.05.36 Jam - 0.15.36 Jam = 0 -0.3085 0.7577 7.793e-01
## 36 0.1.36 Jam - 0.15.36 Jam = 0 -0.9244 0.3553 4.126e-01
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Kombinasi_RasaAsam, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 .5.18Jam a a
## 2 .1.18Jam bc bc
## 3 .15.18Jam b b
## 4 .5.24Jam c c
## 5 .1.24Jam bc bc
## 6 .15.24Jam d d
## 7 .5.36Jam e e
## 8 .1.36Jam e e
## 9 .15.36Jam e e
library(permuco)
hasil_anova<-aovperm(RasaAsam_MH~Konsentrasi_Starter+Lama_Fermentasi, data= Data_Uji_Sensori_R, np= 10000)
summary(hasil_anova)
library(rcompanion)
res_posthoc_Konsentrasi_Starter_RasaAsam<- pairwisePermutationTest(RasaAsam_MH~Konsentrasi_Starter, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Konsentrasi_Starter_RasaAsam)
## Comparison Stat p.value p.adjust
## 1 0.05 - 0.1 = 0 -1.665 0.09596 0.09596
## 2 0.05 - 0.15 = 0 -3.505 0.0004567 0.00137
## 3 0.1 - 0.15 = 0 -1.808 0.07063 0.09596
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Konsentrasi_Starter_RasaAsam, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 .5 a a
## 2 .1 ab ab
## 3 .15 b b
library(rcompanion)
res_posthoc_Lama_Fermentasi_RasaAsam<- pairwisePermutationTest(RasaAsam_MH~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_RasaAsam)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 -5.98 2.227e-09 2.227e-09
## 2 18 Jam - 36 Jam = 0 -11.46 2.101e-30 6.303e-30
## 3 24 Jam - 36 Jam = 0 -8.386 5.028e-17 7.542e-17
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_RasaAsam, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam b b
## 3 36Jam c c
library(permuco)
hasil_anova<-aovperm(Sensasisoda_MH~Konsentrasi_Starter*Lama_Fermentasi, Data_Uji_Sensori_R, method = "freedman_lane", np= 10000)
summary(hasil_anova)
library(permuco)
hasil_anova<-aovperm(Sensasisoda_MH~Konsentrasi_Starter+Lama_Fermentasi, Data_Uji_Sensori_R, method = "freedman_lane", np= 10000)
summary(hasil_anova)
res_posthoc_Lama_Fermentasi_SensasiSoda<- pairwisePermutationTest(Sensasisoda_MH~Lama_Fermentasi, data = Data_Uji_Sensori_R, method = "fdr")
print(res_posthoc_Lama_Fermentasi_SensasiSoda)
## Comparison Stat p.value p.adjust
## 1 18 Jam - 24 Jam = 0 -4.739 2.145e-06 3.217e-06
## 2 18 Jam - 36 Jam = 0 -7.19 6.498e-13 1.949e-12
## 3 24 Jam - 36 Jam = 0 -3.007 0.002634 2.634e-03
notasi_Huruf <- cldList(p.adjust~ Comparison, data= res_posthoc_Lama_Fermentasi_SensasiSoda, threshold= 0.05)
print(notasi_Huruf)
## Group Letter MonoLetter
## 1 18Jam a a
## 2 24Jam b b
## 3 36Jam c c
tinytex::tinytex_root("C:/Users/ASUS/Downloads/TinyTeX.zip")
## [1] "C:\\Users\\ASUS\\AppData\\Roaming\\TinyTeX"
tinytex::is_tinytex()
## [1] TRUE