{"author_name":"ryamada","categories":["\u56db\u5143\u6570","\u30af\u30aa\u30fc\u30bf\u30cb\u30aa\u30f3","\u6307\u6570\u95a2\u6570","R"],"image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada/20160619/20160619092012.png","url":"https://ryamada.hatenadiary.jp/entry/20160618/1466242255","width":"100%","version":"1.0","author_url":"https://blog.hatena.ne.jp/ryamada/","published":"2016-06-18 18:30:55","title":"\u56db\u5143\u6570\u306e\u6307\u6570\u95a2\u6570","provider_url":"https://hatena.blog","type":"rich","blog_url":"https://ryamada.hatenadiary.jp/","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20160618%2F1466242255\" title=\"\u56db\u5143\u6570\u306e\u6307\u6570\u95a2\u6570 - ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\u5b66\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_name":"Hatena Blog","blog_title":"ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\u5b66\u30e1\u30e2","description":"\u3053\u3061\u3089\u306b\u8a18\u4e8b\u304c\u3042\u308b \u56db\u5143\u6570 \u3092\u5b9f\u90e8\u30b9\u30ab\u30e9\u30fc\u3068\u3001\u865a\u90e8\u30d9\u30af\u30c8\u30eb\u306b\u5206\u3051\u308b \u3053\u306e\u3068\u304d\u3060\u3068\u3044\u3046 R\u306eonion\u30d1\u30c3\u30b1\u30fc\u30b8\u306b\u306f\u3001\u56db\u5143\u6570\u306e\u30ed\u30b0\u3092\u53d6\u308b\u95a2\u6570log()\u304c\u3042\u308b\u306e\u3067\u3001\u56db\u5143\u6570q\u306e library(onion) my.exp.q <- function(q,t){ qt <- q *t a <- Re(qt) v <- Im(qt) v.len <- Mod(v) if(v.len==0){ return(exp(a)) }else{ return(exp(a) * (cos(v.len) + v/v.len * sin(v.len))) } } q <- rnorm(1) + rnorm(1) * H\u2026"}