The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
DepthProc project consist of a set of statistical procedures based on so called statistical depth functions. The project involves free available R package and its description.
DepthProc is avaiable on CRAN:
install.packages("DepthProc")
You can also install it from GitHub with devtools package:
library(devtools)
install_github("zzawadz/DepthProc")
Most of the code is written in C++ for additional efficiency. We also use OpenMP to speedup computations with multithreading:
library(DepthProc)
set.seed(123)
<- 10
d <- mvrnorm(1000, rep(0, d), diag(d))
x # Default - utilize as many threads as possible
system.time(depth(x, x, method = "LP"))
#> user system elapsed
#> 0.351 0.000 0.090
# Only single thread - 4 times slower:
system.time(depth(x, x, method = "LP", threads = 1))
#> user system elapsed
#> 0.208 0.000 0.208
# Two threads - 2 times slower:
system.time(depth(x, x, method = "LP", threads = 2))
#> user system elapsed
#> 0.201 0.000 0.103
<- mvrnorm(100, c(0, 0), diag(2))
x
depthEuclid(x, x)
depthMah(x, x)
depthLP(x, x)
depthProjection(x, x)
depthLocal(x, x)
depthTukey(x, x)
## Base function to call others:
depth(x, x, method = "Projection")
depth(x, x, method = "Local", depth_params1 = list(method = "LP"))
## Get median
depthMedian(x,
depth_params = list(
method = "Local",
depth_params1 = list(method = "LP")))
library(mvtnorm)
<- rmvt(n = 200, sigma = diag(2), df = 4, delta = c(3, 5))
y depthContour(y, points = TRUE, graph_params = list(lwd = 2))
depthPersp(y, depth_params = list(method = "Mahalanobis"))
There are two functional depths implemented - modified band depth (MBD), and Frainman-Muniz depth (FM):
<- matrix(rnorm(60), nc = 20)
x fncDepth(x, method = "MBD")
fncDepth(x, method = "FM", dep1d = "Mahalanobis")
#> Warning in dep1d_params$u <- u[, i]: Coercing LHS to a list
<- matrix(rnorm(2000), ncol = 100)
x fncBoxPlot(x, bands = c(0, 0.5, 1), method = "FM")
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.