{"id":1285,"date":"2023-07-27T00:38:59","date_gmt":"2023-07-27T00:38:59","guid":{"rendered":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/"},"modified":"2023-07-27T00:38:59","modified_gmt":"2023-07-27T00:38:59","slug":"bruine-forsythe-test-in-r","status":"publish","type":"post","link":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/","title":{"rendered":"Brown-forsythe-test in r: stapsgewijs voorbeeld"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">Een <a href=\"https:\/\/statorials.org\/nl\/enkele-reis-anova\/\" target=\"_blank\" rel=\"noopener\">one-way ANOVA<\/a> wordt gebruikt om te bepalen of er al dan niet een significant verschil is tussen de gemiddelden van drie of meer onafhankelijke groepen.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Een van de <a href=\"https:\/\/statorials.org\/nl\/danova-hypothesen\/\" target=\"_blank\" rel=\"noopener\">aannames<\/a> van een eenrichtings-ANOVA is dat de varianties van de populaties waaruit de <a href=\"https:\/\/statorials.org\/nl\/populatie-versus-steekproef\/\" target=\"_blank\" rel=\"noopener\">steekproeven<\/a> worden getrokken gelijk zijn.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Een van de meest gebruikelijke manieren om dit te testen is het gebruik van een <strong>Brown-Forsythe-test<\/strong> , een statistische test die gebruik maakt van de volgende <a href=\"https:\/\/statorials.org\/nl\/hypothesetesten-1\/\" target=\"_blank\" rel=\"noopener\">aannames<\/a> :<\/span><\/p>\n<ul>\n<li> <span style=\"color: #000000;\"><strong>H <sub>0<\/sub> :<\/strong> De varianties tussen populaties zijn gelijk.<\/span><\/li>\n<li> <span style=\"color: #000000;\"><strong>H <sub>A<\/sub><\/strong> : De verschillen tussen populaties zijn niet gelijk.<\/span><\/li>\n<\/ul>\n<p> <span style=\"color: #000000;\">Als de <a href=\"https:\/\/statorials.org\/nl\/p-waarden-statistische-significantie\/\" target=\"_blank\" rel=\"noopener\">p-waarde<\/a> van de test onder een bepaald significantieniveau ligt (bijvoorbeeld \u03b1 = 0,05), dan verwerpen we de nulhypothese en concluderen we dat de varianties niet gelijk zijn tussen verschillende populaties.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Deze zelfstudie biedt een stapsgewijs voorbeeld van hoe u een Brown-Forsythe-test uitvoert in R.<\/span><\/p>\n<h3> <span style=\"color: #000000;\"><strong>Stap 1: Voer de gegevens in<\/strong><\/span><\/h3>\n<p> <span style=\"color: #000000;\">Stel dat we willen weten of drie verschillende trainingsprogramma\u2019s al dan niet tot verschillende niveaus van gewichtsverlies leiden.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Om dit te testen, rekruteren we 90 mensen en wijzen we willekeurig 30 mensen toe om elk programma te gebruiken. Vervolgens meten we het gewichtsverlies van elke persoon na \u00e9\u00e9n maand.<\/span><\/p>\n<p> <span style=\"color: #000000;\">De volgende gegevensset bevat informatie over de hoeveelheid gewicht die u met elk programma verliest:<\/span><\/p>\n<pre style=\"background-color: #e5e5e5; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#make this example reproducible\n<\/span>set.seed(0)\n\n<span style=\"color: #008080;\">#create data frame\n<\/span>data &lt;- data.frame(program = <span style=\"color: #3366ff;\">as<\/span> . <span style=\"color: #3366ff;\">factor<\/span> ( <span style=\"color: #3366ff;\">rep<\/span> (c(\" <span style=\"color: #008000;\">A<\/span> \", \" <span style=\"color: #008000;\">B<\/span> \", \" <span style=\"color: #008000;\">C<\/span> \"), <span style=\"color: #3366ff;\">each<\/span> = 30)),\n                   weight_loss = c( <span style=\"color: #3366ff;\">runif<\/span> (30, 0, 3),\n                                   <span style=\"color: #3366ff;\">runif<\/span> (30, 0, 5),\n                                   <span style=\"color: #3366ff;\">runif<\/span> (30, 1, 7)))\n\n<span style=\"color: #008080;\">#view first six rows of data frame\n<\/span>head(data)\n\n# program weight_loss\n#1 A 2.6900916\n#2 A 0.7965260\n#3 A 1.1163717\n#4 A 1.7185601\n#5 A 2.7246234\n#6 A 0.6050458<\/strong><\/pre>\n<h3> <span style=\"color: #000000;\"><strong>Stap 2: Vat de gegevens samen en visualiseer ze<\/strong><\/span><\/h3>\n<p> <span style=\"color: #000000;\">Voordat we een Brown-Forsythe-test uitvoeren, kunnen we boxplots maken om de variantie in gewichtsverlies voor elke groep te visualiseren:<\/span> <\/p>\n<pre style=\"background-color: #e5e5e5; font-size: 15px;\"> <strong>boxplot(weight_loss ~ program, data = data)\n<\/strong><\/pre>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"aligncenter wp-image-12614 \" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/test1.png\" alt=\"\" width=\"437\" height=\"395\" srcset=\"\" sizes=\"auto, \"><\/p>\n<p> <span style=\"color: #000000;\">We kunnen ook de variantie van het gewichtsverlies in elke groep berekenen:<\/span><\/p>\n<pre style=\"background-color: #e5e5e5; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#load dplyr package<\/span>\n<span style=\"color: #993300;\">library<\/span> (dplyr)\n\n<span style=\"color: #008080;\">#calculate variance of weight loss by group\n<\/span>data %&gt;%\n<span style=\"color: #3366ff;\">group_by<\/span> (program) %&gt;%\n  <span style=\"color: #3366ff;\">summarize<\/span> (var=var(weight_loss))\n\n# A tibble: 3 x 2\n  program var\n     \n1 A 0.819\n2 B 1.53 \n3 C 2.46<\/strong><\/pre>\n<p> <span style=\"color: #000000;\">We kunnen zien dat de varianties tussen groepen verschillen, maar om te bepalen of deze verschillen <a href=\"https:\/\/statorials.org\/nl\/praktische-statistische-significantie\/\" target=\"_blank\" rel=\"noopener\">statistisch significant<\/a> zijn, kunnen we de Brown-Forsythe-test uitvoeren.<\/span><\/p>\n<h3> <span style=\"color: #000000;\"><strong>Stap 3: Voer de Brown-Forsythe-test uit<\/strong><\/span><\/h3>\n<p> <span style=\"color: #000000;\">Om een Brown-Forsythe-test in R uit te voeren, kunnen we de functie <strong>bf.test()<\/strong> uit het <a href=\"https:\/\/www.rdocumentation.org\/packages\/onewaytests\/versions\/2.4\/topics\/bf.test\" target=\"_blank\" rel=\"noopener\">onewaytests-<\/a> pakket gebruiken:<\/span><\/p>\n<pre style=\"background-color: #e5e5e5; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#load onewaytests package<\/span>\n<span style=\"color: #993300;\">library<\/span> (onewaytests)\n\n<span style=\"color: #008080;\">#perform Brown-Forsythe test<\/span>\nbf.test(weight_loss ~ program, data = data)\n\n  Brown-Forsythe Test (alpha = 0.05) \n-------------------------------------------------- ----------- \n  data: weight_loss and program \n\n  statistic: 30.83304 \n  num df: 2 \n  name df: 74.0272 \n  p.value: 1.816529e-10 \n\n  Result: Difference is statistically significant. \n-------------------------------------------------- -----------<\/strong><\/pre>\n<p> <span style=\"color: #000000;\">De p-waarde van de test blijkt kleiner dan 0,000 en, zoals het resultaat aangeeft, zijn de verschillen in varianties tussen de drie groepen statistisch significant.<\/span><\/p>\n<h3> <strong>Volgende stappen<\/strong><\/h3>\n<p> <span style=\"color: #000000;\">Als u de nulhypothese van de Brown-Forsythe-test niet kunt verwerpen, kunt u een eenrichtings-ANOVA op de gegevens uitvoeren.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Als u echter de nulhypothese verwerpt, betekent dit dat de aanname van gelijkheid van varianties wordt geschonden. In dit geval heeft u twee opties:<\/span><\/p>\n<p> <span style=\"color: #000000;\"><strong>1. Voer toch een one-way ANOVA uit.<\/strong><\/span><\/p>\n<p> <span style=\"color: #000000;\">Het blijkt dat een eenrichtings-ANOVA feitelijk robuust is tegen ongelijke varianties, zolang de grootste variantie niet groter is dan vier keer de kleinste variantie.<\/span><\/p>\n<p> <span style=\"color: #000000;\">In stap 2 van het bovenstaande voorbeeld hebben we vastgesteld dat de kleinste variantie 0,819 was en de grootste variantie 2,46. De verhouding tussen de grootste en de kleinste variantie is dus 2,46 \/ 0,819 = <strong>3,003<\/strong> .<\/span><\/p>\n<p> <span style=\"color: #000000;\">Omdat deze waarde kleiner is dan 4, kunnen we eenvoudigweg de eenrichtings-ANOVA uitvoeren.<\/span><\/p>\n<p> <span style=\"color: #000000;\"><strong>2. Voer een Kruskal-Wallis-test uit<\/strong><\/span><\/p>\n<p> <span style=\"color: #000000;\">Als de verhouding tussen de grootste variantie en de kleinste variantie groter is dan 4, kan men ervoor kiezen om in plaats daarvan een <a href=\"https:\/\/statorials.org\/nl\/kruskal-wallis-test\/\" target=\"_blank\" rel=\"noopener\">Kruskal-Wallis-test<\/a> uit te voeren. Dit wordt beschouwd als het niet-parametrische equivalent van eenrichtings-ANOVA.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Een stapsgewijs voorbeeld van een Kruskal-Wallis-test in R vindt u hier .<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Een one-way ANOVA wordt gebruikt om te bepalen of er al dan niet een significant verschil is tussen de gemiddelden van drie of meer onafhankelijke groepen. Een van de aannames van een eenrichtings-ANOVA is dat de varianties van de populaties waaruit de steekproeven worden getrokken gelijk zijn. Een van de meest gebruikelijke manieren om dit [&hellip;]<\/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-1285","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Brown-Forsythe-test in R: stapsgewijs voorbeeld - Statorials<\/title>\n<meta name=\"description\" content=\"In deze tutorial wordt uitgelegd hoe u een Brown-Forsythe-test in R uitvoert, met een stapsgewijs voorbeeld.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Brown-Forsythe-test in R: stapsgewijs voorbeeld - Statorials\" \/>\n<meta property=\"og:description\" content=\"In deze tutorial wordt uitgelegd hoe u een Brown-Forsythe-test in R uitvoert, met een stapsgewijs voorbeeld.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-27T00:38:59+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/test1.png\" \/>\n<meta name=\"author\" content=\"Dr.benjamin anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Dr.benjamin anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"3\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/\",\"url\":\"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/\",\"name\":\"Brown-Forsythe-test in R: stapsgewijs voorbeeld - Statorials\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/nl\/#website\"},\"datePublished\":\"2023-07-27T00:38:59+00:00\",\"dateModified\":\"2023-07-27T00:38:59+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219\"},\"description\":\"In deze tutorial wordt uitgelegd hoe u een Brown-Forsythe-test in R uitvoert, met een stapsgewijs voorbeeld.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Thuis\",\"item\":\"https:\/\/statorials.org\/nl\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Brown-forsythe-test in r: stapsgewijs voorbeeld\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/nl\/#website\",\"url\":\"https:\/\/statorials.org\/nl\/\",\"name\":\"Statorials\",\"description\":\"Uw gids voor statistische competentie\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/nl\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"de\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219\",\"name\":\"Dr.benjamin anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/image\/\",\"url\":\"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"Dr.benjamin anderson\"},\"description\":\"Ik ben Benjamin, een gepensioneerde hoogleraar statistiek die nu een toegewijde Statorials-lesgever is. Ik heb uitgebreide ervaring en expertise op het gebied van statistiek en ik ben vastbesloten om mijn kennis te delen met studenten via Statorials. Lees verder\",\"sameAs\":[\"http:\/\/statorials.org\/nl\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Brown-Forsythe-test in R: stapsgewijs voorbeeld - Statorials","description":"In deze tutorial wordt uitgelegd hoe u een Brown-Forsythe-test in R uitvoert, met een stapsgewijs voorbeeld.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/","og_locale":"de_DE","og_type":"article","og_title":"Brown-Forsythe-test in R: stapsgewijs voorbeeld - Statorials","og_description":"In deze tutorial wordt uitgelegd hoe u een Brown-Forsythe-test in R uitvoert, met een stapsgewijs voorbeeld.","og_url":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/","og_site_name":"Statorials","article_published_time":"2023-07-27T00:38:59+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/test1.png"}],"author":"Dr.benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Dr.benjamin anderson","Gesch\u00e4tzte Lesezeit":"3\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/","url":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/","name":"Brown-Forsythe-test in R: stapsgewijs voorbeeld - Statorials","isPartOf":{"@id":"https:\/\/statorials.org\/nl\/#website"},"datePublished":"2023-07-27T00:38:59+00:00","dateModified":"2023-07-27T00:38:59+00:00","author":{"@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219"},"description":"In deze tutorial wordt uitgelegd hoe u een Brown-Forsythe-test in R uitvoert, met een stapsgewijs voorbeeld.","breadcrumb":{"@id":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/nl\/bruine-forsythe-test-in-r\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Thuis","item":"https:\/\/statorials.org\/nl\/"},{"@type":"ListItem","position":2,"name":"Brown-forsythe-test in r: stapsgewijs voorbeeld"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/nl\/#website","url":"https:\/\/statorials.org\/nl\/","name":"Statorials","description":"Uw gids voor statistische competentie","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/nl\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"de"},{"@type":"Person","@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219","name":"Dr.benjamin anderson","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/image\/","url":"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"Dr.benjamin anderson"},"description":"Ik ben Benjamin, een gepensioneerde hoogleraar statistiek die nu een toegewijde Statorials-lesgever is. Ik heb uitgebreide ervaring en expertise op het gebied van statistiek en ik ben vastbesloten om mijn kennis te delen met studenten via Statorials. Lees verder","sameAs":["http:\/\/statorials.org\/nl"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts\/1285","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/comments?post=1285"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts\/1285\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/media?parent=1285"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/categories?post=1285"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/tags?post=1285"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}