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)
}

Try the miceadds package in your browser

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

miceadds documentation built on Jan. 7, 2023, 1:09 a.m.