Code doesn't run

[lauken13]

Error in new_CppObject_xp(fields$.module, fields$.pointer, ...) :
Exception: model98c127c1de2_hier_NB_regression_namespace::model98c127c1de2_hier_NB_regression: building_idx[k0__] is 37, but must be less than or equal to 10 (in 'model98c127c1de2_hier_NB_regression' at line 18)

failed to create the sampler; sampling not done

Looks like building ID (line 160) is being used as an index in model but building ID is actually levels of 5 13 26 37 45 47 62 70 93 98. A fix is to assign building_id <- as.numeric(as.factor(building_id)), but haven't incase there's updates pending.