R/lm_cluster_subset.R

Defines functions lm_cluster_subset

## File Name: lm_cluster_subset.R
## File Version: 0.02

lm_cluster_subset <- function(data, cluster, weights, subset, pos)
{
    if (! is.null(subset) ){
        data <- data[subset, ]
        cluster <- sirt_subset_object(x=cluster, subset=subset)
        weights <- sirt_subset_object(x=weights, subset=subset)
    }
    wgt__ <- weights
    assign(value=wgt__, x="wgt__", pos=pos)
    #--- output
    res <- list(data=data, cluster=cluster, wgt__=wgt__)
    return(res)
}

Try the miceadds package in your browser

Any scripts or data that you put into this service are public.

miceadds documentation built on May 29, 2024, 11:05 a.m.