X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=pkg%2FR%2FoptimParams.R;h=c061fcf0b7d8690e901b02d8ae4943c7c940701a;hp=934a757e7680325f0aa64abd6cc8abe5a48f2c82;hb=d08fef424150599b8095727c0f9870ca9535fb65;hpb=7737c2fa8362b2bf590c2e2f9dcbd75424c51271 diff --git a/pkg/R/optimParams.R b/pkg/R/optimParams.R index 934a757..c061fcf 100644 --- a/pkg/R/optimParams.R +++ b/pkg/R/optimParams.R @@ -190,6 +190,7 @@ setRefClass( t( sweep(as.matrix(β2[,km1]), 2, G2[km1], '*') - G2[K] * β2[,K] ), t( sweep(as.matrix(β3[,km1]), 2, G3[km1], '*') - G3[K] * β3[,K] ))) + # TODO: understand derivatives order and match the one in optim init param for (i in 1:d) { # i determines the derivated matrix dβ[2,3]