Je\u017celi jedn\u0105 z grup badawczych uznamy za grup\u0119 kontroln\u0105<\/em> , w\u00f3wczas jako test post-hoc powinni\u015bmy zastosowa\u0107 test Dunnetta<\/a> .<\/span><\/p>\n W tym samouczku wyja\u015bniono, jak wykona\u0107 test Dunnetta w j\u0119zyku R.<\/span><\/p>\n Za\u0142\u00f3\u017cmy, \u017ce nauczycielka chce wiedzie\u0107, czy dwie nowe techniki uczenia si\u0119 mog\u0105 poprawi\u0107 wyniki jej uczni\u00f3w w testach. Aby to sprawdzi\u0107, losowo dzieli swoj\u0105 klas\u0119 sk\u0142adaj\u0105c\u0105 si\u0119 z 30 uczni\u00f3w na trzy nast\u0119puj\u0105ce grupy:<\/span><\/p>\n Po tygodniu stosowania przypisanej mu techniki nauki ka\u017cdy ucze\u0144 przyst\u0119puje do tego samego egzaminu.<\/span><\/p>\n Mo\u017cemy wykona\u0107 nast\u0119puj\u0105ce kroki w j\u0119zyku R, aby utworzy\u0107 zbi\u00f3r danych, zwizualizowa\u0107 \u015brednie grupowe, wykona\u0107 jednokierunkow\u0105 analiz\u0119 ANOVA i na koniec wykona\u0107 test Dunnetta, aby okre\u015bli\u0107, kt\u00f3ra nowa technika badania (je\u015bli istnieje) daje inne wyniki w por\u00f3wnaniu z grup\u0105 kontroln\u0105 .<\/span><\/p>\n Krok 1: Utw\u00f3rz zbi\u00f3r danych.<\/span><\/strong><\/p>\n Poni\u017cszy kod pokazuje, jak utworzy\u0107 zbi\u00f3r danych zawieraj\u0105cy wyniki egzamin\u00f3w wszystkich 30 uczni\u00f3w:<\/span><\/p>\n Krok 2: Wy\u015bwietl wyniki egzaminu dla ka\u017cdej grupy.<\/span><\/strong><\/p>\n Poni\u017cszy kod pokazuje, jak utworzy\u0107 wykresy skrzynkowe w celu wizualizacji rozk\u0142adu wynik\u00f3w egzaminu dla ka\u017cdej grupy:<\/span> <\/p>\n Ju\u017c na podstawie wykres\u00f3w pude\u0142kowych wida\u0107, \u017ce rozk\u0142ad wynik\u00f3w egzamin\u00f3w jest bardzo r\u00f3\u017cny dla ka\u017cdej techniki badania. Nast\u0119pnie przeprowadzimy jednoczynnikow\u0105 analiz\u0119 ANOVA, aby okre\u015bli\u0107, czy te r\u00f3\u017cnice s\u0105 istotne statystycznie.<\/span><\/p>\n Powi\u0105zane:<\/strong> Jak wykre\u015bli\u0107 wiele wykres\u00f3w pude\u0142kowych na jednym wykresie w j\u0119zyku R<\/a><\/span><\/p>\n Krok 3: Wykonaj jednokierunkow\u0105 ANOVA.<\/span><\/strong><\/p>\n Poni\u017cszy kod pokazuje, jak przeprowadzi\u0107 jednoczynnikow\u0105 analiz\u0119 ANOVA, aby sprawdzi\u0107 r\u00f3\u017cnice mi\u0119dzy \u015brednimi wynikami egzaminu w ka\u017cdej grupie:<\/span><\/p>\n Poniewa\u017c og\u00f3lna warto\u015b\u0107 p ( 0,0476<\/strong> ) jest mniejsza ni\u017c 0,05, oznacza to, \u017ce ka\u017cda grupa nie ma tego samego \u015bredniego wyniku z egzaminu. Nast\u0119pnie przeprowadzimy test Dunnetta, aby okre\u015bli\u0107, kt\u00f3ra technika badania daje \u015brednie wyniki egzamin\u00f3w r\u00f3\u017cni\u0105ce si\u0119 od wynik\u00f3w grupy kontrolnej.<\/span><\/p>\n Krok 4: Wykonaj test Dunnetta.<\/span><\/strong><\/p>\n Aby wykona\u0107 test Dunnetta w R, mo\u017cemy skorzysta\u0107 z funkcji DunnettTest()<\/strong> z biblioteki DescTools<\/strong> , kt\u00f3ra wykorzystuje nast\u0119puj\u0105c\u0105 sk\u0142adni\u0119:<\/span><\/p>\n Test Dunnetta (x, g)<\/strong><\/span><\/p>\n<\/blockquote>\n Z\u0142oto:<\/span><\/p>\n Poni\u017cszy kod pokazuje, jak u\u017cywa\u0107 tej funkcji w naszym przyk\u0142adzie:<\/span><\/p>\n Spos\u00f3b interpretacji wyniku jest nast\u0119puj\u0105cy:<\/span><\/p>\n Na podstawie wynik\u00f3w widzimy, \u017ce badanie Techniki 2 jest jedyn\u0105 technik\u0105, kt\u00f3ra daje \u015brednie wyniki egzaminu znacz\u0105co (p = 0,0296) r\u00f3\u017cni\u0105ce si\u0119 od wynik\u00f3w grupy kontrolnej.<\/span><\/p>\n Wprowadzenie do jednokierunkowej ANOVA<\/a> Test post hoc to rodzaj testu przeprowadzanego po analizie ANOVA w celu ustalenia, kt\u00f3re \u015brednie grupowe r\u00f3\u017cni\u0105 si\u0119 od siebie statystycznie istotnie. Je\u017celi jedn\u0105 z grup badawczych uznamy za grup\u0119 kontroln\u0105 , w\u00f3wczas jako test post-hoc powinni\u015bmy zastosowa\u0107 test Dunnetta . W tym samouczku wyja\u015bniono, jak wykona\u0107 test Dunnetta w j\u0119zyku R. Przyk\u0142ad: test Dunnetta […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-1041","post","type-post","status-publish","format-standard","hentry","category-przewodnik"],"yoast_head":"\n Przyk\u0142ad: test Dunnetta w R<\/strong><\/span><\/h3>\n
\n
#create data frame<\/span>\ndata <- data.frame(technique = rep<\/span> (c(\"control\", \"new1\", \"new2\"), each<\/span> = 10<\/span> ),\n score = c(76, 77, 77, 81, 82, 82, 83, 84, 85, 89,\n 81, 82, 83, 83, 83, 84, 87, 90, 92, 93,\n 77, 78, 79, 88, 89, 90, 91, 95, 95, 98))\n\n#view first six rows of data frame<\/span>\nhead(data)\n\n technical score\n1 control 76\n2 controls 77\n3 controls 77\n4 controls 81\n5 controls 82\n6 controls 82\n<\/strong><\/pre>\n boxplot(score ~ technique,\n data = data,\n main = \"Exam Scores by Studying Technique\",\n xlab = \"Studying Technique\",\n ylab = \"Exam Scores\",\n col = \"steelblue\",\n border = \"black\")\n<\/strong><\/pre>\n
![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/dunnettsr.png\")
<\/p>\n #fit the one-way ANOVA model<\/span>\nmodel <- aov(score ~ technique, data = data)\n\n#view model output\n<\/span>summary(model)\n\n Df Sum Sq Mean Sq F value Pr(>F) \ntechnical 2 211.5 105.73 3.415 0.0476 *\nResiduals 27 836.0 30.96 \n---\nSignificant. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1<\/strong><\/pre>\n\n
\n
#load DescTools library<\/span>\nlibrary(DescTools)\n\n#perform Dunnett's Test\n<\/span>DunnettTest(x=data$score, g=data$technique)\n\n Dunnett's test for comparing several treatments with a control: \n 95% family-wise confidence level\n\n$control\n diff lwr.ci upr.ci pval \nnew1-control 4.2 -1.6071876 10.00719 0.1787 \nnew2-control 6.4 0.5928124 12.20719 0.0296 * \n\n---\nSignificant. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1' '1.' 0.1 ' ' 1<\/strong><\/pre>\n\n
Dodatkowe zasoby<\/strong><\/span><\/h3>\n
Jak wykona\u0107 jednokierunkow\u0105 ANOVA w R<\/a>
Jak wykona\u0107 test Tukeya w R<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"