エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
全情報分析のコード
ということで,なんで双対尺度法のコードまで作っちゃったかというと,全情報分析がやりたかったから。 ... ということで,なんで双対尺度法のコードまで作っちゃったかというと,全情報分析がやりたかったから。 すでに掲載した私流の双対尺度法コードの返り値をつかって,全情報分析に使う距離行列を算出するのが次のコード。 TIA.dist <- function(dat){ ndim <- dat$ndims nr <- ncol(dat$nr) nc <- ncol(dat$nc) rname <- colnames(dat$nr) cname <- colnames(dat$nc) y <- t(dat$nr) x <- t(dat$nc) eta2 <- dat$eig eta <- dat$sing dist.mat <- matrix(0,nrow=nr+nc,ncol=nr+nc) colnames(dist.mat) <- c(rname,cname) rownames(dist.mat)