projects
/
valse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix for m==1
[valse.git]
/
pkg
/
R
/
computeGridLambda.R
diff --git
a/pkg/R/computeGridLambda.R
b/pkg/R/computeGridLambda.R
index
c2e9c8c
..
cf762ec
100644
(file)
--- a/
pkg/R/computeGridLambda.R
+++ b/
pkg/R/computeGridLambda.R
@@
-20,9
+20,9
@@
computeGridLambda <- function(phiInit, rhoInit, piInit, gamInit, X, Y, gamma, mi
maxi, tau, fast)
{
n <- nrow(X)
maxi, tau, fast)
{
n <- nrow(X)
- p <-
dim(phiInit)[1]
- m <-
dim(phiInit)[2]
- k <-
dim(phiInit)[3]
+ p <-
ncol(X)
+ m <-
ncol(Y)
+ k <-
length(piInit)
list_EMG <- EMGLLF(phiInit, rhoInit, piInit, gamInit, mini, maxi, gamma, lambda = 0,
X, Y, tau, fast)
list_EMG <- EMGLLF(phiInit, rhoInit, piInit, gamInit, mini, maxi, gamma, lambda = 0,
X, Y, tau, fast)