<\/p>\n
De Friedman-test<\/strong> is een niet-parametrisch alternatief voor ANOVA met herhaalde metingen. Het wordt gebruikt om te bepalen of er al dan niet een statistisch significant verschil bestaat tussen de gemiddelden van drie of meer groepen waarin dezelfde onderwerpen in elke groep voorkomen.<\/span><\/p>\n In deze tutorial wordt uitgelegd hoe u de Friedman-test uitvoert in R.<\/span><\/p>\n Om de Friedman-test in R uit te voeren, kunnen we de functie friedman.test()<\/strong> gebruiken, die de volgende syntaxis gebruikt:<\/span><\/p>\n friedman.test (y, groepen, blokken)<\/span><\/strong><\/p>\n Goud:<\/span><\/p>\n Deze functie produceert een Chi-kwadraat-teststatistiek en een overeenkomstige p-waarde. Als de p-waarde onder een bepaald significantieniveau ligt (veel voorkomende keuzes zijn 0,10, 0,05 en 0,01), dan is er voldoende bewijs dat de gemiddelden tussen elk van de groepen niet gelijk zijn.<\/span><\/p>\n Om te illustreren hoe u deze functie kunt gebruiken, zullen we een dataset maken die de reactietijd van vijf pati\u00ebnten op vier verschillende medicijnen laat zien. Omdat elke pati\u00ebnt op elk van de vier medicijnen wordt gemeten, zullen we de Friedman-test gebruiken om te bepalen of de gemiddelde reactietijd tussen medicijnen verschilt.<\/span><\/p>\n Eerst zullen we de dataset maken:<\/span><\/p>\n Vervolgens zullen we de Friedman-test uitvoeren met de score<\/strong> als de responsvariabele, het medicijn<\/strong> als de groeperingsvariabele en de persoon<\/strong> als de blokkerende variabele:<\/span><\/p>\n De Chi-kwadraat-teststatistiek is 13,56<\/strong> en de overeenkomstige p-waarde is 0,00357<\/strong> . Omdat deze p-waarde kleiner is dan 0,05, kunnen we de nulhypothese verwerpen dat de gemiddelde responstijd voor alle vier de geneesmiddelen hetzelfde is. We hebben voldoende bewijs om te concluderen dat het type medicatie dat wordt gebruikt resulteert in statistisch significante verschillen in responstijd.<\/span><\/p>\n Hoewel een Friedman-test ons vertelt of er verschillen zijn in de gemiddelde responstijden tussen medicijnen, vertelt deze ons niet specifiek welke medicijnen verschillende gemiddelde responstijden hebben. Om dit te begrijpen, moeten we post-hoc tests uitvoeren.<\/span><\/p>\n Voor een Friedman-test is de geschikte post-hoc-test de paarsgewijze Wilcoxon-rangsomtest met een Bonferroni-correctie, die kan worden ge\u00efmplementeerd met behulp van de volgende syntaxis:<\/span><\/p>\n pairwise.wilcox.test(data$score, data$drug, p.adj = \u201cbonf\u201d)<\/strong><\/span><\/p>\n Goud:<\/span><\/p>\n Dit is de syntaxis die we voor ons voorbeeld zullen gebruiken:<\/span><\/p>\n Dit levert een matrix op die de p-waarde toont voor elke paarsgewijze Wilcoxon-rangsomtest. We kunnen zien dat de enige medicijngroepen met een statistisch significant verschil van 0,10 de groepen 3 en 4 zijn ( p = 0,072<\/strong> ).<\/span><\/p>\n","protected":false},"excerpt":{"rendered":" De Friedman-test is een niet-parametrisch alternatief voor ANOVA met herhaalde metingen. Het wordt gebruikt om te bepalen of er al dan niet een statistisch significant verschil bestaat tussen de gemiddelden van drie of meer groepen waarin dezelfde onderwerpen in elke groep voorkomen. In deze tutorial wordt uitgelegd hoe u de Friedman-test uitvoert in R. Voorbeeld: […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-686","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\n Voorbeeld: de Friedman-test in R<\/strong><\/h3>\n
\n
#create data<\/span>\ndata <- data.frame(person = rep(1:5, each=4),\n drug = rep(c(1, 2, 3, 4), times=5),\n score = c(30, 28, 16, 34, 14, 18, 10, 22, 24, 20,\n 18, 30, 38, 34, 20, 44, 26, 28, 14, 30))\n\n#view data<\/span>\ndata\n\n person drug score\n1 1 1 30\n2 1 2 28\n3 1 3 16\n4 1 4 34\n5 2 1 14\n6 2 2 18\n7 2 3 10\n8 2 4 22\n9 3 1 24\n10 3 2 20\n11 3 3 18\n12 3 4 30\n13 4 1 38\n14 4 2 34\n15 4 3 20\n16 4 4 44\n17 5 1 26\n18 5 2 28\n19 5 3 14\n20 5 4 30\n<\/strong><\/pre>\n #perform Friedman Test<\/span>\nfriedman.test(y=data$score, groups=data$drug, blocks=data$person)\n\n\tFriedman rank sum test\n\ndata: data$score, data$drug and data$person\nFriedman chi-squared = 13.56, df = 3, p-value = 0.00357\n<\/strong><\/pre>\n\n
<\/span><\/li>\n<\/ul>\n #perform post-hoc tests<\/span>\npairwise.wilcox.test(data$score, data$drug, p.adj = \"bonf\")\n\tPairwise comparisons using Wilcoxon rank sum test \n\ndata: data$score and data$drug \n\n 1 2 3 \n2 1,000 - - \n3 0.449 0.210 - \n4 1,000 1,000 0.072\n\nP value adjustment method: bonferroni \n<\/strong><\/pre>\n