helper functions consistent with data files

mitzimorris · mitzimorris · commit 0ee3a875d9d1 · 2021-03-03T15:41:34.000-05:00
diff --git a/knitr/car-iar-poisson/update_2021_02/bym2_helpers.R b/knitr/car-iar-poisson/update_2021_02/bym2_helpers.R
@@ -91,7 +91,7 @@ index_components <- function(nb_obj) {
             edges = nb_to_edge_array(sub_nb)
             scaling_factors[k] = scaling_factor(edges)
         } else {
-            scaling_factors[k] = 1.0/num_comps
+            scaling_factors[k] = 1.0
         }
     }   
 

Original file line number	Diff line number	Diff line change
`@@ -91,7 +91,7 @@ index_components <- function(nb_obj) {`
`91`	`91`	`edges = nb_to_edge_array(sub_nb)`
`92`	`92`	`scaling_factors[k] = scaling_factor(edges)`
`93`	`93`	`} else {`
`94`		`- scaling_factors[k] = 1.0/num_comps`
	`94`	`+ scaling_factors[k] = 1.0`
`95`	`95`	`}`
`96`	`96`	`}`
`97`	`97`