エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
ここにツイート内容が記載されます https://b.hatena.ne.jp/URLはspanで囲んでください
Twitterで共有ONにすると、次回以降このダイアログを飛ばしてTwitterに遷移します
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
plotA2 <- function(A, step){ image.plot(log10(A[, ncol(A):1]+1), main=paste0("k = ", step), xaxt=... plotA2 <- function(A, step){ image.plot(log10(A[, ncol(A):1]+1), main=paste0("k = ", step), xaxt="n", yaxt = "n") } QR <- function(A, viz=FALSE, viz.dir="", num.step=100){ if(viz){ if(viz.dir==""){ plotA2(A, 0) Sys.sleep(0.2) }else{ png(file=paste0(viz.dir, "/Step0000.png")) plotA2(A, 0) dev.off() } } step <- 1 while(step <= num.step){ Q <- qr.Q(qr(A)) A <- t(Q) %*% A %*% Q if(viz){ if(viz.dir==""