https://github.com/cran/flexmix
Tip revision: 9fa1051e7ff1947a3d93361faec7f48afa10f4ea authored by Bettina Gruen on 01 June 2010, 00:00:00 UTC
version 2.2-6
version 2.2-6
Tip revision: 9fa1051
group.R
setMethod("group", signature(object="flexmix"), function(object) {
group <- object@group
if (!length(group)) group <- group(object@model[[1]])
group
})
setMethod("group", signature(object="FLXM"), function(object) {
factor(seq_len(nrow(object@x)))
})
setMethod("group", signature(object="FLXMRglmfix"), function(object) {
factor(seq_len(nrow(object@x)/sum(object@nestedformula@k)))
})