R/fct_pi_vec.R

In mixedLSR: Mixed, Low-Rank, and Sparse Multivariate Regression on High-Dimensional Data

Defines functions fct_pi_vec

Documented in fct_pi_vec

#' Internal Pi Function
#'
#' @inheritParams fct_gamma
#'
#' @keywords internal
#'
#' @return A mixing vector.
#'
fct_pi_vec <- function(clust_assign, k, N){
  sapply(seq(1,k),function(x){sum(clust_assign==x)/length(clust_assign)})
}

Try the mixedLSR package in your browser