Changeset 8642d7e in tol

Timestamp:

Dec 15, 2009, 5:37:35 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

dac8deb

Parents:

bc98cf7

Message:

Fixes #813

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1812 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/math/stat/models/bayesian/bysMcmc/_partialSampler.tol (modified) (2 diffs)

tol/stdlib/math/stat/models/bayesian/bysMcmc/_partialSampler.tol

@@ -194 +194 @@
         Set   fixedParamAll  = _.mcmcPartialHandler::_.fixedParam;
         Set   fixedParamAux  = SelectIndexByName(blockParam, fixedParamAll);
-        Real If(!Card(fixedParamAux), 
+        VMatrix _.fixedValues := 
+          SubRow(_.mcmcPartialHandler::_.fixedValues, fixedParamAux);
+        Real If(Card(fixedParamAux), 
         {
-          Set _.fixedParam    := ExtractByIndex(fixedParamAll, fixedParamAux);
-          Real SetIndexByName(_.fixedParam);
+          Set _.fixedParam := ExtractByIndex(fixedParamAll, fixedParamAux);
+          Set EvalSet(_.fixedParam, Text(Text prm){PutName(ToName(prm),prm)});
+          Real If(Card(_.fixedParam), SetIndexByName(_.fixedParam));
           Set fixedParamIdx := SelectIndexByName(_.fixedParam, blockParam);
           Matrix _.fixedParamIdx := SetCol(fixedParamIdx);
@@ -210 +213 @@
         {
           Set _.reloadParam    := ExtractByIndex(reloadParamAll, reloadParamAux);
-          Real SetIndexByName(_.reloadParam);
+          Set EvalSet(_.reloadParam, Text(Text prm){PutName(ToName(prm),prm)});
+          Real If(Card(_.reloadParam), SetIndexByName(_.reloadParam));
           Set reloadParamIdx := SelectIndexByName(_.reloadParam, blockParam);
           Matrix _.reloadParamIdx := SetCol(reloadParamIdx);