BUG: Too much bias.

ntustison · ntustison · commit cd207f418d76 · 2025-10-30T17:14:58.000-07:00
diff --git a/R/dataAugmentation.R b/R/dataAugmentation.R
@@ -252,9 +252,8 @@ dataAugmentation <- function( inputImageList,
         if( j == 1 )
           {    
           logField <- simulateBiasField( image, numberOfPoints = 10,
-            sdBiasField = sdSimulatedBiasField, numberOfFittingLevels = 2, meshSize = 10 ) %>%
-            iMath( "Normalize" )
-          biasField <- ( exp( logField ) )^sample( c( 2, 3, 4 ), 1 )
+            sdBiasField = sdSimulatedBiasField, numberOfFittingLevels = 2, meshSize = 10 )
+          biasField <- exp( logField )
           }
         image <- image * biasField
         }

Original file line number	Diff line number	Diff line change
`@@ -252,9 +252,8 @@ dataAugmentation <- function( inputImageList,`
`252`	`252`	`if( j == 1 )`
`253`	`253`	`{`
`254`	`254`	`logField <- simulateBiasField( image, numberOfPoints = 10,`
`255`		`- sdBiasField = sdSimulatedBiasField, numberOfFittingLevels = 2, meshSize = 10 ) %>%`
`256`		`- iMath( "Normalize" )`
`257`		`- biasField <- ( exp( logField ) )^sample( c( 2, 3, 4 ), 1 )`
	`255`	`+ sdBiasField = sdSimulatedBiasField, numberOfFittingLevels = 2, meshSize = 10 )`
	`256`	`+ biasField <- exp( logField )`
`258`	`257`	`}`
`259`	`258`	`image <- image * biasField`
`260`	`259`	`}`