R/weighted_rowSums.R

Defines functions weighted_rowSums

## File Name: weighted_rowSums.R
## File Version: 0.08


weighted_rowSums <- function( mat, wgt=NULL)
{
    wgt <- weighted_stats_extend_wgt( wgt=wgt, mat=mat )
    mat1 <- rowSums( mat * wgt, na.rm=TRUE)
    return(mat1)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.