BUG: Correct the counting logic.

ntustison · ntustison · commit f0f1c74bd8f7 · 2024-12-04T09:30:40.000-08:00
diff --git a/R/labelImageRegistration.R b/R/labelImageRegistration.R
@@ -196,13 +196,13 @@ labelImageRegistration <- function( fixedLabelImages, movingLabelImages,
         fixedCentersOfMass[count,] <- getCenterOfMass( fixedSingleLabelImage )
         movingSingleLabelImage <- thresholdImage( movingLabelImages[[i]], label, label, 1, 0 )  
         movingCentersOfMass[count,] <- getCenterOfMass( movingSingleLabelImage )
-        count <- count + 1
         if( doDeformable ) 
           {
-          deformableMultivariateExtras[[i]] <- list( "MSQ", fixedSingleLabelImage,
+          deformableMultivariateExtras[[count]] <- list( "MSQ", fixedSingleLabelImage,
                                                      movingSingleLabelImage, 
-                                                     labelImageWeights[i], 0)
+                                                     labelImageWeights[i], 0 )
           }
+        count <- count + 1
         } 
       }
 

Original file line number	Diff line number	Diff line change
`@@ -196,13 +196,13 @@ labelImageRegistration <- function( fixedLabelImages, movingLabelImages,`
`196`	`196`	`fixedCentersOfMass[count,] <- getCenterOfMass( fixedSingleLabelImage )`
`197`	`197`	`movingSingleLabelImage <- thresholdImage( movingLabelImages[[i]], label, label, 1, 0 )`
`198`	`198`	`movingCentersOfMass[count,] <- getCenterOfMass( movingSingleLabelImage )`
`199`		`- count <- count + 1`
`200`	`199`	`if( doDeformable )`
`201`	`200`	`{`
`202`		`- deformableMultivariateExtras[[i]] <- list( "MSQ", fixedSingleLabelImage,`
	`201`	`+ deformableMultivariateExtras[[count]] <- list( "MSQ", fixedSingleLabelImage,`
`203`	`202`	`movingSingleLabelImage,`
`204`		`- labelImageWeights[i], 0)`
	`203`	`+ labelImageWeights[i], 0 )`
`205`	`204`	`}`
	`205`	`+ count <- count + 1`
`206`	`206`	`}`
`207`	`207`	`}`
`208`	`208`