2017-04-07から1日間の記事一覧

ベクトルセット間の距離

R

d <- 4 n1 <- 1000 n2 <- 2000 # 2つのベクトルセットの、ペアワイズ距離2乗 my.pairwiseL2 <- function(X,Y){ n1 <- length(X[,1]) n2 <- length(Y[,1]) XX <- rowSums(X^2) YY <- rowSums(Y^2) XY <- X %*% t(Y) XXX <- rep(XX,n2) YYY <- rep(YY,each=n…