https://github.com/cran/bild
Tip revision: 6661b7703cf2271cb13756a6ff2969ef8e1d88f3 authored by M. Helena Goncalves on 03 November 2023, 14:40:02 UTC
version 1.2-1
version 1.2-1
Tip revision: 6661b77
fixeff_bild.R
setMethod("fixeff",
signature(object="bild"),
function(object)
{
coef <- object@coefficients
nas <- is.na(coef[, 1])
cnames <- names(coef[, 1][!nas])
# for dependence="ind"
if(all(is.na(match(cnames, "log.psi1"))) &&
all(is.na(match(cnames, "log.psi2"))) &&
all(is.na(match(cnames, "omega"))))
{
return(coef[ , ])
}
# for dependence="MC1"
else if(!all(is.na(match(cnames, "log.psi1"))) &&
all(is.na(match(cnames, "log.psi2"))) &&
all(is.na(match(cnames, "omega"))))
{
return(coef[1:(dim(coef)[[1]]-1) , ])
}
# for dependence="MC2"
else if(!all(is.na(match(cnames, "log.psi1"))) &&
!all(is.na(match(cnames, "log.psi2"))) &&
all(is.na(match(cnames, "omega"))))
{
return(coef[1:(dim(coef)[[1]]-2) , ])
}
# for dependence="indR"
else if (all(is.na(match(cnames, "log.psi1"))) &&
all(is.na(match(cnames, "log.psi2"))) &&
!all(is.na(match(cnames, "omega"))))
{
return(coef[-dim(coef)[[1]], ])
}
# for dependence="MC1R"
else if (!all(is.na(match(cnames, "log.psi1"))) &&
all(is.na(match(cnames, "log.psi2"))) &&
!all(is.na(match(cnames, "omega"))))
{
return(coef[1:(dim(coef)[[1]]-2), ])
}
# for dependence="MC2R"
else if (!all(is.na(match(cnames, "log.psi1"))) &&
!all(is.na(match(cnames, "log.psi2"))) &&
!all(is.na(match(cnames, "omega"))))
{
return(coef[1:(dim(coef)[[1]]-3), ])
}
}
)