Skip to main content

Browse the archive

https://github.com/cran/fields
22 September 2022, 00:11:04 UTC
Revision ea2b30f6f8a1b8773b9b602e7532d52bb4e9c27e authored by Doug Nychka on 24 May 2001, 00:00:00 UTC, committed by Gabor Csardi on 24 May 2001, 00:00:00 UTC 
version 1.1
1 parent ac05922
Raw File
Tip revision: ea2b30f6f8a1b8773b9b602e7532d52bb4e9c27e authored by Doug Nychka on 24 May 2001, 00:00:00 UTC
version 1.1
Tip revision: ea2b30f
minimax.crit.r 
"minimax.crit" <-
function (obj, des = T, R) 
{
    R <- as.matrix(R)
    id <- 1:nrow(R)
    if (des) 
        Dset <- attr(obj, "best.id")
    else Dset <- obj
    Cset <- id[-Dset]
    dist.mat <- rdist(R[Cset, ], R[Dset, ])
    mM.crit <- max(apply(dist.mat, 1, min))
    mM.crit
}
back to top