エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
ここにツイート内容が記載されます https://b.hatena.ne.jp/URLはspanで囲んでください
Twitterで共有ONにすると、次回以降このダイアログを飛ばしてTwitterに遷移します
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
library("fields") library("stringr") HouseholderMatrix <- function(A, step){ x <- A[, step] y <- ... library("fields") library("stringr") HouseholderMatrix <- function(A, step){ x <- A[, step] y <- rep(0, length(x)) y[1:step] <- A[1:step, step] s <- sqrt(sum(A[setdiff(1:nrow(A), 1:step), step]^2)) y[step+1] <- - s u <- (x - y) / norm(as.matrix(x - y), "F") P <- diag(1, nrow(A)) P <- P - 2 * u %*% t(u) P } plotA <- function(A, step){ image.plot(log10(A[, ncol(A):1]+1), main=paste0("k = ", step), x