{"url":"https://mikuhatsune.hatenadiary.com/entry/20110206/1296921323","version":"1.0","published":"2011-02-06 00:55:23","blog_url":"https://mikuhatsune.hatenadiary.com/","description":"NK\u304cplot3d\u3067\u8272\u3065\u3051\u3057\u3066\u3044\u308b\u3002 \u30aa\u30ec\u306ePC\u3067plot3d\u3092\u3084\u308b\u3068\u3001\u305f\u3044\u3066\u3044\u30af\u30e9\u30c3\u30b7\u30e5\u3059\u308b\u304b\u3089\u3001persp\u3092\u3088\u304f\u4f7f\u3063\u3066\u3044\u308b\u3002 \u3060\u304c\u3057\u304b\u3057\u3001z\u5ea7\u6a19\u304c\u5927\u304d\u3044\u9806\u306b\u6696\u8272\u301c\u5bd2\u8272\u306b\u3057\u3088\u3046\u3068\u3059\u308b\u3068\u3001rainbow\u306f\u3088\u3046\u308f\u304b\u3089\u3093\u3002 \u56f0\u3063\u305f\u3068\u304d\u306e help(persp) xl<- 15 yl<- 20 Ms<- 50 x<- dpois(0:Ms,xl) x<- x/sum(x) y<- dpois(0:Ms,yl) y<- y/sum(y) z<- x%*%t(y) range<- prod(dim(z)) par(bg = \"white\") nrz <- nrow(z) ncz <- ncol(z) j\u2026","type":"rich","blog_title":"\u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099","author_name":"MikuHatsune","height":"190","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20110206%2F1296921323\" title=\"persp\u3067\u8272\u3065\u3051 - \u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":"https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2011-02-06.png","categories":["R","R\u3092\u4f7f\u3044\u3053\u306a\u3059"],"provider_url":"https://hatena.blog","title":"persp\u3067\u8272\u3065\u3051","author_url":"https://blog.hatena.ne.jp/MikuHatsune/","provider_name":"Hatena Blog"}