X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2FR%2FinitSmallEM.R;fp=pkg%2FR%2FinitSmallEM.R;h=fccd51d4676d05622c576566e2159abc916a6673;hp=937ea734aa427710540b69f75585f75eb6968795;hb=859c30ec72871f923da0498c14a94e67b0219875;hpb=04845e3300b5450629bf1a2c3344d2f9419e91a6 diff --git a/pkg/R/initSmallEM.R b/pkg/R/initSmallEM.R index 937ea73..fccd51d 100644 --- a/pkg/R/initSmallEM.R +++ b/pkg/R/initSmallEM.R @@ -5,9 +5,10 @@ #' @param Y matrix of responses (of size n*m) #' #' @return a list with phiInit, rhoInit, piInit, gamInit -#' @export +#' #' @importFrom methods new #' @importFrom stats cutree dist hclust runif +#' @export initSmallEM <- function(k, X, Y, fast) { n <- nrow(X)