R/fun.data.fit.qs.R

`fun.data.fit.qs` <-
function (data, rs.leap = 3, fmkl.leap = 3, rs.init = c(-1.5, 
    1.5), fmkl.init = c(-0.25, 1.5), FUN = "runif.sobol",trial.n=100,len=1000,type=7,no=10000) 
{
    RPRS <- fun.RPRS.qs(data = data, rs.init = rs.init, leap = rs.leap, 
        FUN = FUN,trial.n=trial.n,len=len,type=type,no=no)
    RMFMKL <- fun.RMFMKL.qs(data = data, fmkl.init = fmkl.init, 
        leap = fmkl.leap, FUN = FUN,trial.n=trial.n,len=len,type=type,no=no)
    STAR <- starship(data)$lambda
    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.