7 lines
120 B
R
7 lines
120 B
R
|
MaxDiam <-
|
||
|
function(mat){
|
||
|
IDmv=which(mat[,1]<=2)
|
||
|
if(length(IDmv)<2){return(0)}
|
||
|
return(max(dist(mat[IDmv,2:3])))
|
||
|
}
|