# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
bipartiteMatch <- function(costMatrix) {
.Call(`_LSMF_bipartiteMatch`, costMatrix)
}
mse_simple <- function(A, W, H) {
.Call(`_LSMF_mse_simple`, A, W, H)
}
mse_detail <- function(A, W, H) {
.Call(`_LSMF_mse_detail`, A, W, H)
}
cls_scd <- function(x, B, y, max_iter, rel_tol, lower_limit, upper_limit, constraint_type, multinomial_values) {
.Call(`_LSMF_cls_scd`, x, B, y, max_iter, rel_tol, lower_limit, upper_limit, constraint_type, multinomial_values)
}
cls_project <- function(H, Wt, A, A_weights, n_threads, mask_zeros, alpha_L1, alpha_L2, alpha_angular, alpha_L0, constraint_type, multinomial_values, inner_rel_tol, inner_max_iter, use_weights, lower_limit, upper_limit) {
.Call(`_LSMF_cls_project`, H, Wt, A, A_weights, n_threads, mask_zeros, alpha_L1, alpha_L2, alpha_angular, alpha_L0, constraint_type, multinomial_values, inner_rel_tol, inner_max_iter, use_weights, lower_limit, upper_limit)
}
mse <- function(A, A_weights, W, H, mask_zeros, alpha_L1, alpha_L2, alpha_angular, n_threads, use_weights) {
.Call(`_LSMF_mse`, A, A_weights, W, H, mask_zeros, alpha_L1, alpha_L2, alpha_angular, n_threads, use_weights)
}
cls_mf <- function(A, k, W, H, n_threads, verbose, lower_limits, upper_limits, alpha_L1, alpha_L2, alpha_angular, alpha_L0, constraint_type, multinomial_values1, multinomial_values2, A_weights, use_weights, trace, mask_zeros, rel_tol, inner_rel_tol, max_iter, inner_max_iter, start_W) {
.Call(`_LSMF_cls_mf`, A, k, W, H, n_threads, verbose, lower_limits, upper_limits, alpha_L1, alpha_L2, alpha_angular, alpha_L0, constraint_type, multinomial_values1, multinomial_values2, A_weights, use_weights, trace, mask_zeros, rel_tol, inner_rel_tol, max_iter, inner_max_iter, start_W)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.