powered by
corelement
corelement(x, i, j, these = seq_len(nrow(x$y)))
'fsvsim'
fsvsim
covelement
covmat.fsvsim