- K <- fargs$optargs$K
- M <- computeMoments(fargs$X, fargs$Y)
- fargs$optargs$M <- M
- mu <- computeMu(fargs$X, fargs$Y, fargs$optargs)
- op <- optimParams(K,fargs$optargs$link,fargs$optargs)
+ K <- fargs$K
+ mu <- computeMu(fargs$X, fargs$Y, list(K=K))
+ op <- optimParams(fargs$X, fargs$Y, K, fargs$link)