эквивалентный запрос на обновление sql

Вы можете использовать outer с размерами матрицы.

n <- 10
p <- 5
A <- matrix( rnorm(n*p), n, p )
f <- function(x,y) sqrt(sum((x-y)^2))
B <- outer( 
  1:n, 1:n, 
  Vectorize( function(i,j) f(A[i,], A[j,]) ) 
)
-2
задан a_horse_with_no_name 6 March 2019 в 17:21
поделиться