{"id":127,"date":"2022-09-24T05:54:17","date_gmt":"2022-09-23T20:54:17","guid":{"rendered":"https:\/\/stats.ni.tama.ac.jp\/?p=127"},"modified":"2022-09-24T21:50:07","modified_gmt":"2022-09-24T12:50:07","slug":"%e6%ad%a3%e8%a6%8f%e6%80%a7%e3%81%ae%e6%a4%9c%e5%ae%9a","status":"publish","type":"post","link":"https:\/\/stats.ni.tama.ac.jp\/?p=127","title":{"rendered":"\u6b63\u898f\u6027\u306e\u691c\u5b9a[R]"},"content":{"rendered":"\n<div class=\"wp-block-jetpack-markdown\"><p>\u6b63\u898f\u6027\u306e\u691c\u5b9a\u306b\u306f\u4e00\u822c\u7684\u306b\u30b7\u30e3\u30d4\u30ed\u30fb\u30a6\u30a3\u30eb\u30af\u691c\u5b9a Shapiro\u2013Wilk test\u3068\u30b3\u30eb\u30e2\u30b4\u30ed\u30d5-\u30b9\u30df\u30eb\u30ce\u30d5\u691c\u5b9a Kolmogorov\u2013Smirnov test\u306e2\u3064\u304c\u7528\u3044\u3089\u308c\u308b\u3002\u30b7\u30e3\u30d4\u30ed\u30fb\u30a6\u30a3\u30eb\u30af\u691c\u5b9a \u306f\u5c0f\u3055\u306a\u6a19\u672c\uff08n \u304c50\u4ee5\u4e0b\uff09\u306e\u5834\u5408\u306b\u597d\u307e\u3057\u3044\u3068\u8a00\u308f\u308c\u3001\u30b3\u30eb\u30e2\u30b4\u30ed\u30d5-\u30b9\u30df\u30eb\u30ce\u30d5\u691c\u5b9a\u306f\u3088\u308a\u5927\u304d\u306a\u6a19\u672c\u304c\u63a8\u5968\u3055\u308c\u3066\u3044\u308b\u3002\u305f\u3060\u3057\u3001\u4e00\u822c\u7684\u306b\u7528\u3044\u3089\u308c\u308b\u300c50\u300d\u3068\u3044\u3046\u6570\u5b57\u304c\u78ba\u304b\u304b\u5426\u304b\u3068\u3044\u3046\u70b9\u306b\u306f\u8b70\u8ad6\u304c\u3042\u308b\u3002<\/p>\n<p>\u6b63\u898f\u6027\u306e\u691c\u5b9a\u306b\u3064\u3044\u3066\u306e\u57fa\u672c\u7684\u306a\u89e3\u8aac\u306f\u3053\u3061\u3089\u306e\u8ad6\u6587\u3092\u53c2\u7167\u3002<\/p>\n<ul>\n<li>Ghasemi, A., &amp; Zahediasl, S. (2012). Normality Tests for Statistical Analysis: A Guide for Non-Statisticians. International Journal of Endocrinology and Metabolism, 10(2), 486\u2013489. https:\/\/doi.org\/10.5812\/ijem.3505 <a href=\"https:\/\/www.ncbi.nlm.nih.gov\/pmc\/articles\/PMC3693611\/\">https:\/\/www.ncbi.nlm.nih.gov\/pmc\/articles\/PMC3693611\/<\/a><\/li>\n<\/ul>\n<p>50\u3068\u3044\u3046\u6570\u5b57\u3092\u6319\u3052\u3066\u3044\u308b\u6587\u732e\u306f\u4e0b\u8a18\u3067\u3042\u308b\u3002<\/p>\n<ul>\n<li>Elliott, A. C., &amp; Woodward, W. A. (2007). Statistical analysis quick reference guidebook: With SPSS examples. Sage Publications.<\/li>\n<\/ul>\n<h2>\u30b7\u30e3\u30d4\u30ed\u30fb\u30a6\u30a3\u30eb\u30af\u691c\u5b9a Shapiro\u2013Wilk test<\/h2>\n<p>R\u306b\u540c\u68b1\u3055\u308c\u3066\u3044\u308biris\u30c7\u30fc\u30bf\u3092\u4f7f\u7528\u3059\u308b\u3002<\/p>\n<ul>\n<li>iris&#8230;\u3042\u3084\u3081<\/li>\n<li>Sepal&#8230;\u304c\u304f<\/li>\n<li>Width&#8230;\u5e45<\/li>\n<li>Petal&#8230;\u82b1\u5f01<\/li>\n<\/ul>\n<pre><code class=\"language-{r}\">data(iris)\nhead(iris$Sepal.Length)\n<\/code><\/pre>\n<p>\u304c\u304f\u306e\u9577\u3055\u306e\u30c7\u30fc\u30bf<\/p>\n<pre><code>5.1 4.9 4.7 4.6 5.0 5.4\n<\/code><\/pre>\n<p>\u5e30\u7121\u4eee\u8aac (H0) \u306f\u6a19\u672c\u5206\u5e03\u304c\u6b63\u898f\u5206\u5e03\u306b\u5f93\u3046\u3053\u3068\u3067\u3042\u308b\u3002<\/p>\n<pre><code class=\"language-{r}\">shapiro.test(iris$Sepal.Width)\n<\/code><\/pre>\n<p>\u7d50\u679c\u3002<\/p>\n<pre><code>Shapiro-Wilk normality test\n\ndata:  iris$Sepal.Width\nW = 0.98492, p-value = 0.1012\n<\/code><\/pre>\n<p>\u5e30\u7121\u4eee\u8aac\u306f\u68c4\u5374\u3055\u306a\u304b\u3063\u305f\u3002\u5f93\u3063\u3066\u3001\u6b63\u898f\u5206\u5e03\u306b\u5f93\u308f\u306a\u3044\u3068\u306f\u3044\u3048\u305a\u3001\u6b63\u898f\u5206\u5e03\u3092\u4eee\u5b9a\u3057\u3066\u826f\u3044\u3053\u3068\u304c\u3088\u304b\u3063\u305f\u3002<\/p>\n<h2>\u30b3\u30eb\u30e2\u30b4\u30ed\u30d5-\u30b9\u30df\u30eb\u30ce\u30d5\u691c\u5b9a Kolmogorov\u2013Smirnov test<\/h2>\n<p>\u3053\u3061\u3089\u3082\u5e30\u7121\u4eee\u8aac (H0)\u306f\u6a19\u672c\u5206\u5e03\u304c\u6b63\u898f\u5206\u5e03\u306b\u5f93\u3046\u3053\u3068\u3067\u3042\u308b\u3002<br>\npnorm\u3092\u6307\u5b9a\u3059\u308b\u30681\u6a19\u672c\u306b\u304a\u3051\u308b\u6b63\u898f\u6027\u306e\u691c\u5b9a\u3068\u306a\u308b\u3002<\/p>\n<pre><code class=\"language-{r}\">d1 &lt;- iris$Sepal.Width\nks.test(x=d1,y=&quot;pnorm&quot;,mean=mean(d1),sd=sd(d1))\n<\/code><\/pre>\n<p>\u7d50\u679c\u3002<\/p>\n<pre><code>One-sample Kolmogorov-Smirnov test\n\ndata:  d1\nD = 0.10566, p-value = 0.07023\nalternative hypothesis: two-sided\n\n<\/code><\/pre>\n<p>\u5e30\u7121\u4eee\u8aac\u306f\u68c4\u5374\u3055\u306a\u304b\u3063\u305f\u3002\u5f93\u3063\u3066\u3001\u6b63\u898f\u5206\u5e03\u306b\u5f93\u308f\u306a\u3044\u3068\u306f\u3044\u3048\u305a\u3001\u6b63\u898f\u5206\u5e03\u3092\u4eee\u5b9a\u3057\u3066\u826f\u3044\u3053\u3068\u304c\u3088\u304b\u3063\u305f\u3002<\/p>\n<h2>\u30ab\u30a4\u30d1\u30fc\u691c\u5b9a Kuiper test<\/h2>\n<blockquote>\n<p>1\u5e74\u306e\u3046\u3061\u306e1\u65e5\u3084\u3001\u3042\u308b\u3044\u306f1\u9031\u9593\u306e\u3046\u3061\u306e1\u65e5\u3068\u3044\u3063\u305f\u3088\u3046\u306b\u3001\u72ec\u7acb\u5909\u6570\u304c\u5468\u671f\u6027\u3092\u6301\u3064\u5834\u5408\u3001\u30ab\u30a4\u30d1\u30fc\u691c\u5b9a\u306e\u65b9\u304c\u3088\u308a\u9069\u5207\u3067\u3042\u308b\u3002 <a href=\"https:\/\/ja.wikipedia.org\/wiki\/%E3%82%B3%E3%83%AB%E3%83%A2%E3%82%B4%E3%83%AD%E3%83%95%E2%80%93%E3%82%B9%E3%83%9F%E3%83%AB%E3%83%8E%E3%83%95%E6%A4%9C%E5%AE%9A\">\u30b3\u30eb\u30e2\u30b4\u30ed\u30d5\u2013\u30b9\u30df\u30eb\u30ce\u30d5\u691c\u5b9a &#8211; Wikipedia<\/a><\/p>\n<\/blockquote>\n<p>\u30c7\u30fc\u30bf\u306fcircular\u578b\u306e\u3082\u306e\u3092\u7528\u3044\u308b\u3002circular\u578b\u306b\u3064\u3044\u3066\u306f<a href=\"https:\/\/search.r-project.org\/CRAN\/refmans\/circular\/html\/circular.html\">\u3053\u3061\u3089<\/a>\u3092\u53c2\u7167\u306e\u3053\u3068\u3002<\/p>\n<p>circular\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u7528\u3044\u308b\u3002<\/p>\n<\/div>\n\n\n<div class=\"vlp-link-container vlp-layout-basic wp-block-visual-link-preview-link\"><a href=\"https:\/\/www.rdocumentation.org\/packages\/circular\/versions\/0.4-95\/topics\/kuiper.test\" class=\"vlp-link\" title=\"kuiper.test function - RDocumentation\" rel=\"nofollow\" target=\"_blank\"><\/a><div class=\"vlp-layout-zone-main\"><div class=\"vlp-block-0 vlp-link-title\">kuiper.test function &#8211; RDocumentation<\/div><div class=\"vlp-block-1 vlp-link-summary\"><p>Performs Kuiper\u2019s one-sample test of uniformity on the circle.<\/p><\/div><\/div><\/div>\n\n\n<div class=\"wp-block-jetpack-markdown\"><pre><code class=\"language-{r}\">library(circular)\n\n## \u30b5\u30f3\u30d7\u30eb\u30c7\u30fc\u30bf\ndata01 &lt;- circular(runif(100, 0, 2*pi))\nhead(data01)\n<\/code><\/pre>\n<p>\u30b5\u30f3\u30d7\u30eb\u30c7\u30fc\u30bf\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3082\u306e\u3067\u3042\u308b\u3002<\/p>\n<pre><code>Circular Data: \nType = angles \nUnits = radians \nTemplate = none \nModulo = asis \nZero = 0 \nRotation = counter \n[1] 3.8045895 0.2863594 2.5420636 0.8680562 1.0686257 2.9055623\n<\/code><\/pre>\n<p>\u30ab\u30a4\u30d1\u30fc\u691c\u5b9a\u306f\u4e0b\u8a18\u306e\u3088\u3046\u306b\u66f8\u304f\u3002<\/p>\n<pre><code class=\"language-{r}\">kuiper.test(data01)\n<\/code><\/pre>\n<p>\u7d50\u679c\u3002<\/p>\n<pre><code>       Kuiper's Test of Uniformity \n \nTest Statistic:  1.3478 \nP-value &gt; 0.15 \n<\/code><\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-127","post","type-post","status-publish","format-standard","hentry","category-r"],"jetpack_sharing_enabled":true,"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=\/wp\/v2\/posts\/127","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=127"}],"version-history":[{"count":5,"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=\/wp\/v2\/posts\/127\/revisions"}],"predecessor-version":[{"id":134,"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=\/wp\/v2\/posts\/127\/revisions\/134"}],"wp:attachment":[{"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=127"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=127"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/stats.ni.tama.ac.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=127"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}