#setMethod("updateNorm", "NormType", function(normtype, ...) normtype)
#setMethod("updateNorm", "InfoNorm", function(normtype, FI, ...)
#           {QuadForm(normtype) <- PosSemDefSymmMatrix(FI); normtype})
setMethod("updateNorm", "SelfNorm", function(normtype, L2, neighbor, biastype, 
                         Distr, V.comp, cent, stand,  w)
           {Cv <- getInfV(L2deriv = L2, neighbor = neighbor, 
                       biastype = biastype, Distr = Distr, 
                       V.comp = V.comp, cent = cent, stand = stand,  w = w)
            QuadForm(normtype) <- PosSemDefSymmMatrix(distr::solve(Cv))


Try the ROptEst package in your browser

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

ROptEst documentation built on April 6, 2019, 3:01 a.m.