<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<oembed>
  <author_name>ryamada22</author_name>
  <author_url>https://blog.hatena.ne.jp/ryamada22/</author_url>
  <blog_title>ryamadaの遺伝学・遺伝統計学メモ</blog_title>
  <blog_url>https://ryamada22.hatenablog.jp/</blog_url>
  <categories>
    <anon>R</anon>
    <anon>コルモゴロフ=スミルノフ</anon>
    <anon>酔歩</anon>
    <anon>ウィーナー過程</anon>
  </categories>
  <description>まず、Rのks.test()関数の中身をぱくって、２標本の場合のks.test()統計量の算出のところだけを抜き出した関数を作っておこう my.ks.stat &lt;- function(x,y,type=c(&quot;less&quot;,&quot;greater&quot;,&quot;two.sided&quot;)){ n.x &lt;- length(x) n.y &lt;- length(y) w &lt;- c(x, y) z &lt;- cumsum(ifelse(order(w) &lt;= n.x, 1/n.x, -1/n.y)) type &lt;- match.arg(type) KS.stat &lt;- switch(type, two.sided = max(ab…</description>
  <height>190</height>
  <html>&lt;iframe src=&quot;https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20130110%2F1357691005&quot; title=&quot;コルモゴロフ=スミルノフ統計量その１(0に概収束する) - ryamadaの遺伝学・遺伝統計学メモ&quot; class=&quot;embed-card embed-blogcard&quot; scrolling=&quot;no&quot; frameborder=&quot;0&quot; style=&quot;display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;&quot;&gt;&lt;/iframe&gt;</html>
  <image_url>https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada22/20130109/20130109092007.jpg</image_url>
  <provider_name>Hatena Blog</provider_name>
  <provider_url>https://hatena.blog</provider_url>
  <published>2013-01-10 09:23:25</published>
  <title>コルモゴロフ=スミルノフ統計量その１(0に概収束する)</title>
  <type>rich</type>
  <url>https://ryamada22.hatenablog.jp/entry/20130110/1357691005</url>
  <version>1.0</version>
  <width>100%</width>
</oembed>
