R/pdepth.R

In musto101/wilcox_R: What the package does (short line)

pdepth <-
function(m,MM=FALSE,cop=3,dop=1,center=NA,MC=FALSE){
#
# projection depth
#
if(!MC)v=pdis(m,MM=MM,cop=cop,dop=dop,center=center)
if(MC)v=pdisMC(m,MM=MM,cop=cop,dop=dop,center=center)
v=1/(1+v)
v
}