R/sirt_subset_object.R

Defines functions sirt_subset_object

## File Name: sirt_subset_object.R
## File Version: 0.01

sirt_subset_object <- function(x, subset)
{
    if ( length(x) > 1 ){
        x <- x[subset]
    }
    return(x)
}
alexanderrobitzsch/miceadds documentation built on Feb. 2, 2024, 10:21 a.m.