Description Usage Arguments Value Author(s) Examples
Displays the fitted FMRs
model by showing the estimated
coefficients, dispersions and mixing proportions
Display the selected component-wise tuning parameters
1 2 3 4 5 6 7 8 9 |
object |
An |
... |
Other possible arguments |
Summary of the fitted FMRs
model
Summary of the selected component-wise tuning parameters
Farhad Shokoohi <shokoohi@icloud.com>
Farhad Shokoohi <shokoohi@icloud.com>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | set.seed(1980)
nComp = 2
nCov = 10
nObs = 500
dispersion = c(1, 1)
mixProp = c(0.4, 0.6)
rho = 0.5
coeff1 = c( 2, 2, -1, -2, 1, 2, 0, 0, 0, 0, 0)
coeff2 = c(-1, -1, 1, 2, 0, 0, 0, 0, -1, 2, -2)
umax = 40
dat <- fmrs.gendata(nObs = nObs, nComp = nComp, nCov = nCov,
coeff = c(coeff1, coeff2), dispersion = dispersion,
mixProp = mixProp, rho = rho, umax = umax,
disFamily = 'lnorm')
res.mle <- fmrs.mle(y = dat$y, x = dat$x, delta = dat$delta,
nComp = nComp, disFamily = 'lnorm',
initCoeff = rnorm(nComp*nCov+nComp),
initDispersion = rep(1, nComp),
initmixProp = rep(1/nComp, nComp))
summary(res.mle)
res.lam <- fmrs.tunsel(y = dat$y, x = dat$x, delta = dat$delta,
nComp = nComp, disFamily = 'lnorm',
initCoeff = c(coefficients(res.mle)),
initDispersion = dispersion(res.mle),
initmixProp = mixProp(res.mle),
penFamily = 'adplasso')
summary(res.lam)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.