R/fun.data.fit.hs.R

`fun.data.fit.hs` <-
function (data, rs.default = "Y", fmkl.default = "Y", rs.leap = 3, 
    fmkl.leap = 3, rs.init = c(-1.5, 1.5), fmkl.init = c(-0.25, 
        1.5), no.c.rs = 50, no.c.fmkl = 50, FUN = "runif.sobol",no=10000) 
{
    RPRS <- fun.RPRS.hs(data = data, default = rs.default, rs.init = rs.init, 
        no.c.rs = no.c.rs, leap = rs.leap, FUN = FUN,no=no)
    RMFMKL <- fun.RMFMKL.hs(data = data, default = fmkl.default, 
        fmkl.init = fmkl.init, no.c.fmkl = no.c.fmkl, leap = fmkl.leap, 
        FUN = FUN,no=no)
    cbind(RPRS, RMFMKL)
}

Try the GLDEX package in your browser

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

GLDEX documentation built on Aug. 21, 2023, 9:08 a.m.