.Call("EMGrank", Pi, Rho, mini, maxi, X, Y, eps, as.integer(rank), phi = double(p * m * k),
LLF = double(1), n, p, m, k, PACKAGE = "valse")
}
.Call("EMGrank", Pi, Rho, mini, maxi, X, Y, eps, as.integer(rank), phi = double(p * m * k),
LLF = double(1), n, p, m, k, PACKAGE = "valse")
}