{"author_name":"ryamada22","width":"100%","categories":["\u5358\u4f53","\u591a\u6b21\u5143","\u5206\u5272\u8868","\u81ea\u7531\u5ea6","\u6955\u5186","\u6955\u7403"],"type":"rich","blog_url":"https://ryamada22.hatenablog.jp/","url":"https://ryamada22.hatenablog.jp/entry/20121227/1356570669","image_url":null,"title":"\u30e1\u30e2","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/ryamada22/","blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","provider_url":"https://hatena.blog","description":"CategoryVector<-function (nc = 3){ df <- nc - 1 d <- df + 1 diagval <- 1:d diagval <- sqrt((df + 1)/df) * sqrt((df - diagval + 1)/(df - diagval + 2)) others <- -diagval/(df - (0:(d - 1))) m <- matrix(rep(others, df + 1), nrow = df + 1, byrow = TRUE) diag(m) <- diagval m[upper.tri(m)] <- 0 as.matrix(\u2026","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20121227%2F1356570669\" title=\"\u30e1\u30e2 - ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\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>","published":"2012-12-27 10:11:09","height":"190"}