[valse.git] / pkg / R / EMGLLF.R

#' EMGLLF
#'
#' Description de EMGLLF
#'
#' @param phiInit ...
#'
#' @return ...
#'
#' @examples
#' ...
#' ...
#' @export
EMGLLF <- function(phiInit, rhoInit, piInit, gamInit,
	mini, maxi, gamma, lambda, X, Y, tau)
{
	.Call("EMGLLF", phiInit, rhoInit, piInit, gamInit,
		mini, maxi, gamma, lambda, X, Y, tau, PACKAGE="valse")
}
Commit	Line	Data
	1	#' EMGLLF
	2	#'
	3	#' Description de EMGLLF
	4	#'
	5	#' @param phiInit ...
	6	#'
	7	#' @return ...
	8	#'
	9	#' @examples
	10	#' ...
	11	#' ...
	12	#' @export
	13	EMGLLF <- function(phiInit, rhoInit, piInit, gamInit,
	14	mini, maxi, gamma, lambda, X, Y, tau)
	15	{
	16	.Call("EMGLLF", phiInit, rhoInit, piInit, gamInit,
	17	mini, maxi, gamma, lambda, X, Y, tau, PACKAGE="valse")
	18	}