R/dist2Mats.R

Defines functions `dist2Mats`

`dist2Mats` <-
function(mat1,mat2,method,p=2){
	n.row<-nrow(mat1)
	mat<-rbind(mat1,mat2)
	vec.dist<-dist(mat,method=method,p=p)
	mat<-as.matrix(vec.dist)
	mat[1:n.row,(n.row+1):nrow(mat)]
}

Try the scrime package in your browser

Any scripts or data that you put into this service are public.

scrime documentation built on May 2, 2019, 10:24 a.m.