<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	
	xmlns:georss="http://www.georss.org/georss"
	xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#"
	>

<channel>
	<title>ウサギさんの統計学サロン</title>
	<atom:link href="https://multivariate-statistics.com/feed/" rel="self" type="application/rss+xml" />
	<link>https://multivariate-statistics.com</link>
	<description>統計学をwebで解説していきます。また統計学に関連する分野も扱っています。データサイエンスに必要なR言語の知識も学べます。</description>
	<lastBuildDate>Sun, 28 Apr 2024 13:34:48 +0000</lastBuildDate>
	<language>ja</language>
	<sy:updatePeriod>
	hourly	</sy:updatePeriod>
	<sy:updateFrequency>
	1	</sy:updateFrequency>
	<generator>https://wordpress.org/?v=6.5.2</generator>

<image>
	<url>https://multivariate-statistics.com/wp-content/uploads/2020/10/cropped-aikonn-3-32x32.bmp</url>
	<title>ウサギさんの統計学サロン</title>
	<link>https://multivariate-statistics.com</link>
	<width>32</width>
	<height>32</height>
</image> 
<site xmlns="com-wordpress:feed-additions:1">179912874</site>	<item>
		<title>【R言語】F検定テンプレートスクリプト</title>
		<link>https://multivariate-statistics.com/2024/04/28/r-programming-f-test-template/</link>
					<comments>https://multivariate-statistics.com/2024/04/28/r-programming-f-test-template/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Sun, 28 Apr 2024 13:34:48 +0000</pubDate>
				<category><![CDATA[R言語]]></category>
		<category><![CDATA[プログラミング]]></category>
		<category><![CDATA[統計学]]></category>
		<category><![CDATA[統計解析]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=8614</guid>

					<description><![CDATA[R言語のF検定のテンプレートファイルを紹介します。 F検定のスクリプトファイルは以下のgithubまたは、ダウンロードリンクより入手できます。 F検定の実行したいときのテンプレートファイルとして使って ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p>R言語のF検定のテンプレートファイルを紹介します。</p>
<p><span class="rmarker-s">F検定のスクリプトファイルは以下のgithubまたは、ダウンロードリンクより入手できます。</span></p>
<p>F検定の実行したいときのテンプレートファイルとして使っていただいて問題ないです。</p>
<p>github: <a href="https://github.com/usagi-san-dayo/r-template-scripts/blob/main/R%E8%A8%80%E8%AA%9E_F%E6%A4%9C%E5%AE%9A%E3%83%86%E3%83%B3%E3%83%97%E3%83%AC%E3%83%BC%E3%83%88.R">https://github.com/usagi-san-dayo/r-template-scripts/blob/main/R%E8%A8%80%E8%AA%9E_F%E6%A4%9C%E5%AE%9A%E3%83%86%E3%83%B3%E3%83%97%E3%83%AC%E3%83%BC%E3%83%88.R</a></p>
<h2>使い方</h2>
<p><span class="rmarker-s">紹介するテンプレートファイルの使い方について見ていきます。</span></p>
<p>テンプレートファイルは以下の構成になっています。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">fileName &lt;- "F検定データセット.csv" 
alternative &lt;- "two.sided" #両側検定: "two.sided", 左片側検定: "less", 右片側検定: "greater")
varEqual &lt;- TRUE
confLevel &lt;- 0.95

dataset &lt;- read.csv(fileName)

testResult &lt;- var.test(dataset[, 1], dataset[, 2], alternative = alternative,conf.level = confLevel)

resultDataFrame &lt;- data.frame(testResult$statistic,
                              testResult$estimate,
                              testResult$conf.int[1],
                              testResult$conf.int[2],
                              testResult$p.value, 
                              row.names = NULL)

colnames(resultDataFrame) &lt;- c("statistic",
                               "sample ratio of variances",
                               "upper conf.tnt of ratio of variances",
                               "lower conf.tnt of ratio of variances",
                               "p.value")

write.csv(resultDataFrame, "F検定結果.csv", row.names = FALSE,)</pre>
<p><span class="rmarker-s">基本的にソースコードの上の変数にパラメータをセットするだけでF検定を簡単に実行することができます。</span></p>
<p>特にRの知識が無くても実行できるようなスクリプトになっています。</p>
<p>続いてパラメータについて紹介します。</p>
<p>テンプレートファイルのパラメータは以下の通りです。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1"><caption>パラメータ</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">fileName</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">データセットのファイル名。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">alternative</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">検定の種類。&#8221;two.sided&#8221;で両側検定、&#8221;less&#8221;で左片側検定、&#8221;greater&#8221;で右片側検定。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">varEqual</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">2群の分散が等しいと仮定するか。TRUEの場合は等しい、FALSEの場合は等しくない。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">confInt</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">信頼水準</td>
</tr>
</tbody>
</table>
</div>
<!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph -->
<h2>実行例</h2>
<p>簡単な実行例を紹介します。</p>
<p>データセットのファイルは以下のcsvファイル（<span class="rmarker-s">エクセルは扱えません。エンコーディングがutf-8のcsvにしてください</span>）を用います。</p>
<p>1列目と2列目に2群のデータが並ぶデータにしてください。</p>
<p>信頼水準0.95の下でF検定F検定を実行する場合は、パラメータを以下の通りにセットします。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">fileName &lt;- "F検定データセット.csv" <br />alternative &lt;- "two.sided" #両側検定: "two.sided", 左片側検定: "less", 右片側検定: "greater")<br />varEqual &lt;- TRUE<br />confLevel &lt;- 0.95</pre>
<p>パラメータを与えたら、あとはRを実行すればF検定F検定の結果のcsvファイルを出力してくれます。</p>
<p>信頼区間やp値などを簡単に出力できます。</p>
<p>検定結果に出力される列は以下の通りです。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1"><caption>検定結果</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">statistic</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">検定統計量。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">sample ratio of variances</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">標本分散の比。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">upper conf.tnt of ratio of variances</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">2群の母分散の比の信頼区間の上限。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">lower conf.tnt of ratio of variances</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">2群の母分散の比の信頼区間の下限。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">p.value</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">p値。</td>
</tr>
</tbody>
</table>
</div>
<p><!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph --></p>
<div id="attachment_8620" style="width: 451px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8620" class="size-full wp-image-8620" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/10/スクリーンショット-2023-10-01-215106.png?resize=441%2C108&#038;ssl=1" alt="" width="441" height="108" data-recalc-dims="1" /><p id="caption-attachment-8620" class="wp-caption-text">F検定結果</p></div>		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="8614"
					data-ulike-nonce="9b3adba8cc"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_8614"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2024/04/28/r-programming-f-test-template/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">8614</post-id>	</item>
		<item>
		<title>【R言語】経験密度関数・経験分布関数のプロット　関数densityとecdfの使い方</title>
		<link>https://multivariate-statistics.com/2024/04/28/r-programming-epdf-ecdf/</link>
					<comments>https://multivariate-statistics.com/2024/04/28/r-programming-epdf-ecdf/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Sun, 28 Apr 2024 13:27:49 +0000</pubDate>
				<category><![CDATA[R言語]]></category>
		<category><![CDATA[プログラミング]]></category>
		<category><![CDATA[統計学]]></category>
		<category><![CDATA[統計解析]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=8327</guid>

					<description><![CDATA[R言語で経験密度関数と経験分布関数を求める方法及びグラフを描画する方法を解説していきます。 この記事では経験密度関数と分布関数を計算する関数とその使用例について見ていきます。 記事で扱うスクリプトは以 ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p><span class="rmarker-s">R言語で経験密度関数と経験分布関数を求める方法及びグラフを描画する方法を解説していきます。</span></p>
<p>この記事では経験密度関数と分布関数を計算する関数とその使用例について見ていきます。</p>
<p>記事で扱うスクリプトは以下からダウントードできます。</p>
<p><div class='w3eden'><!-- WPDM Link Template: Default Template -->

<div class="link-template-default card mb-2">
    <div class="card-body">
        <div class="media">
            <div class="mr-3 img-48"><img decoding="async" class="wpdm_icon" alt="アイコン"   src="https://multivariate-statistics.com/wp-content/plugins/download-manager/assets/file-type-icons/zip.svg" /></div>
            <div class="media-body">
                <h3 class="package-title"><a href='https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e7%b5%8c%e9%a8%93%e5%88%86%e5%b8%83%e3%81%ae%e8%a8%88%e7%ae%97/'>R言語　経験分布の計算</a></h3>
                <div class="text-muted text-small"><i class="fas fa-copy"></i> 1 ファイル <i class="fas fa-hdd ml-3"></i> 1.07 KB</div>
            </div>
            <div class="ml-3">
                <a class='wpdm-download-link download-on-click btn btn-primary ' rel='nofollow' href='#' data-downloadurl="https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e7%b5%8c%e9%a8%93%e5%88%86%e5%b8%83%e3%81%ae%e8%a8%88%e7%ae%97/?wpdmdl=8403&refresh=6a243bf9abb441780759545">ダウンロード</a>
            </div>
        </div>
    </div>
</div>

</div></p>
<h2>経験密度関数と経験分布関数</h2>
<p><span class="rmarker-s">経験分布を計算する関数を紹介します。</span></p>
<p>経験密度関数と経験分布関数のための関数をいかにまとめました。</p>
<h3>経験密度関数</h3>
<p>経験密度関数を計算するには次の関数<span class="bmarker-s">density</span>を用います。</p>
<p>デフォルトでガウスカーネルの下での経験密度を計算することができ、引数　によってカーネルを変更することもできます。</p>
<div class="graybox">
<p>density(x, …)</p>
<p># S3 method for default<br />
density(x, bw = &#8220;nrd0&#8221;, adjust = 1, kernel = c(&#8220;gaussian&#8221;, &#8220;epanechnikov&#8221;, &#8220;rectangular&#8221;, &#8220;triangular&#8221;, &#8220;biweight&#8221;, &#8220;cosine&#8221;, &#8220;optcosine&#8221;), weights = NULL, window = kernel, width, give.Rkern = FALSE, n = 512, from, to, cut = 3, na.rm = FALSE, …)</p>
</div>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1">
<caption>関数densityの引数</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">引数</td>
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">説明</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">x</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">経験密度を計算するデータ。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">bw</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">カーネル平滑化のパラメーター。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">adjust</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">カーネル平滑化のパラメーターを補正する値。パラメータは正確には、adjust × bwで計算される。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">kernel, window</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">character型。平滑化に用いるカーネルを決定する。&#8221;gaussian&#8221;, &#8220;rectangular&#8221;, &#8220;triangular&#8221;, &#8220;epanechnikov&#8221;, &#8220;biweight&#8221;, &#8220;cosine&#8221;, &#8220;optcosine&#8221;を選択できる。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">weight</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">非負のnumeric型のベクトル。観測値の重みを表す。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">width</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">widthが与えられていてbwが与えられていない場合、bwがwidthの値で与えられる。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">give.Rkern</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">logical型。TRUEの場合、密度は推定されない。代わりに選択したkernelのcanonical bandwidthが返される。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">n</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">経験密度を推定する等間隔点の数。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">from,to</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">経験密度を計算する範囲。デフォルトだとcut × bw。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">cut</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">from,toの範囲に関係するパラメーター。経験密度の裾が0になるようにする。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">na.rm</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">logical型。TRUEのとき欠測値はxから除外される。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">&#8230;</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">他のメソッドに渡す引数。</td>
</tr>
</tbody>
</table>
</div>
<h3>経験分布関数</h3>
<p>経験分布関数を計算するには関数<span class="bmarker-s">ecdf</span>を用います。</p>
<div class="graybox">
<p>ecdf(x)</p>
<p># S3 method for ecdf<br />
plot(x, …, ylab=&#8221;Fn(x)&#8221;, verticals = FALSE, col.01line = &#8220;gray70&#8221;, pch = 19)</p>
<p># S3 method for ecdf<br />
print(x, digits= getOption(&#8220;digits&#8221;) &#8211; 2, …)</p>
<p># S3 method for ecdf<br />
summary(object, …) # S3 method for ecdf quantile(x, …)</p>
</div>
<p>関数<span class="bmarker-s">ecdf</span>や関連する関数の引数は以下の通り。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1">
<caption>関数densityの引数</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">引数</td>
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">説明</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">x, object</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">xはnumeric型の観測値から成るベクトル。objectはecdfから継承されるオブジェクト。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">&#8230;</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">plotに渡す引数。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">ylab</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">y軸のラベル。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">verticals</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">logical型。経験分布関数の縦線を描くかどうか。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">col.01line</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">y=0とy=1の横線の色を表すnumericまたはcharacter型。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">pch</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">点の形を指定する。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">digits</td>
<td style="height: 16px; background-color: #f5f5f5; border-color: #ffffff;">有効数字を表す値。</td>
</tr>
</tbody>
</table>
</div>
<h2>実行例</h2>
<p><span class="rmarker-s">実際にRで経験密度関数と経験分布関数を計算していきます。</span></p>
<p>計算した経験分布のグラフを描画するためにパッケージ<span class="bmarker-s">ggplot2</span>を用います。事前にインストールしておいてください。</p><pre class="urvanov-syntax-highlighter-plain-tag">install.packages("ggplot2")
library(ggplot2)</pre><p></p>
<h3>経験分布の計算とプロット</h3>
<p>次のquakes（地震）のデータについて経験分布を求めたいと思います。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; dataset &lt;- quakes
&gt; head(dataset)
     lat   long depth mag stations
1 -20.42 181.62   562 4.8       41
2 -20.62 181.03   650 4.2       15
3 -26.00 184.10    42 5.4       43
4 -17.97 181.66   626 4.1       19
5 -20.42 181.96   649 4.0       11
6 -19.68 184.31   195 4.0       12</pre><p><span class="bmarker-s">quakes</span>の<span class="bmarker-s">mag</span>についてヒストグラムを描くと次のようになります。</p>
<p>&nbsp;</p>
<p><span class="bmarker-s">mag</span>の経験分布を計算していきたいと思います。</p>
<p>経験密度関数を計算するには関数<span class="bmarker-s">density</span>、経験分布関数を計算するには関数<span class="bmarker-s">ecdf</span>を用います。</p>
<p>次のように関数の引数に経験分布を求めたいデータを渡すことで、そのデータの経験分布を得ることができます。</p><pre class="urvanov-syntax-highlighter-plain-tag">density_quakes &lt;- density(dataset$mag)
ecdf_quakes &lt;- ecdf(dataset$mag)</pre><p><span class="bmarker-s">density_quakes</span>は次のようにxやyなどの経験密度関数の引数とそれに対応する経験密度などが格納されています。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; density_quakes

Call:
	density.default(x = dataset$mag)

Data: dataset$mag (1000 obs.);	Bandwidth 'bw' = 0.09105

       x               y            
 Min.   :3.727   Min.   :0.0000497  
 1st Qu.:4.463   1st Qu.:0.0196331  
 Median :5.200   Median :0.1868643  
 Mean   :5.200   Mean   :0.3390539  
 3rd Qu.:5.937   3rd Qu.:0.6270866  
 Max.   :6.673   Max.   :1.0294696</pre><p>経験密度を得るには次のように<span class="bmarker-s">density_quakes</span>の後ろにxとyをつけます。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; epdf_x_quakes &lt;- density</pre><p>_quakes$x #経験密度関数の引数 &gt; epdf_y_quakes &lt;- density_quakes$y #xに対応する経験密度 &gt; &gt; head(epdf_x_quakes) [1] 3.726836 3.732601 3.738367 3.744133 3.749899 3.755665 &gt; &gt; head(epdf_y_quake) [1] 0.002341667 0.002829994 0.003400496 0.004063127 0.004858902 0.005791372</p>
<p><span class="bmarker-s">ecdf_quakes</span>は関数として与えられており、次のようにecdf_quakes(x)の形で経験分布関数を計算することができます。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; x &lt;- c(4.5, 4.6, 4.7, 4.8, 4.9)
&gt; ecdf_y_quakes &lt;- ecdf_quakes(x)
&gt; 
&gt; ecdf_y_quakes
[1] 0.484 0.585 0.683 0.748 0.802</pre><p>続いて、経験分布のプロット方法について見ていきます。</p>
<p><span class="bmarker-s">plot</span>を用いることで簡単に経験密度関数と経験分布関数を描画することができます。</p><pre class="urvanov-syntax-highlighter-plain-tag">plot(density_quakes) #経験密度関数</pre><p><div id="attachment_8354" style="width: 610px" class="wp-caption aligncenter"><img fetchpriority="high" decoding="async" aria-describedby="caption-attachment-8354" class="size-full wp-image-8354" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/02/magの経験密度関数.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8354" class="wp-caption-text">magの経験密度関数</p></div></p>
<p>階段形式の経験分布関数を描きたいときは、引数<span class="bmarker-s">verticals</span>をTRUE、<span class="bmarker-s">do.p</span>をFALSEにします。</p><pre class="urvanov-syntax-highlighter-plain-tag">plot(ecdf_quakes)    #経験分布関数
plot(ecdf_quakes, verticals = TRUE,do.p = FALSE) #階段形式の経験分布関数</pre><p><div id="attachment_8353" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8353" class="size-full wp-image-8353" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/02/magの経験分布関数.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8353" class="wp-caption-text">magの経験分布関数</p></div></p>
<p><div id="attachment_8352" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8352" class="size-full wp-image-8352" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/02/magの経験分布関数（階段）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8352" class="wp-caption-text">magの経験分布関数（階段）</p></div></p>
<p>計算した経験密度を<span class="bmarker-s">ggplot</span>でプロットするには、次のように関数<span class="bmarker-s">geom_lin</span>eや<span class="bmarker-s">geom_ribbon</span>を使います。</p><pre class="urvanov-syntax-highlighter-plain-tag">dataset_denPlot &lt;- data.frame(x = density_quakes$x, y = density_quakes$y)

ggplot(dataset_denPlot, aes(x = x, y = y)) +
  geom_line() + 
  geom_ribbon(aes(ymin = 0, ymax = y), alpha = 0.5) +
  labs(y = "epdf") #経験密度関数</pre><p><div id="attachment_8350" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8350" class="size-full wp-image-8350" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/02/magの経験密度関数（ggplot2）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8350" class="wp-caption-text">magの経験密度関数（ggplot2）</p></div></p>
<p>また、<span class="bmarker-s">ggplot2</span>で用意されている<span class="bmarker-s">geom_density</span>でも経験密度をプロットすることができます。</p>
<p>実際のデータの最小値から最大値までの密度が描かれます。</p><pre class="urvanov-syntax-highlighter-plain-tag">ggplot(dataset, aes(x = mag)) +
  geom_density(fill = "black", alpha = 0.5) +
  labs(y = "epdf") #geom_densityの場合</pre><p><div id="attachment_8349" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8349" class="size-full wp-image-8349" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/02/magの経験密度関数（geom_density）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8349" class="wp-caption-text">magの経験密度関数（geom_density）</p></div></p>
<p>経験分布関数をggplotでプロットするには、関数<span class="bmarker-s">geom_step</span>を使います。</p>
<p><span class="bmarker-s">eom_step</span>は最小のxと対応するyの座標からプロットし始めるため、 xの最小値から0.1差し引いたところからプロットするようにデータを調整しています。</p><pre class="urvanov-syntax-highlighter-plain-tag">dataset_ecdfPlot &lt;- rbind(data.frame(x = dataset$mag, y = ecdf_quakes(dataset$mag)),
                          data.frame(x = min(dataset$mag) - 0.1 , y = 0))

ggplot(dataset_ecdfPlot, aes(x = x, y = y)) +
  geom_step() + 
  labs(y = "ecdf") #経験分布関数</pre><p><div id="attachment_8348" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8348" class="size-full wp-image-8348" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/02/magの経験分布関数（ggplot2）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8348" class="wp-caption-text">magの経験分布関数（ggplot2）</p></div></p>
<p>また、<span class="bmarker-s">ggplot2</span>には<span class="bmarker-s">stat_ecdf</span>という経験分布関数を描画する関数があり、こちらでも同様のグラフを描くことができます。</p><pre class="urvanov-syntax-highlighter-plain-tag">ggplot(dataset, aes(x = mag)) +
  stat_ecdf() +
  labs(y = "ecdf") #stat_ecdfの場合</pre><p><div id="attachment_8347" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8347" class="size-full wp-image-8347" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/02/magの経験分布関数（geom_ecdf）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8347" class="wp-caption-text">magの経験分布関数（geom_ecdf）</p></div></p>
<h3>多群の場合</h3>
<p><span class="rmarker-s">次に多群（複数の因子をもつ）のデータの経験分布の計算とプロットの仕方について紹介します。</span></p>
<p>データセットとして次の<span class="bmarker-s">iris</span>を使います。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; dataset &lt;- iris
&gt; head(dataset)
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa
6          5.4         3.9          1.7         0.4  setosa</pre><p>各<span class="bmarker-s">Species</span>の<span class="bmarker-s">Sepal.Length</span>のヒストグラムは次のようになります。</p>
<p>下図のヒストグラムを持つ<span class="bmarker-s">Sepal.Length</span>について、経験密度関数と分布関数を計算していきたいと思います。</p><pre class="urvanov-syntax-highlighter-plain-tag">ggplot(dataset, aes(x = Sepal.Length, color = Species, fill = Species)) +
  geom_histogram(position = "identity", alpha = 0.75, bins = 15)</pre><p><div id="attachment_8362" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8362" class="size-full wp-image-8362" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/03/Sepal.Lengthのヒストグラム.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8362" class="wp-caption-text">Sepal.Lengthのヒストグラム</p></div></p>
<p><span class="bmarker-s">Species</span>の値ごとに<span class="bmarker-s">Sepal.Length</span>の経験分布を計算するには、次のように<span class="bmarker-s">tapply</span>を用いると便利です。</p>
<p>factorのレベルごとに関数を適用することで、各<span class="bmarker-s">Species</span>ごとの経験密度関数と経験分布関数を計算しています。</p><pre class="urvanov-syntax-highlighter-plain-tag">densities_sepalLength &lt;- tapply(dataset$Sepal.Length, dataset$Species, density)
ecdfs_sepalLength &lt;-  tapply(dataset$Sepal.Length, dataset$Species, ecdf)</pre><p>計算した経験密度関数はそれぞれ次の通りです。</p>
<p>例としてsetosaの<span class="bmarker-s">Sepal.Length</span>の経験分布の計算結果のみ載せています。他の<span class="bmarker-s">Species</span>についても同様に計算できます。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; epdf_x_setosa &lt;- densities_sepalLength$setosa$x #setosaのSepal.Lengthの経験密度関数の引数
&gt; epdf_y_setosa &lt;- densities_sepalLength$setosa$x #xに対応するsetosaのSepal.Lengthの経験密度
&gt; 
&gt; head(epdf_x_setosa)
[1] 3.931426 3.935804 3.940182 3.944560 3.948938 3.953316
&gt; 
&gt; head(epdf_y_setosa)
[1] 3.931426 3.935804 3.940182 3.944560 3.948938 3.953316</pre><p>経験分布関数は次の通りです。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; x &lt;- c(4.5, 4.6, 4.7, 4.8, 4.9)
&gt; ecdf_y_setosa &lt;-ecdfs_sepalLength$setosa(x)
&gt; 
&gt; ecdf_y_setosa
[1] 0.10 0.18 0.22 0.32 0.40</pre><p>最後に多群の場合の経験分布のプロット方法について見ていきます。</p>
<p><span class="bmarker-s">ggplot</span>で経験密度関数と経験分布関数をプロットするには、上で紹介したように、それぞれ関数<span class="bmarker-s">geom_density</span>、<span class="bmarker-s">stat_ecdf</span>を使います。</p><pre class="urvanov-syntax-highlighter-plain-tag">ggplot(dataset, aes(x = Sepal.Length, color = Species, fill = Species)) +
  geom_density(alpha = 0.5) +
  labs(y = "epdf") #geom_densityの場合

ggplot(dataset, aes(x = Sepal.Length, color = Species)) +
  stat_ecdf() +
  labs(y = "ecdf") #stat_ecdfの場合</pre><p><div id="attachment_8365" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8365" class="size-full wp-image-8365" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/03/Sepal.Lengthの経験密度関数（ggplot）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8365" class="wp-caption-text">Sepal.Lengthの経験密度関数（geom_density）</p></div></p>
<p><div id="attachment_8364" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8364" class="size-full wp-image-8364" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/03/Sepal.Lengthの経験分布関数（ggplot）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8364" class="wp-caption-text">Sepal.Lengthの経験分布関数（stat_ecdf）</p></div></p>
<p>また、上で計算した経験密度と経験分布を基に<span class="bmarker-s">ggplot</span>でプロットしたい場合は、次のようにデータを加工するプロセスが必要になります。</p><pre class="urvanov-syntax-highlighter-plain-tag">dataset_denPlot &lt;- data.frame(x = NULL, y = NULL, Species = NULL)
dataset_ecdfPlot &lt;- data.frame(x = NULL, y = NULL, Species = NULL)

for (specy in names(densities_sepalLength)) {
  dataset_density &lt;- data.frame(x = densities_sepalLength[[specy]]$x, 
                                y = densities_sepalLength[[specy]]$y, 
                                Species = specy)
  dataset_ecdf &lt;- data.frame(x = dataset$Sepal.Length[dataset$Species == specy], 
                            y = ecdfs_sepalLength[[specy]](dataset$Sepal.Length[dataset$Species == specy]), 
                            Species = specy)
  dataset_denPlot &lt;- rbind(dataset_denPlot, dataset_density)
  dataset_ecdfPlot &lt;- rbind(dataset_ecdfPlot, dataset_ecdf)
}
dataset_ecdfPlot &lt;- rbind(dataset_ecdfPlot, 
                          data.frame(x = max(dataset$Sepal.Length) + 0.1,
                                                       y = 1,
                                                       Species = levels(dataset$Species)),
                          data.frame(x = min(dataset$Sepal.Length) - 0.1,
                                     y = 0,
                                     Species = levels(dataset$Species)))

ggplot(dataset_denPlot, aes(x = x, y = y, fill = Species)) +
  geom_line(aes(color = Species)) +
  geom_ribbon(aes(ymin = 0, ymax = y), alpha = 0.5) +
  labs(y = "epdf") #経験密度関数

ggplot(dataset_ecdfPlot, aes(x = x, y = y, color = Species)) +
  geom_step() +
  labs(y = "ecdf") #経験分布関数</pre><p><div id="attachment_8367" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8367" class="size-full wp-image-8367" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/03/Sepal.Lengthの経験密度関数（ggplot2）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8367" class="wp-caption-text">Sepal.Lengthの経験密度関数（ggplot2）</p></div></p>
<p><div id="attachment_8366" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8366" class="size-full wp-image-8366" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/03/Sepal.Lengthの経験分布関数（ggplot2）.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8366" class="wp-caption-text">Sepal.Lengthの経験分布関数（ggplot2）</p></div></p>
<h2>まとめ</h2>
<p><span class="rmarker-s">R言語で経験分布を計算する関数とその使用例について紹介しました。</span></p>
<p>経験密度関数を計算するには関数<span class="bmarker-s">density</span>、経験分布関数を計算するには関数<span class="bmarker-s">ecdf</span>を用います。</p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="8327"
					data-ulike-nonce="4e8505534d"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_8327"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2024/04/28/r-programming-epdf-ecdf/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">8327</post-id>	</item>
		<item>
		<title>【R言語】ベータ関数とガンマ関数　関数beta, gammaの使い方</title>
		<link>https://multivariate-statistics.com/2024/04/10/r-programming-beta-gamma-function/</link>
					<comments>https://multivariate-statistics.com/2024/04/10/r-programming-beta-gamma-function/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Tue, 09 Apr 2024 15:28:38 +0000</pubDate>
				<category><![CDATA[R言語]]></category>
		<category><![CDATA[プログラミング]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=8022</guid>

					<description><![CDATA[R言語でベータ関数とガンマ関数を計算する関数とその実行例についてまとめました。 階乗を複素数に拡張した特殊関数であるガンマ関数とそれに関連するベータ関数をR言語で計算する方法を紹介します。 この記事で ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p><span class="rmarker-s">R言語でベータ関数とガンマ関数を計算する関数とその実行例についてまとめました。</span></p>
<p>階乗を複素数に拡張した特殊関数であるガンマ関数とそれに関連するベータ関数をR言語で計算する方法を紹介します。</p>
<p>この記事で用いるプログラミングコードは以下からダウンロードできます。</p>
<p><div class='w3eden'><!-- WPDM Link Template: Default Template -->

<div class="link-template-default card mb-2">
    <div class="card-body">
        <div class="media">
            <div class="mr-3 img-48"><img decoding="async" class="wpdm_icon" alt="アイコン"   src="https://multivariate-statistics.com/wp-content/plugins/download-manager/assets/file-type-icons/zip.svg" /></div>
            <div class="media-body">
                <h3 class="package-title"><a href='https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e3%83%99%e3%83%bc%e3%82%bf%e9%96%a2%e6%95%b0%e3%83%bb%e3%82%ac%e3%83%b3%e3%83%9e%e9%96%a2%e6%95%b0/'>R言語　ベータ関数・ガンマ関数</a></h3>
                <div class="text-muted text-small"><i class="fas fa-copy"></i> 1 ファイル <i class="fas fa-hdd ml-3"></i> 0.40 KB</div>
            </div>
            <div class="ml-3">
                <a class='wpdm-download-link download-on-click btn btn-primary ' rel='nofollow' href='#' data-downloadurl="https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e3%83%99%e3%83%bc%e3%82%bf%e9%96%a2%e6%95%b0%e3%83%bb%e3%82%ac%e3%83%b3%e3%83%9e%e9%96%a2%e6%95%b0/?wpdmdl=8054&refresh=6a243bfa649ef1780759546">ダウンロード</a>
            </div>
        </div>
    </div>
</div>

</div></p>
<h2>ベータ関数とガンマ関数</h2>
<p><span class="rmarker-s">R言語でベータ関数とガンマ関数を計算する際に用いる関数をまとめました。</span></p>
<p>ベータ関数とガンマ関数のほかにも、対数をとったものを計算する関数なども実装されています。</p>
<h3>ベータ関数</h3>
<p>次の関数<span class="bmarker-s">beta</span>でベータ関数を計算することができます。</p>
<p>また、関数<span class="bmarker-s">lbeta</span>でベータ関数に対数をとったものを計算できます。</p>
<div class="graybox">beta(a, b)<br />
lbeta(a, b)</div>
<p>関数<span class="bmarker-s">beta</span>、<span class="bmarker-s">lbeta</span>の引数は次の通りです。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1">
<caption>関数beta, lbetaの引数</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">a</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">パッケージ名のcharacter型のベクトル</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">b</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">インストール先のlibraryのディレクトリを表すcharacter型のベクトル。</td>
</tr>
</tbody>
</table>
</div>
<h3>ガンマ関数</h3>
<p>関数<span class="bmarker-s">gamma</span>でガンマ関数を計算することができます。</p>
<p>また、ガンマ関数に対数をとったものなど様々な関数が用意されています。</p>
<div class="graybox">gamma(x)<br />
lgamma(x)<br />
psigamma(x, deriv = 0)<br />
digamma(x)<br />
trigamma(x)</div>
<p>関数<span class="bmarker-s">gamma</span>、<span class="bmarker-s">lgamma</span>、<span class="bmarker-s">psigamma</span>、<span class="bmarker-s">digamma</span>、<span class="bmarker-s">trigamma</span>の引数は次の通りです。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1">
<caption>関数gamma, lgamma, psigamma, digamma, trigammaの引数</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">x</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">リポジトリのURL。&#8221;username/repo[/subdir][@ref|#pull]&#8221;のように与える。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">deriv</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">リポジトリのユーザー名。</td>
</tr>
</tbody>
</table>
</div>
<h2>実行例</h2>
<p><span class="rmarker-s">ベータ関数とガンマ関数をR言語で計算する例をまとめました。</span></p>
<p>それぞれの関数の計算例だけでなくグラフの描き方についても紹介しています。</p>
<h3>ベータ関数</h3>
<p>ベータ関数を計算するには関数<span class="bmarker-s">beta</span>を用います。</p>
<p>引数<span class="bmarker-s">a</span>と<span class="bmarker-s">b</span>にはそれぞれベータ関数\(B(a, b)\)の引数に対応しています。</p>
<p>また、関数lbetaでベータ関数に対数をとったものを計算することもできます。</p><pre class="urvanov-syntax-highlighter-plain-tag">#ベータ関数
a &lt;- 3 
b &lt;- 2

b &lt;- beta(a, b)
lb &lt;- lbeta(a, b)</pre><p>計算した各種ベータ関数の値はそれぞれ次となります。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; b
[1] 0.08333333
&gt; lb
[1] 2.364042</pre><p>また、関数<span class="bmarker-s">persp</span>を使うことでベータ関数を描くことができます。</p>
<p>関数<span class="bmarker-s">beta</span>と<span class="bmarker-s">lbeta</span>のグラフはそれぞれ下の画像のようになります。</p><pre class="urvanov-syntax-highlighter-plain-tag">x &lt;- seq(1, 10, length = 50)
y &lt;- seq(1, 10, length = 50)

z &lt;- outer(x, y, beta)
persp(x, y, z, theta=120, phi=20, expand=0.5, ticktype="detailed")

z &lt;- outer(x, y, lbeta)
persp(x, y, z, theta=120, phi=20, expand=0.5, ticktype="detailed")</pre><p><div id="attachment_8028" style="width: 510px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8028" class="size-full wp-image-8028" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/beta.png?resize=500%2C500&#038;ssl=1" alt="" width="500" height="500" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/beta.png?w=500&amp;ssl=1 500w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/beta.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/beta.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 500px) 100vw, 500px" data-recalc-dims="1" /><p id="caption-attachment-8028" class="wp-caption-text">関数beta</p></div></p>
<p><div id="attachment_8029" style="width: 510px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8029" class="size-full wp-image-8029" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lbeta.png?resize=500%2C500&#038;ssl=1" alt="" width="500" height="500" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lbeta.png?w=500&amp;ssl=1 500w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lbeta.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lbeta.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 500px) 100vw, 500px" data-recalc-dims="1" /><p id="caption-attachment-8029" class="wp-caption-text">関数lbeta</p></div></p>
<h3>ガンマ関数</h3>
<p><span class="rmarker-s">次にガンマ関数の計算例について見ていきます。</span></p>
<p>ガンマ関数を計算するには関数<span class="bmarker-s">gamma</span>を用います。</p>
<p>引数<span class="bmarker-s">x</span>はガンマ関数\(\Gamma(x)\)の引数に対応しています。</p>
<p>また、関数<span class="bmarker-s">lgamma</span>でガンマ関数に対数をとったものを計算でき、<span class="bmarker-s">psigamma</span>、<span class="bmarker-s">digamma</span>、<span class="bmarker-s">trigamma</span>でそれぞれ次で定義される関数の値を得ることができます。</p>
<div class="scroll">\begin{align}\mathrm{psigamma}(x, m) &amp;=\psi^{(m)}(x) =  \cfrac{d^m}{dx^m} \psi(x) = \cfrac{d^{m+1}}{dx^{m+1}}\ln \Gamma(x)  , \\ \mathrm{digamma}(x) &amp;= \psi(x) =  \cfrac{d}{dx} \ln \Gamma(x) = \cfrac{\Gamma'(x)}{\Gamma(x)}, \\ \mathrm{trigamma}(x) &amp;=\psi_1(x) = \cfrac{d}{dx} \psi(x)=\cfrac{d^2}{dx^2}\ln \Gamma(x). \end{align}</div>
<p></p><pre class="urvanov-syntax-highlighter-plain-tag">x &lt;- 5

g &lt;- gamma(x)
lg &lt;- lgamma(x)
pg &lt;- psigamma(x)
dg &lt;- digamma(x)
tg &lt;- trigamma(x)</pre><p>計算したこれらの関数の値は次の通りです。</p><pre class="urvanov-syntax-highlighter-plain-tag">&gt; g
[1] 24
&gt; lg
[1] 3.178054
&gt; pg
[1] 1.506118
&gt; dg
[1] 1.506118
&gt; tg
[1] 0.221323</pre><p>また、関数<span class="bmarker-s">curve</span>を用いることで、各種ガンマ関数を描くことができます。</p><pre class="urvanov-syntax-highlighter-plain-tag">curve(gamma, from = 1, to = 10)
curve(lgamma, from = 1, to = 10)
curve(psigamma, from = 1, to = 10)
curve(digamma, from = 1, to = 10)
curve(trigamma, from = 1, to = 10)</pre><p><div id="attachment_8033" style="width: 510px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8033" class="size-full wp-image-8033" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/gamma.png?resize=500%2C500&#038;ssl=1" alt="" width="500" height="500" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/gamma.png?w=500&amp;ssl=1 500w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/gamma.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/gamma.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 500px) 100vw, 500px" data-recalc-dims="1" /><p id="caption-attachment-8033" class="wp-caption-text">関数gamma</p></div></p>
<p><div id="attachment_8034" style="width: 510px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8034" class="size-full wp-image-8034" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lgamma.png?resize=500%2C500&#038;ssl=1" alt="" width="500" height="500" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lgamma.png?w=500&amp;ssl=1 500w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lgamma.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/lgamma.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 500px) 100vw, 500px" data-recalc-dims="1" /><p id="caption-attachment-8034" class="wp-caption-text">関数lgamma</p></div></p>
<p><div id="attachment_8035" style="width: 510px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8035" class="size-full wp-image-8035" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/psigamma.png?resize=500%2C500&#038;ssl=1" alt="" width="500" height="500" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/psigamma.png?w=500&amp;ssl=1 500w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/psigamma.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/psigamma.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 500px) 100vw, 500px" data-recalc-dims="1" /><p id="caption-attachment-8035" class="wp-caption-text">関数psigamma</p></div></p>
<p><div id="attachment_8032" style="width: 510px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8032" class="size-full wp-image-8032" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/digamma.png?resize=500%2C500&#038;ssl=1" alt="" width="500" height="500" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/digamma.png?w=500&amp;ssl=1 500w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/digamma.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/digamma.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 500px) 100vw, 500px" data-recalc-dims="1" /><p id="caption-attachment-8032" class="wp-caption-text">関数digamma</p></div></p>
<p><div id="attachment_8036" style="width: 510px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8036" class="size-full wp-image-8036" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/trigamma.png?resize=500%2C500&#038;ssl=1" alt="" width="500" height="500" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/trigamma.png?w=500&amp;ssl=1 500w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/trigamma.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/12/trigamma.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 500px) 100vw, 500px" data-recalc-dims="1" /><p id="caption-attachment-8036" class="wp-caption-text">関数trigamma</p></div></p>
<h2>まとめ</h2>
<p><span class="rmarker-s">R言語でベータ関数とガンマ関数を計算する関数を紹介しました。</span></p>
<p>ベータ関数とガンマ関数はRに標準で実装されており、それぞれ関数<span class="bmarker-s">beta</span>、<span class="bmarker-s">gamma</span>を用いることで計算することが可能です。</p>
<p>また関数<span class="bmarker-s">lbeta</span>や<span class="bmarker-s">lgamma</span>などのそれぞれの関数に対数をとったものや、ガンマ関数に関連する特殊関数も実装されています。</p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="8022"
					data-ulike-nonce="aee2ef03bc"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_8022"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2024/04/10/r-programming-beta-gamma-function/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">8022</post-id>	</item>
		<item>
		<title>【R言語】1標本t検定テンプレートスクリプト</title>
		<link>https://multivariate-statistics.com/2024/01/20/r-programming-one-sample-t-test-template/</link>
					<comments>https://multivariate-statistics.com/2024/01/20/r-programming-one-sample-t-test-template/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Sat, 20 Jan 2024 12:05:53 +0000</pubDate>
				<category><![CDATA[R言語]]></category>
		<category><![CDATA[プログラミング]]></category>
		<category><![CDATA[統計学]]></category>
		<category><![CDATA[統計解析]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=8609</guid>

					<description><![CDATA[R言語の1標本t検定のテンプレートファイルを紹介します。 t検定のスクリプトファイルは以下のgithubまたは、ダウンロードリンクより入手できます。 t検定の実行したいときのテンプレートファイルとして ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p>R言語の1標本t検定のテンプレートファイルを紹介します。</p>
<p><span class="rmarker-s">t検定のスクリプトファイルは以下のgithubまたは、ダウンロードリンクより入手できます。</span></p>
<p>t検定の実行したいときのテンプレートファイルとして使っていただいて問題ないです。</p>
<p>github: <a href="https://github.com/usagi-san-dayo/r-template-scripts/blob/main/R%E8%A8%80%E8%AA%9E_1%E6%A8%99%E6%9C%ACt%E6%A4%9C%E5%AE%9A%E3%83%86%E3%83%B3%E3%83%97%E3%83%AC%E3%83%BC%E3%83%88.R">https://github.com/usagi-san-dayo/r-template-scripts/blob/main/R%E8%A8%80%E8%AA%9E_1%E6%A8%99%E6%9C%ACt%E6%A4%9C%E5%AE%9A%E3%83%86%E3%83%B3%E3%83%97%E3%83%AC%E3%83%BC%E3%83%88.R</a></p>
<h2>使い方</h2>
<p><span class="rmarker-s">紹介するテンプレートファイルの使い方について見ていきます。</span></p>
<p>テンプレートファイルは以下の構成になっています。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">fileName &lt;- "1標本t検定データセット.csv" 
alternative &lt;- "two.sided" #両側検定: "two.sided", 左片側検定: "less", 右片側検定: "greater")
mu &lt;- 170
varEqual = FALSE
confLevel = 0.95

dataset &lt;- read.csv(fileName)

testResult &lt;- t.test(dataset[, 1], alternative = alternative, mu = mu, conf.level = confLevel)

resultDataFrame &lt;- data.frame(testResult$statistic,
                              testResult$estimate[1],
                              testResult$conf.int[1],
                              testResult$conf.int[2],
                              testResult$p.value, 
                              row.names = NULL)

colnames(resultDataFrame) &lt;- c("statistic",
                               paste("sample.mean of " , colnames(dataset)[1]),
                               "upper conf.tnt of mean difference",
                               "lower conf.tnt of mean difference",
                               "p.value")

write.csv(resultDataFrame, row.names = FALSE, "1標本t検定結果.csv")</pre>
<p>  <span class="rmarker-s">基本的にソースコードの上の変数にパラメータをセットするだけで２標本t検定を簡単に実行することができます。</span></p>
<p> 特にRの知識が無くても実行できるようなスクリプトになっています。</p>
<p>続いてパラメータについて紹介します。</p>
<p>テンプレートファイルのパラメータは以下の通りです。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1"><caption>パラメータ</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">fileName</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">データセットのファイル名。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">alternative</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">検定の種類。&#8221;two.sided&#8221;で両側検定、&#8221;less&#8221;で左片側検定、&#8221;greater&#8221;で右片側検定。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">mu</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">帰無仮説の下での母平均。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">confInt</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">信頼水準</td>
</tr>
</tbody>
</table>
</div>
<!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph -->
<h2>実行例</h2>
<p>簡単な実行例を紹介します。</p>
<p>データセットのファイルは以下のcsvファイル（<span class="rmarker-s">エクセルは扱えません。エンコーディングがutf-8のcsvにしてください</span>）を用います。</p>
<p>1列目と2列目に2群のデータが並ぶデータにしてください。</p>
<p>信頼水準0.95の下で1標本t検定を実行する場合は、パラメータを以下の通りにセットします。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">fileName &lt;- "1標本t検定データセット.csv" 
alternative &lt;- "two.sided" #両側検定: "two.sided", 左片側検定: "less", 右片側検定: "greater")
mu &lt;- 170
varEqual = FALSE
confLevel = 0.95</pre>
<p>パラメータを与えたら、あとはRを実行すれば1標本t検定の結果のcsvファイルを出力してくれます。</p>
<p>信頼区間やp値などを簡単に出力できます。</p>
<p>検定結果に出力される列は以下の通りです。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1"><caption>検定結果</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">statistic</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">検定統計量。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">sample.mean of x</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">データセットの1列目の標本平均。xには列名が入ります。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">upper conf.int of mean</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">母平均の信頼区間の上限。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">upper conf.int of mean</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">母平均の信頼区間の下限。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">p.value</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">p値。</td>
</tr>
</tbody>
</table>
</div>
<p><!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph --></p>
<div id="attachment_8612" style="width: 489px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8612" class="size-full wp-image-8612" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/10/スクリーンショット-2023-10-01-012028.png?resize=479%2C117&#038;ssl=1" alt="" width="479" height="117" data-recalc-dims="1" /><p id="caption-attachment-8612" class="wp-caption-text">t検定結果</p></div>		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="8609"
					data-ulike-nonce="4c1ccdc201"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_8609"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="+1"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2024/01/20/r-programming-one-sample-t-test-template/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">8609</post-id>	</item>
		<item>
		<title>【統計学】標準偏差の不偏推定量</title>
		<link>https://multivariate-statistics.com/2024/01/10/statistics-standard-deviation-unbiased-estimator/</link>
					<comments>https://multivariate-statistics.com/2024/01/10/statistics-standard-deviation-unbiased-estimator/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Wed, 10 Jan 2024 12:57:03 +0000</pubDate>
				<category><![CDATA[統計学]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=7203</guid>

					<description><![CDATA[標準偏差の不偏推定量について解説する。 不偏推定量やバイアスの定義から、母集団分布が正規分布であるときの標準偏差の不偏推定量を構成する流れを紹介する。 不偏推定量については次の記事を参照されたい。 不 ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[
<p>標準偏差の不偏推定量について解説する。</p>



<p>不偏推定量やバイアスの定義から、母集団分布が正規分布であるときの標準偏差の不偏推定量を構成する流れを紹介する。</p>
<p>不偏推定量については次の記事を参照されたい。</p>




				<a href="https://multivariate-statistics.com/2021/05/28/statistics-consistent-estimator/" class="st-cardlink">
				<div class="kanren st-cardbox" >
										<dl class="clearfix">
						<dt class="st-card-img">
																								<img decoding="async" width="150" height="150" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=150%2C150&amp;ssl=1" class="attachment-st_thumb150 size-st_thumb150 wp-post-image" alt="" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?w=469&amp;ssl=1 469w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=300%2C300&amp;ssl=1 300w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 150px) 100vw, 150px" />																					</dt>
						<dd>
															<h5 class="st-cardbox-t">【統計学】一致推定量・統計量の一致性</h5>
							
															<div class="st-card-excerpt smanone">
									<p>統計量における推定量の1つである一致推定量についてみていく。 推定量の一致性はZ検定などの大標本においてきわめて重要である。 この記事では、一致推定量の定義を与えて種々の推定量（標本平均や標本分散）が &#8230; </p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="3042"
					data-ulike-nonce="f0c4e02811"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_3042"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
									</div>
																						<p class="cardbox-more">続きを見る</p>
													</dd>
					</dl>
				</div>
				</a>
				


		<div class="pochipp-box"
			data-id="6823"
			data-img="l"
			data-lyt-pc="dflt"
			data-lyt-mb="vrtcl"
			data-btn-style="dflt"
			data-btn-radius="off"
			data-sale-effect="flash"
			 data-cvkey="adbdee9c"		>
							<div class="pochipp-box__image">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4130420658" rel="nofollow">
						<img decoding="async" src="https://i0.wp.com/m.media-amazon.com/images/I/512H1E9ARDL._SL400_.jpg?resize=120%2C120&#038;ssl=1" alt="" width="120" height="120" data-recalc-dims="1" />					</a>
				</div>
						<div class="pochipp-box__body">
				<div class="pochipp-box__title">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4130420658" rel="nofollow">
						統計学入門 (基礎統計学Ⅰ)					</a>
				</div>

									<div class="pochipp-box__info">統計学の入門書におすすめ！</div>
				
									<div class="pochipp-box__price">
						¥3,080						<span>（2022/06/27 19:34時点 | Amazon調べ）</span>
					</div>
				
							</div>
				<div class="pochipp-box__btns"
		data-maxclmn-pc="fit"
		data-maxclmn-mb="1"
	>
					<div class="pochipp-box__btnwrap -amazon">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4130420658" class="pochipp-box__btn" rel="nofollow">
					<span>
						Amazon					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062" width="1" height="1" style="border:none;">				</a>
			</div>
							<div class="pochipp-box__btnwrap -rakuten">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616&#038;url=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F476847%2F" class="pochipp-box__btn" rel="nofollow">
					<span>
						楽天市場					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616" width="1" height="1" style="border:none;">				</a>
			</div>
										<div class="pochipp-box__btnwrap -yahoo -long-text">
								<a href="https://store.shopping.yahoo.co.jp/boox/bk-4130420658.html" class="pochipp-box__btn" rel="nofollow">
					<span>
						Yahooショッピング					</span>
									</a>
			</div>
									</div>
								<div class="pochipp-box__logo">
					<img decoding="async" src="https://i0.wp.com/multivariate-statistics.com/wp-content/plugins/pochipp/assets/img/pochipp-logo-t1.png?resize=32%2C32&#038;ssl=1" alt="" width="32" height="32"  data-recalc-dims="1">
					<span>ポチップ</span>
				</div>
					</div>
	

		<div class="pochipp-box"
			data-id="6824"
			data-img="l"
			data-lyt-pc="dflt"
			data-lyt-mb="vrtcl"
			data-btn-style="dflt"
			data-btn-radius="off"
			data-sale-effect="flash"
			 data-cvkey="62fbc6ad" data-auto-update="true"		>
							<div class="pochipp-box__image">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4788925559" rel="nofollow">
						<img decoding="async" src="https://i0.wp.com/m.media-amazon.com/images/I/61Ve0oSPU+L._SL400_.jpg?resize=120%2C120&#038;ssl=1" alt="" width="120" height="120" data-recalc-dims="1" />					</a>
				</div>
						<div class="pochipp-box__body">
				<div class="pochipp-box__title">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4788925559" rel="nofollow">
						日本統計学会公式認定 統計検定 2級 公式問題集[2018〜2021年]					</a>
				</div>

				
									<div class="pochipp-box__price">
						¥1,980						<span>（2022/06/27 19:37時点 | Amazon調べ）</span>
					</div>
				
							</div>
				<div class="pochipp-box__btns"
		data-maxclmn-pc="fit"
		data-maxclmn-mb="1"
	>
					<div class="pochipp-box__btnwrap -amazon">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4788925559" class="pochipp-box__btn" rel="nofollow">
					<span>
						Amazon					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062" width="1" height="1" style="border:none;">				</a>
			</div>
							<div class="pochipp-box__btnwrap -rakuten">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616&#038;url=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F16886200%2F" class="pochipp-box__btn" rel="nofollow">
					<span>
						楽天市場					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616" width="1" height="1" style="border:none;">				</a>
			</div>
										<div class="pochipp-box__btnwrap -yahoo -long-text">
								<a href="https://store.shopping.yahoo.co.jp/boox/bk-4788925559.html" class="pochipp-box__btn" rel="nofollow">
					<span>
						Yahooショッピング					</span>
									</a>
			</div>
									</div>
								<div class="pochipp-box__logo">
					<img decoding="async" src="https://i0.wp.com/multivariate-statistics.com/wp-content/plugins/pochipp/assets/img/pochipp-logo-t1.png?resize=32%2C32&#038;ssl=1" alt="" width="32" height="32"  data-recalc-dims="1">
					<span>ポチップ</span>
				</div>
					</div>
	


<h2 class="wp-block-heading">不偏推定量</h2>



<p>不偏推定量の定義を以下にまとめる。</p>






<div class="st-mybox  has-title " style="background:#ffffff;border-color:#BDBDBD;border-width:2px;border-radius:5px;margin: 25px 0;"><p class="st-mybox-title" style="color:#757575;font-weight:bold;background: #ffffff;"><i class="st-fa fa-check-circle st-css-no" aria-hidden="true"></i>不偏推定量</p><div class="st-in-mybox"> \(x\)をパラメータ\(\theta\)をもつ母集団の標本とし、\(\hat{\theta}\)を\(\theta\)の推定量とする。推定量\(\hat{\theta}\)が次を満たすとき、\(\hat{\theta}\)は不偏性をもつという。</p>
<div class="scroll">\begin{align} \mathrm{E}_{X|\theta}[\hat{\theta}] = \theta.\end{align}</div>
</div></div>





<h2 class="wp-block-heading">標準偏差の不偏推定量</h2>





<p>標準偏差の不偏推定量は以下の通り。 <div class="st-mybox  has-title " style="background:#ffffff;border-color:#BDBDBD;border-width:2px;border-radius:5px;margin: 25px 0;"><p class="st-mybox-title" style="color:#757575;font-weight:bold;background: #ffffff;"><i class="st-fa fa-check-circle st-css-no" aria-hidden="true"></i>標準偏差の不偏推定量</p><div class="st-in-mybox"> \(X_1, X_2,\ldots, X_n,\ i.i.d.\sim N(\mu, \sigma^2)\)について標準偏差\(\sigma^2\)の不偏推定量は次で与えられる。\begin{align} \label{eq1} D&amp;= \sqrt{\cfrac{n &#8211; 1}{2}} \cfrac{ \Gamma[(n &#8211; 2) / 2]}{\Gamma[(n &#8211; 1) / 2] }S , \tag{1}\end{align}ここに\(S^2\)は次の不偏標本分散である。</p>
<div class="scroll">\begin{align} S^2&amp;= \cfrac{1}{n &#8211; 1}\sum_{i=1}^n(X_i- \bar{X})^2.\end{align}</div>
</div></div></p>
<p>不偏標本分散の平方根が標準偏差の不偏推定量とはならないことに注意が必要である。</p>
<p><strong>証明　</strong>標準偏差の不偏推定量を導出するために、次の標本分散を定義する。</p>
<div class="scroll">\begin{align}S^2&amp;= \cfrac{1}{n &#8211; 1}\sum_{i=1}^n(X_i- \bar{X})^2. \end{align}</div>
<p>標本分散の分布より\(V =( n-1) S^2 / \sigma^2 \sim\chi_{n &#8211; 1}^2\)であることから</p>
<div class="scroll">\begin{align} \mathrm{E}[V^{1/2}] &amp;= \int_0^{\infty} v^{1/ 2} \cfrac{v^{(n- 1) / 2 &#8211; 1} e^{- v / 2}}{2^{(n &#8211; 1) / 2} \Gamma[(n &#8211; 1) / 2]} dv \\ &amp;= \cfrac{1}{2^{(n &#8211; 1) / 2} \Gamma[(n &#8211; 1) / 2]} \int_0^{\infty} v^{n / 2 &#8211; 1} e^{- v / 2} dv \\ &amp;= \cfrac{1}{2^{(n &#8211; 1) / 2} \Gamma[(n &#8211; 1) / 2]} \cfrac{\Gamma(n/ 2)}{2^{- n  / 2}} \\ &amp;=\sqrt{2}\cfrac{\Gamma(n / 2)}{\Gamma[(n &#8211; 1) / 2]}. \end{align}よって\begin{align} &amp;\mathrm{E}[V^{1/ 2}] = \sqrt{2}\cfrac{\Gamma(n / 2)}{\Gamma[(n &#8211; 1) / 2]} \\ &amp;\Leftrightarrow \mathrm{E}\left[\left\{ \cfrac{(n &#8211; 1)S^2}{ \sigma^2}\right\}^{1/ 2}\right] = \sqrt{2} \cfrac{\Gamma(n  / 2)}{\Gamma[(n &#8211; 1) / 2]} \\ &amp;\Leftrightarrow \mathrm{E}[S] =\sqrt{\cfrac{2}{n &#8211; 1}}\cfrac{\Gamma(n / 2)}{ \Gamma[(n &#8211; 1) / 2]}\sigma. \end{align}</div>
<p>ゆえに右辺の\(\sigma\)の係数の逆数を\(S\)に掛けた確率変数を\(D\)とおくと、次のように期待値は\(\sigma\)に一致する。</p>
<div class="scroll">\begin{align}\mathrm{E}[D] &amp;=  \mathrm{E}\left[\sqrt{\cfrac{n &#8211; 1}{2}}\cfrac{\Gamma[(n &#8211; 1) / 2]}{\Gamma(n / 2) }S \right] \\ &amp;=\sqrt{\cfrac{n &#8211; 1}{2}}\cfrac{\Gamma[(n &#8211; 1) / 2]}{\Gamma(n / 2) }\mathrm{E}[S] \\ &amp;=\sqrt{\cfrac{n &#8211; 1}{2}}\cfrac{\Gamma[(n &#8211; 1) / 2]}{\Gamma(n / 2) }\sqrt{\cfrac{2}{n &#8211; 1}}\cfrac{\Gamma(n / 2)}{ \Gamma[(n &#8211; 1) / 2]}\sigma \\ &amp;= \sigma.\end{align}</div>
<p>\eqref{eq1}の標準偏差の不偏推定量が得られた。</p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="7203"
					data-ulike-nonce="7cf985f565"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_7203"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="+1"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2024/01/10/statistics-standard-deviation-unbiased-estimator/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">7203</post-id>	</item>
		<item>
		<title>【計算フォーム】母比率の差の検定　p値の算出</title>
		<link>https://multivariate-statistics.com/2024/01/10/calculator-proportion-difference-test/</link>
					<comments>https://multivariate-statistics.com/2024/01/10/calculator-proportion-difference-test/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Wed, 10 Jan 2024 12:54:53 +0000</pubDate>
				<category><![CDATA[計算フォーム]]></category>
		<category><![CDATA[統計学]]></category>
		<category><![CDATA[統計解析]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=7655</guid>

					<description><![CDATA[母比率の差の検定のp値の計算フォームを作りました。2標本の母比率の検定が可能です。 1標本の母比率の検定がしたい方は、次の母比率の検定の計算フォームを参照。 以下、母比率の仮説検定の概要です。計算フォ ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p><span class="rmarker-s">母比率の差の検定のp値の計算フォームを作りました。</span>2標本の母比率の検定が可能です。</p>
<p>1標本の母比率の検定がしたい方は、次の母比率の検定の計算フォームを参照。</p>
<p></p>
<p>以下、母比率の仮説検定の概要です。計算フォームで算出するp値は次の仮説に基づいたものとなります。</p>
<p><div class="st-mybox  has-title " style="background:#ffffff;border-color:#BDBDBD;border-width:2px;border-radius:5px;margin: 25px 0;"><p class="st-mybox-title" style="color:#757575;font-weight:bold;background: #ffffff;"><i class="st-fa fa-check-circle st-css-no" aria-hidden="true"></i>母比率の差の検定</p><div class="st-in-mybox">
<p>\(x_{11}, x_{12}, \ldots, x_{1n_1}\)を\(Bernoulli(p_1)\)からの\(n_1\)個の無作為標本、\(x_{21} , x_{22}, \ldots, x_{2n_2}\)を\(Bernoulli(p_2)\)からの\(n_2\)個の無作為標本とする。このとき、次の仮説検定を考える。\begin{align}&amp;H_0:\ p_1 = p_2\\ &amp;H_1:\ p_1 \neq p_2\end{align}</p>
</div></div></p>
<p>補足として、この計算フォームのp値は大標本の下での値となっています。標準正規分布に基づく近似値となっています。</p>
<h2>母比率の差の検定　計算フォーム</h2>
<p><span class="rmarker-s">次のテーブルのsuccess成功数、</span><span class="rmarker-s">failureに失敗数を各群AとBに入力するとp-valueの列にp値が表示されます。</span></p>
<p>A群のsuccessに41、failureに59、B群のsuccessに16、failureに34と記入されているように、データを入力してください。</p>
<p><div class="st-mybox  has-title " style="background:#ffebee;border-color:#ef9a9a;border-width:2px;border-radius:5px;margin: 25px 0;"><p class="st-mybox-title" style="color:#ef5350;font-weight:bold;text-shadow: #fff 3px 0px 0px, #fff 2.83487px 0.981584px 0px, #fff 2.35766px 1.85511px 0px, #fff 1.62091px 2.52441px 0px, #fff 0.705713px 2.91581px 0px, #fff -0.287171px 2.98622px 0px, #fff -1.24844px 2.72789px 0px, #fff -2.07227px 2.16926px 0px, #fff -2.66798px 1.37182px 0px, #fff -2.96998px 0.42336px 0px, #fff -2.94502px -0.571704px 0px, #fff -2.59586px -1.50383px 0px, #fff -1.96093px -2.27041px 0px, #fff -1.11013px -2.78704px 0px, #fff -0.137119px -2.99686px 0px, #fff 0.850987px -2.87677px 0px, #fff 1.74541px -2.43999px 0px, #fff 2.44769px -1.73459px 0px, #fff 2.88051px -0.838246px 0px;background: linear-gradient(0deg,#ffebee 0%,#ffebee 55%,rgba(0,0,0,0) 55%,rgba(0,0,0,0) 100%);"><i class="st-fa fa-exclamation-circle st-css-no" aria-hidden="true"></i>注意ポイント</p><div class="st-in-mybox">
<p>注意として、一番右の<span class="rmarker-s">p値のセルを消したりすると、p値が正しく計算されなくなります。</span>その場合はブラウザの再読み込みをお願いします。</p>
</div></div></p>
<p><iframe loading="lazy" width="500" height="400" frameborder="0" scrolling="no" src="https://onedrive.live.com/embed?resid=1026B38D00049465%21240&amp;authkey=%21ACbfsTV9HphV1Zw&amp;em=2&amp;wdAllowInteractivity=False&amp;AllowTyping=True&amp;ActiveCell='Sheet1'!B2&amp;wdHideGridlines=True&amp;wdHideHeaders=True&amp;wdDownloadButton=True&amp;wdInConfigurator=True&amp;wdInConfigurator=True&amp;edesNext=false&amp;resen=false"></iframe></p>
<p>母比率の差の検定について勉強したい方は次の記事を参照。</p>
<p>				<a href="https://multivariate-statistics.com/2021/08/16/statistics-proportions-test/" class="st-cardlink">
				<div class="kanren st-cardbox" >
										<dl class="clearfix">
						<dt class="st-card-img">
																								<img decoding="async" width="150" height="150" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=150%2C150&amp;ssl=1" class="attachment-st_thumb150 size-st_thumb150 wp-post-image" alt="" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?w=469&amp;ssl=1 469w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=300%2C300&amp;ssl=1 300w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 150px) 100vw, 150px" />																					</dt>
						<dd>
															<h5 class="st-cardbox-t">【統計学】母比率の検定・母比率の差の検定</h5>
							
															<div class="st-card-excerpt smanone">
									<p>通常の1標本の母比率の検定や2標本の母比率の差の検定を含む様々な母比率の検定を解説する。 ここでは、Z検定を用いた大標本の下で母比率の検定について紹介し、検定統計量や棄却域の導出を行う。 大標本におけ &#8230; </p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="3252"
					data-ulike-nonce="1c276b28b2"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_3252"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
									</div>
																						<p class="cardbox-more">続きを見る</p>
													</dd>
					</dl>
				</div>
				</a>
				</p>
<p>また、R言語で母比率の差の検定を実行したい方は次の記事を参照。</p>
<p>				<a href="https://multivariate-statistics.com/2021/08/08/r-programming-proportions-test/" class="st-cardlink">
				<div class="kanren st-cardbox" >
										<dl class="clearfix">
						<dt class="st-card-img">
																								<img decoding="async" width="150" height="150" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/03/R.jpg?resize=150%2C150&amp;ssl=1" class="attachment-st_thumb150 size-st_thumb150 wp-post-image" alt="" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/03/R.jpg?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2022/03/R.jpg?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 150px) 100vw, 150px" />																					</dt>
						<dd>
															<h5 class="st-cardbox-t">【R言語】母比率の検定・母比率の差の検定</h5>
							
															<div class="st-card-excerpt smanone">
									<p>R言語で母比率の検定を実行する方法を紹介します。 R言語ではt検定などと同様に、簡単に比率に関する検定を実行することが可能です。 今回は、母比率の検定に関する関数の説明やその実行例をまとめました。 こ &#8230; </p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="3214"
					data-ulike-nonce="e1792d2aab"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_3214"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
									</div>
																						<p class="cardbox-more">続きを見る</p>
													</dd>
					</dl>
				</div>
				</a>
				</p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="7655"
					data-ulike-nonce="25790baca5"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_7655"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="+1"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2024/01/10/calculator-proportion-difference-test/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">7655</post-id>	</item>
		<item>
		<title>【R言語】指数関数・ネイピア数</title>
		<link>https://multivariate-statistics.com/2024/01/09/r-programming-exp/</link>
					<comments>https://multivariate-statistics.com/2024/01/09/r-programming-exp/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Mon, 08 Jan 2024 19:47:58 +0000</pubDate>
				<category><![CDATA[R言語]]></category>
		<category><![CDATA[プログラミング]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=8497</guid>

					<description><![CDATA[R言語でネイピア数eおよび指数関数について解説します。 この記事では関数expを使った指数関数の計算の仕方を見ていきます。 自然対数については次の記事を参照ください。   この記事で紹介するコードは以 ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p><span class="rmarker-s">R言語でネイピア数eおよび指数関数について解説します。</span></p>
<p>この記事では関数expを使った指数関数の計算の仕方を見ていきます。</p>
<p>自然対数については次の記事を参照ください。  </p>
<p><!-- /wp:shortcode --></p>
<p><!-- wp:shortcode --></p>

<p>この記事で紹介するコードは以下からダウンロードできます。  </p>
<div class='w3eden'><!-- WPDM Link Template: Default Template -->

<div class="link-template-default card mb-2">
    <div class="card-body">
        <div class="media">
            <div class="mr-3 img-48"><img decoding="async" class="wpdm_icon" alt="アイコン"   src="https://multivariate-statistics.com/wp-content/plugins/download-manager/assets/file-type-icons/zip.svg" /></div>
            <div class="media-body">
                <h3 class="package-title"><a href='https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e6%8c%87%e6%95%b0%e9%96%a2%e6%95%b0/'>R言語　指数関数</a></h3>
                <div class="text-muted text-small"><i class="fas fa-copy"></i> 1 ファイル <i class="fas fa-hdd ml-3"></i> 0.28 KB</div>
            </div>
            <div class="ml-3">
                <a class='wpdm-download-link download-on-click btn btn-primary ' rel='nofollow' href='#' data-downloadurl="https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e6%8c%87%e6%95%b0%e9%96%a2%e6%95%b0/?wpdmdl=8563&refresh=6a243bfa6f94d1780759546">ダウンロード</a>
            </div>
        </div>
    </div>
</div>

</div>
<h2>指数関数</h2>
<p>次の関数<span class="bmarker-s">exp</span>で指数関数、ネイピア数を計算することができます。</p>
<!-- /wp:paragraph -->

<!-- wp:tadv/classic-paragraph -->
<div class="graybox">length(x) length(x) &lt;- value</div>
<!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph -->
<p>上の関数<span class="bmarker-s">exp</span>の引数は次の通りです。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1"><caption>関数expの引数</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">x</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">numericまたはcomplex型のベクトル。</td>
</tr>
</tbody>
</table>
</div>
<!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph -->
<h2>実行例</h2>
<p>ネイピア数の値を取得したい場合は、次のように関数expの引数に1を渡します。</p>
<p>2.718&#8230;が取得できているのが分かります。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; exp(1)
[1] 2.718282

&gt; log(exp(1))
[1] 1</pre>
<p>また、引数にベクトルを渡すことで複数の指数関数の値を計算できます。</p>
<p>1から10までの連続するベクトルを渡すと、\(e^1, e^2, \ldots, e^{10}\) を一度に計算することが可能です。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; exp(seq_len(10))
 [1]     2.718282     7.389056    20.085537    54.598150   148.413159   403.428793
 [7]  1096.633158  2980.957987  8103.083928 22026.465795</pre>
<p>関数curveを使うと、簡単に指数関数のグラフを確認することができます。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">curve(exp, from = -5, to = 5)</pre>
<div id="attachment_8555" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8555" class="size-full wp-image-8555" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/09/指数関数.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8555" class="wp-caption-text">指数関数</p></div>
<p>また、dnormという標準正規分布の関数がRでは定義されていますが、標準正規分布の関数を自分で作ることも可能です。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">densityOfStdNormalDst &lt;- function(x) {
  density &lt;- 1 / sqrt(2 * pi) * exp(- x ^ 2 / 2)
  return(density)
}

curve(densityOfStdNormalDst, from = -3, to = 3)</pre>
<p>以下、作成した関数のグラフです。</p>
<div id="attachment_8556" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8556" class="size-full wp-image-8556" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/09/標準正規分布の関数.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8556" class="wp-caption-text">標準正規分布</p></div>
<h2>まとめ</h2>
<p><span class="rmarker-s">R言語の指数関数について解説しました。</span></p>
<p>関数expでネイピア数および指数関数を計算することができます。</p>		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="8497"
					data-ulike-nonce="38c5ff6919"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_8497"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2024/01/09/r-programming-exp/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">8497</post-id>	</item>
		<item>
		<title>t検定の計算の仕方　母平均の検定</title>
		<link>https://multivariate-statistics.com/2023/12/31/statistics-t-test-example/</link>
					<comments>https://multivariate-statistics.com/2023/12/31/statistics-t-test-example/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Sun, 31 Dec 2023 06:03:44 +0000</pubDate>
				<category><![CDATA[統計学]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=8510</guid>

					<description><![CDATA[母平均の検定であるt検定の計算について解説していきます。 t検定の式から検定の具体例を用いた統計量の計算の仕方について見ていきます。 t検定を数理的に詳しく見ていきたいという方は以下の記事を参照くださ ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[
<p>母平均の検定であるt検定の計算について解説していきます。</p>



<p>t検定の式から検定の具体例を用いた統計量の計算の仕方について見ていきます。</p>



<p>t検定を数理的に詳しく見ていきたいという方は以下の記事を参照ください。</p>
<p>

</p>
				<a href="https://multivariate-statistics.com/2021/04/16/statistics-student-t-test/" class="st-cardlink">
				<div class="kanren st-cardbox" >
										<dl class="clearfix">
						<dt class="st-card-img">
																								<img decoding="async" width="150" height="150" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=150%2C150&amp;ssl=1" class="attachment-st_thumb150 size-st_thumb150 wp-post-image" alt="" srcset="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?w=469&amp;ssl=1 469w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=300%2C300&amp;ssl=1 300w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=150%2C150&amp;ssl=1 150w, https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2020/08/448656.png?resize=100%2C100&amp;ssl=1 100w" sizes="(max-width: 150px) 100vw, 150px" />																					</dt>
						<dd>
															<h5 class="st-cardbox-t">【統計学】t検定　母平均の検定・母平均の差の検定</h5>
							
															<div class="st-card-excerpt smanone">
									<p>ここでは、統計学の仮説検定において重要なStudentのt検定について解説する。 母分布である正規分布のパラメータによって様々なt検定の手法が提案されている。 その中でもよく使われるt検定についてみて &#8230; </p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="2757"
					data-ulike-nonce="31c517c42b"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_2757"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
									</div>
																						<p class="cardbox-more">続きを見る</p>
													</dd>
					</dl>
				</div>
				</a>
				
<p>


		<div class="pochipp-box"
			data-id="6549"
			data-img="l"
			data-lyt-pc="dflt"
			data-lyt-mb="vrtcl"
			data-btn-style="dflt"
			data-btn-radius="off"
			data-sale-effect="flash"
			 data-cvkey="ee5657a7"		>
							<div class="pochipp-box__image">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2FB095W5G8KB" rel="nofollow">
						<img decoding="async" src="https://i0.wp.com/m.media-amazon.com/images/I/81YMVN1OUZS._SL400_.jpg?resize=120%2C120&#038;ssl=1" alt="" width="120" height="120" data-recalc-dims="1" />					</a>
				</div>
						<div class="pochipp-box__body">
				<div class="pochipp-box__title">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2FB095W5G8KB" rel="nofollow">
						改訂2版 RユーザのためのRStudio[実践]入門〜tidyverseによるモダンな分析フローの世界					</a>
				</div>

									<div class="pochipp-box__info">RStudioで解析したい方へ</div>
				
									<div class="pochipp-box__price">
						¥3,278						<span>（2022/06/02 22:52時点 | Amazon調べ）</span>
					</div>
				
							</div>
				<div class="pochipp-box__btns"
		data-maxclmn-pc="fit"
		data-maxclmn-mb="1"
	>
					<div class="pochipp-box__btnwrap -amazon">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2FB095W5G8KB" class="pochipp-box__btn" rel="nofollow">
					<span>
						Amazon					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062" width="1" height="1" style="border:none;">				</a>
			</div>
							<div class="pochipp-box__btnwrap -rakuten">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616&#038;url=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F16711169%2F" class="pochipp-box__btn" rel="nofollow">
					<span>
						楽天市場					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616" width="1" height="1" style="border:none;">				</a>
			</div>
										<div class="pochipp-box__btnwrap -yahoo -long-text">
								<a href="https://store.shopping.yahoo.co.jp/boox/bk-4297121700.html" class="pochipp-box__btn" rel="nofollow">
					<span>
						Yahooショッピング					</span>
									</a>
			</div>
									</div>
								<div class="pochipp-box__logo">
					<img decoding="async" src="https://i0.wp.com/multivariate-statistics.com/wp-content/plugins/pochipp/assets/img/pochipp-logo-t1.png?resize=32%2C32&#038;ssl=1" alt="" width="32" height="32"  data-recalc-dims="1">
					<span>ポチップ</span>
				</div>
					</div>
	

		<div class="pochipp-box"
			data-id="6502"
			data-img="l"
			data-lyt-pc="dflt"
			data-lyt-mb="vrtcl"
			data-btn-style="dflt"
			data-btn-radius="off"
			data-sale-effect="flash"
			 data-cvkey="96421565"		>
							<div class="pochipp-box__image">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4802612389" rel="nofollow">
						<img decoding="async" src="https://i0.wp.com/m.media-amazon.com/images/I/81wNFcc7eSL._SL400_.jpg?resize=120%2C120&#038;ssl=1" alt="" width="120" height="120" data-recalc-dims="1" />					</a>
				</div>
						<div class="pochipp-box__body">
				<div class="pochipp-box__title">
					<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4802612389" rel="nofollow">
						R言語ではじめるプログラミングとデータ分析					</a>
				</div>

									<div class="pochipp-box__info">Rでデータ解析を始めるならコレ</div>
				
									<div class="pochipp-box__price">
						¥3,300						<span>（2022/06/01 17:20時点 | Amazon調べ）</span>
					</div>
				
							</div>
				<div class="pochipp-box__btns"
		data-maxclmn-pc="fit"
		data-maxclmn-mb="1"
	>
					<div class="pochipp-box__btnwrap -amazon">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062&#038;url=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2F4802612389" class="pochipp-box__btn" rel="nofollow">
					<span>
						Amazon					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447647&#038;p_id=170&#038;pc_id=185&#038;pl_id=4062" width="1" height="1" style="border:none;">				</a>
			</div>
							<div class="pochipp-box__btnwrap -rakuten">
								<a href="https://af.moshimo.com/af/c/click?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616&#038;url=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F16130176%2F" class="pochipp-box__btn" rel="nofollow">
					<span>
						楽天市場					</span>
					<img decoding="async" src="https://i.moshimo.com/af/i/impression?a_id=3447615&#038;p_id=54&#038;pc_id=54&#038;pl_id=616" width="1" height="1" style="border:none;">				</a>
			</div>
										<div class="pochipp-box__btnwrap -yahoo -long-text">
								<a href="https://store.shopping.yahoo.co.jp/boox/bk-4802612389.html" class="pochipp-box__btn" rel="nofollow">
					<span>
						Yahooショッピング					</span>
									</a>
			</div>
									</div>
								<div class="pochipp-box__logo">
					<img decoding="async" src="https://i0.wp.com/multivariate-statistics.com/wp-content/plugins/pochipp/assets/img/pochipp-logo-t1.png?resize=32%2C32&#038;ssl=1" alt="" width="32" height="32"  data-recalc-dims="1">
					<span>ポチップ</span>
				</div>
					</div>
	

</p>



<h2>t検定</h2>
<p>t検定の概要を以下にまとめました。検定統計量の導出などの詳細については上で紹介した記事を参照してください。</p>
<p>正規分布\(N(\mu, \sigma^2)\)から無作為に\(n\)個の標本\(x_1, x_2, \ldots, x_n\)が得られたとき、次の「母平均\(\mu\)が\(\mu_0\)に等しいか」という母平均に関する検定を考えます。</p>
<p><div class = "scroll">\begin{align}H_0:\ \mu = \mu_0 \\ H_1:\ \mu \neq \mu_0 \end{align}</div></p>
<p>このとき、上記の検定の検定統計量は次のt統計量で与えられます。</p>
<p><div class = "scroll">\begin{align}\label{eq1} t = \cfrac{\sqrt{n}(\bar{x}  &#8211; \mu_0)}{s}\tag{1}\end{align}</div></p>
<p>また、自由度\(n &#8211; 1\)のt分布の上側\(\alpha\)点を\(t_{n , \alpha}\)とすると、検定の棄却域は次で与えられます。</p>
<p><div class = "scroll">\begin{align} \label{eq2} R = (-\infty , -t_{n &#8211; 1, \alpha / 2} ) \cup (t_{n &#8211; 1, \alpha / 2}, \infty ). \tag{2}\end{align}</div></p>
<p>\(\bar{x}\)\(s^2\)はそれぞれ次で定義される標本平均と標本分散（不偏標本分散）です。</p>
<p><div class = "scroll">\begin{align}\bar{x} &amp;= \cfrac{1}{n} \sum_{i=1}^n x_i, \\ s^2 &amp;= \cfrac{1}{ n-1} \sum_{i=1}^n(x_i- \bar{x})^2\end{align}</div></p>
<p>中心極限定理を利用したz検定と異なり、小標本のときにでも成り立つのが特徴です。</p>
<h2>計算例</h2>
<p>t検定による母平均の検定について見ていきます。</p>
<p>両側検定と片側検定の2つに分けて解説していきます。</p>
<h3>両側検定</h3>
<p>以下の身長のデータが与えられたとします。</p>
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1"><caption>身長のデータ</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">\(i\)</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">1</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">2</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">3</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">4</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">5</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">6</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">7</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">8</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">9</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">10</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">\(x_i\)</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">166.6</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">178.12</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">167.56</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">180.54</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">175.7</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">172.91</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">173.91</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">168.1</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">176.33</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">176.79</td>
</tr>
</tbody>
</table>
</div>
<p></p>
<p></p>
<p>これら10人のデータから平均は170cmであるか検定したいと思います。</p>
<p>この検定の帰無仮説と対立仮説は次のように表せます。</p>
<p><div class = "scroll">\begin{align}H_0:\ \mu = \mu_0 = 170\\ H_1:\ \mu \neq \mu_0 = 170 \end{align}</div></p>
<p>10人のデータをもとに、標本平均と標本分散はそれぞれ以下のように計算できます。</p>
<p><div class = "scroll">\begin{align}\bar{x} &amp;= \cfrac{1}{10} \sum_{i= 1}^{10} x_i \\&amp;= \cfrac{1}{10} (166.6+ 178.12 + 167.56 + 180.54 + 175.7 \\ &amp;\qquad + 172.91 + 173.91 + 168.1 + 176.33 + 176.79 ) \\ &amp;=173.656 ,\\ s^2 &amp;= \cfrac{1}{10 &#8211; 1}\sum_{i=1}^{10} (x_i &#8211; \bar{x})^2 \\ &amp;= \cfrac{1}{9}\bigl\{ ( 166.6 &#8211; 173.656)^2+ (178.12 &#8211; 173.656)^2+ (167.56 &#8211; 173.656)^2+ (180.54 &#8211; 173.656 )^2+ (175.7 &#8211; 173.656)^2 \\ &amp;\qquad + (172.91 &#8211; 173.656)^2+ (173.91 &#8211; 173.656)^2+ (168.1 &#8211; 173.656)^2+ (176.33 &#8211; 173.656)^2 + (176.79  &#8211; 173.656 )^2 \bigr\} \\ &amp;= 22.98949.\end{align}</div></p>
<p>よって、\eqref{eq1}の検定統計量の実現値は以下となります。</p>
<p><div class = "scroll">\begin{align}t^* &amp;= \cfrac{\sqrt{n} (\bar{x} &#8211; \mu_0) }{s} \\ &amp;= \cfrac{\sqrt{10} ( 173.656 &#8211; 170) }{\sqrt{22.98949}} \\ &amp;\approx 2.4112   &gt;  t_{9, 0.025}\end{align}</div></p>
<p>また、この検定の棄却域は\eqref{eq2}より、次のように表せます。</p>
<p><div class = "scroll">\begin{align} R = (-\infty , -t_{9, 0.025} ) \cup (t_{9, 0.025}, \infty ) .\end{align}</div></p>
<p>\(t_{9 , 0.025}\)は自由度\(9\)のt分布の上側\(0.025\)点を指し、上式の棄却域は次のグラフのようになります。</p>
<div id="attachment_8534" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8534" class="size-full wp-image-8534" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/07/tryougwa.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8534" class="wp-caption-text">t検定　両側棄却域</p></div>
<p>自由度9のt分布の上側2.5%点の\(t_{9, 0.025} \approx 2.262157\)より実現値\(t^*\)が大きいため、有意水準\(\alpha = 0.05\)の下で、帰無仮説は棄却されます。よって「身長は170cmであるとはいえない」ということが言えました。</p>
<p>有意水準5%なのに2.5%としているのは、両側検定であり\(\mu_0\)よりも小さい場合も考慮しているためです。</p>
<h3>片側検定</h3>
<p>次の片側検定の例も見ていきましょう。</p>
<p>両側検定で用いたデータに対して、次の「母平均が170cmより大きいか」という仮説検定を行いたいと思います。</p>
<p><div class = "scroll">\begin{align}H_0:\ \mu &gt; \mu_0 = 170\\ H_1:\ \mu \leq \mu_0 = 170 \end{align}</div></p>
<p>今、片側検定であるため、この検定の棄却域は次のように表せます。</p>
<p><div class = "scroll">\begin{align} R = (-\infty , -t_{9, 0.05} )  .\end{align}</div></p>
<div id="attachment_8552" style="width: 610px" class="wp-caption aligncenter"><img decoding="async" aria-describedby="caption-attachment-8552" class="wp-image-8552 size-full" src="https://i0.wp.com/multivariate-statistics.com/wp-content/uploads/2023/09/t検定片側.png?resize=600%2C500&#038;ssl=1" alt="" width="600" height="500" data-recalc-dims="1" /><p id="caption-attachment-8552" class="wp-caption-text">t検定　片側棄却域</p></div>
<p>両側検定で計算した際に実現値は、\(t^* \approx 2.4112 &gt; -t_{9, 0.05} \)であるため、帰無仮説が採択され「身長は170cmより大きい」ということが言えました。</p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="8510"
					data-ulike-nonce="335a6f4527"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_8510"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2023/12/31/statistics-t-test-example/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">8510</post-id>	</item>
		<item>
		<title>【計算フォーム】対数正規分布の乱数の生成</title>
		<link>https://multivariate-statistics.com/2023/12/31/calculator-log-normal-distribution-random/</link>
					<comments>https://multivariate-statistics.com/2023/12/31/calculator-log-normal-distribution-random/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Sat, 30 Dec 2023 17:21:33 +0000</pubDate>
				<category><![CDATA[計算フォーム]]></category>
		<category><![CDATA[統計学]]></category>
		<category><![CDATA[統計解析]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=6974</guid>

					<description><![CDATA[対数正規分布の乱数生成の計算フォームを作りました。対数正規分布の乱数を生成することが可能です。 対数正規分布の確率密度関数の計算フォームは次の記事で扱っています。 対数正規分布の乱数生成　計算フォーム ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p><span class="rmarker-s">対数正規分布の乱数生成の計算フォームを作りました。</span>対数正規分布の乱数を生成することが可能です。</p>
<p>対数正規分布の確率密度関数の計算フォームは次の記事で扱っています。</p>
<p></p>
<h2>対数正規分布の乱数生成　計算フォーム</h2>
<p><span class="rmarker-s">次の表のnに乱数の数を記入することで、対数正規分布の乱数をxの下のセルに生成することができます。</span></p>
<p>表のように、1000とnに記入してください。1000個の対数正規分布の乱数が生成されます。</p>
<p>また、表の下に生成した乱数のヒストグラムがプロットされます。</p>
<p>μとσ^2で対数正規分布のパラメータを変更することが可能です。μで平均、σ^2で分散を指定でき、デフォルトで平均が0、分散が1の対数正規分布の乱数が生成されます。</p>
<p><div class="st-mybox  has-title " style="background:#ffebee;border-color:#ef9a9a;border-width:2px;border-radius:5px;margin: 25px 0;"><p class="st-mybox-title" style="color:#ef5350;font-weight:bold;text-shadow: #fff 3px 0px 0px, #fff 2.83487px 0.981584px 0px, #fff 2.35766px 1.85511px 0px, #fff 1.62091px 2.52441px 0px, #fff 0.705713px 2.91581px 0px, #fff -0.287171px 2.98622px 0px, #fff -1.24844px 2.72789px 0px, #fff -2.07227px 2.16926px 0px, #fff -2.66798px 1.37182px 0px, #fff -2.96998px 0.42336px 0px, #fff -2.94502px -0.571704px 0px, #fff -2.59586px -1.50383px 0px, #fff -1.96093px -2.27041px 0px, #fff -1.11013px -2.78704px 0px, #fff -0.137119px -2.99686px 0px, #fff 0.850987px -2.87677px 0px, #fff 1.74541px -2.43999px 0px, #fff 2.44769px -1.73459px 0px, #fff 2.88051px -0.838246px 0px;background: linear-gradient(0deg,#ffebee 0%,#ffebee 55%,rgba(0,0,0,0) 55%,rgba(0,0,0,0) 100%);"><i class="st-fa fa-exclamation-circle st-css-no" aria-hidden="true"></i>注意ポイント</p><div class="st-in-mybox">
<p>注意として、<span class="rmarker-s">xの下の乱数のセルを編集したりすると、正しく乱数が生成されなくなる場合があります。</span>その場合は、ブラウザの再読み込みをお願いします。</p>
<p>また、10000個まで乱数の生成が可能です。</p>
</div></div></p>
<p><iframe loading="lazy" width="700" height="450" frameborder="0" scrolling="no" src="https://onedrive.live.com/embed?resid=1026B38D00049465%21220&amp;authkey=%21ABmlrvz8qbpVBIg&amp;em=2&amp;wdAllowInteractivity=False&amp;AllowTyping=True&amp;wdHideGridlines=True&amp;wdHideHeaders=True&amp;wdDownloadButton=True&amp;wdInConfigurator=True&amp;wdInConfigurator=True&amp;edesNext=false&amp;ejss=false"></iframe></p>
<p>対数正規分布の確率密度関数の詳細については以下の記事を参照してください。</p>
<p></p>
		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="6974"
					data-ulike-nonce="a5b219b52f"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_6974"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="+1"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2023/12/31/calculator-log-normal-distribution-random/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">6974</post-id>	</item>
		<item>
		<title>【R言語】関数sampleを使った無作為抽出　復元抽出・非復元抽出</title>
		<link>https://multivariate-statistics.com/2023/12/31/r-programming-sample/</link>
					<comments>https://multivariate-statistics.com/2023/12/31/r-programming-sample/#respond</comments>
		
		<dc:creator><![CDATA[usagi-san]]></dc:creator>
		<pubDate>Sat, 30 Dec 2023 17:19:23 +0000</pubDate>
				<category><![CDATA[R言語]]></category>
		<category><![CDATA[プログラミング]]></category>
		<guid isPermaLink="false">https://multivariate-statistics.com/?p=8255</guid>

					<description><![CDATA[R言語で無作為抽出を行う関数とその使い方について解説します。 この記事では、関数sampleを用いた復元抽出、非復元抽出法を紹介します。 任意のデータについて無作為抽出を行う例について見ていきます。  ... <p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></description>
										<content:encoded><![CDATA[<p><span class="rmarker-s">R言語で無作為抽出を行う関数とその使い方について解説します。</span></p>
<p>この記事では、関数<span class="bmarker-s">sample</span>を用いた復元抽出、非復元抽出法を紹介します。</p>
<p>任意のデータについて無作為抽出を行う例について見ていきます。</p>
<p>この記事で扱うRスクリプトは以下からダウンロードできます。</p>
<div class='w3eden'><!-- WPDM Link Template: Default Template -->

<div class="link-template-default card mb-2">
    <div class="card-body">
        <div class="media">
            <div class="mr-3 img-48"><img decoding="async" class="wpdm_icon" alt="アイコン"   src="https://multivariate-statistics.com/wp-content/plugins/download-manager/assets/file-type-icons/zip.svg" /></div>
            <div class="media-body">
                <h3 class="package-title"><a href='https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e7%84%a1%e4%bd%9c%e7%82%ba%e6%8a%bd%e5%87%ba/'>R言語　無作為抽出</a></h3>
                <div class="text-muted text-small"><i class="fas fa-copy"></i> 1 ファイル <i class="fas fa-hdd ml-3"></i> 0.40 KB</div>
            </div>
            <div class="ml-3">
                <a class='wpdm-download-link download-on-click btn btn-primary ' rel='nofollow' href='#' data-downloadurl="https://multivariate-statistics.com/download/r%e8%a8%80%e8%aa%9e%e3%80%80%e7%84%a1%e4%bd%9c%e7%82%ba%e6%8a%bd%e5%87%ba/?wpdmdl=8263&refresh=6a243bfa75f541780759546">ダウンロード</a>
            </div>
        </div>
    </div>
</div>

</div>
<h2>無作為抽出</h2>
<p>Rで無作為抽出を実行するには次の関数<span class="bmarker-s">sample</span>を使います。</p>
<!-- /wp:paragraph -->

<!-- wp:tadv/classic-paragraph -->
<div class="graybox">sample(x, size, replace = FALSE, prob = NULL)sample.int(n, size = n, replace = FALSE, prob = NULL, useHash = (n &gt; 1e+07 &amp;&amp; !replace &amp;&amp; is.null(prob) &amp;&amp; size &lt;= n/2))</div>
<!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph -->
<p>上で紹介した関数の引数は次の通りです。</p>
<!-- /wp:paragraph -->

<!-- wp:tadv/classic-paragraph -->
<div class="scroll-box">
<table style="height: 32px; width: 100%; border-collapse: collapse; border-color: #ffffff;" border="1"><caption>関数sampleの引数</caption>
<tbody>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">x</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">ベクトル。このベクトルの要素について無作為抽出を行う。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">n</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">正の整数。1からnまでの要素について無作為抽出が行われる。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">size</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">抽出回数を表す非負の整数。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">replace</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">logical型。復元抽出を行うかどうか。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">prob</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">xの要素の抽出する確率を表すベクトル。</td>
</tr>
<tr style="height: 16px;">
<td style="height: 16px; border-color: #ffffff; background-color: #ebebeb;">useHash</td>
<td style="height: 16px; border-color: #ffffff; background-color: #f5f5f5;">logical型。ハッシュによるアルゴリズムを用いるかどうか。replace = FALSE、prob = NULL、size &lt;= n/2のときに適用できる。</td>
</tr>
</tbody>
</table>
</div>
<!-- /wp:tadv/classic-paragraph -->

<!-- wp:paragraph -->
<p>引数replaceによって復元抽出と非復元抽出を選択することが可能です。</p>
<h2>実行例</h2>
<p><span class="rmarker-s">早速、関数<span class="bmarker-s">sample</span>の使い方について見ていきます。</span></p>
<p>1から100までの整数から50個、非復元抽出するには次のように関数<span class="bmarker-s">sample</span>を実行します。  </p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; numbers &lt;- seq_len(100)
&gt; samples_notReplaced &lt;- sample(numbers, 10) #非復元抽出
&gt; samples_notReplaced
 [1] 71  6 81 45 43 80 47 33 60 39</pre>
<p>size = 100で実行しても、次のように重複している要素がなく1から100までの要素について非復元抽出ができていることが確認できます。 </p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; sample(numbers, 100)
  [1]  59   6  21  12  14  41  34  92  61  73  35  63   1   5   2  99  27  39  25  96  87  33  84  69  20  38  86  62  51  55   9  74  18  94  68   8  48  82  83  53  70  28  43   4   7  29  85  77  95  65
 [51]  57  13   3  54  10  17  91  11  45  47  30  90  24  19  40  32  26  44  66  16  76  15  22  80  71  75  98  60  46  72  89  37  31  79  88  97  67  81  23  93  36  49  58  56  52  64  78  50 100  42</pre>
<p>また、引数replaceをTRUEにすることで復元抽出を行うことができます。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; samples_replaced &lt;- sample(numbers, 10, replace = TRUE) #復元抽出
&gt; samples_replaced
 [1] 37 62 97  2 12 36 12 96 74 33</pre>
<p>引数を変更し先ほどと同様の抽出を行うと、重複ありでnumbersの100個の要素を抽出することができます。</p>
<p>関数uniqueを使い抽出された重複しない要素を数えると、100ではないため復元抽出を実行できていることが分かります。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">[1]  29   8  45  93  98 100  45  90  91  17  53  92   1  88  55  98  75   8  92  22  11  46  72  64  43  93  95  77   4  74  63  66  53  48  67  65  90  33  84  33  75 100  28  36   9   3  13   7  13  11
 [51]  88  58   6  18  17  91  31  73  57  13  30  53  83  18   4  90  90  17  91  37  72  91  27  79  44  95  61  82  72  12  99  12  52  38  22  62  57  45  69  61  98  26  87  72  46  96  97  47 100  39
&gt; length(unique(sample(numbers, 100, replace = TRUE)))
[1] 59</pre>
<p>補足ですが、引数probでベクトルの各要素の生起確率を与えることができます。</p>
<p>無作為抽出のほかにも、各要素の発生する確率をあらかじめ指定することができます。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; numbers &lt;- seq_len(5)
&gt; prob &lt;- c(0.3, 0.1, 0.1, 0.2, 0.3)
&gt; samples_replaced &lt;- sample(numbers, 10, replace = TRUE, prob = prob) #生起確率の指定
&gt; samples_replaced
 [1] 4 5 4 5 1 5 1 5 5 5</pre>
<p>また、非負の整数の抽出は関数<span class="bmarker-s">sample.int</span>でも行うことができます。</p>
<p>次のように引数nに指定した値までの整数について、無作為抽出を行うことができます。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; samples_notReplaced &lt;- sample(10, 10)
&gt; samples_notReplaced
 [1]  9  7  1  6  5  4  3 10  8  2
&gt;
&gt; samples_replaced &lt;- sample(10, 10, replace = TRUE)
&gt; samples_replaced
 [1]  1  8  9  1  8  9  4  4 10  1</pre>
<p>ここまで、numeric型の要素について無作為抽出を行ってきましたが、次のようにcharacter型の要素についても無作為抽出を行うこともできます。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; alphabets &lt;- letters[seq_len(26)]
&gt; samples_notReplaced  &lt;- sample(alphabets, 10)
&gt; samples_replaced &lt;- sample(alphabets, 10, replace = TRUE)
&gt; samples_notReplaced
 [1] "p" "i" "n" "t" "s" "f" "o" "w" "y" "x" 
&gt; 
&gt; samples_replaced
 [1] "h" "q" "r" "y" "u" "j" "v" "f" "m" "v"</pre>
<p> 型に関係なく無作為抽出を行うことができます。</p>
<pre class="urvanov-syntax-highlighter-plain-tag">&gt; logicals &lt;- c(TRUE, FALSE)
&gt; samples_notReplaced &lt;-sample(logicals, 2)
&gt; samples_replaced &lt;-sample(logicals, 10, replace = TRUE)
&gt; samples_notReplaced
[1]  TRUE FALSE
&gt; 
&gt; samples_replaced
 [1] FALSE  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE</pre>
<h2>まとめ</h2>
<p><span class="rmarker-s">R言語で無作為抽出を行う関数と実行例を紹介しました。</span></p>
<p>関数<span class="bmarker-s">sample</span>で無作為抽出を実行することができ、引数　によって復元抽出と非復元抽出を選択することができます。</p>		<div class="wpulike wpulike-heart " ><div class="wp_ulike_general_class wp_ulike_is_not_liked"><button type="button"
					aria-label="いいねボタン"
					data-ulike-id="8255"
					data-ulike-nonce="ebc8766007"
					data-ulike-type="post"
					data-ulike-template="wpulike-heart"
					data-ulike-display-likers=""
					data-ulike-likers-style="popover"
					class="wp_ulike_btn wp_ulike_put_image wp_post_btn_8255"></button><span class="count-box wp_ulike_counter_up" data-ulike-counter-value="0"></span>			</div></div>
	<p>Copyright &copy; 2026 <a href="https://multivariate-statistics.com">ウサギさんの統計学サロン</a> All Rights Reserved.</p>]]></content:encoded>
					
					<wfw:commentRss>https://multivariate-statistics.com/2023/12/31/r-programming-sample/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
		<post-id xmlns="com-wordpress:feed-additions:1">8255</post-id>	</item>
	</channel>
</rss>

<!--
Performance optimized by W3 Total Cache. Learn more: https://www.boldgrid.com/w3-total-cache/

Page Caching using Disk: Enhanced 
N/A 経由のコンテンツ配信ネットワーク (CDN)

Served from: multivariate-statistics.com @ 2026-06-07 00:25:46 by W3 Total Cache
-->