ncov-methods: ncov method

In fmrs: Variable Selection in Finite Mixture of AFT Regression and FMR

Description

Provides the number of covariates of an FMRs model from an fmrsfit-class

Usage

ncov(object, ...)

## S4 method for signature 'fmrsfit'
ncov(object, ...)

Arguments

object	An fmrsfit-class
...	Other possible arguments

Value

An integer value

Author(s)

Farhad Shokoohi <[e-mail]>

Examples

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))
ncov(res.mle)

fmrs documentation built on Nov. 8, 2020, 5:50 p.m.