Skip to content

Commit a3133c1

Browse files
vandenmanvandenman
committed
some more fixes
1 parent 703fa62 commit a3133c1

File tree

5 files changed

+414
-414
lines changed

5 files changed

+414
-414
lines changed

‎R/commonAnovaBayesian.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -807,9 +807,9 @@ BANOVAcomputMatchedInclusion <- function(effectNames, effects.matrix, interactio
807807

808808
logNumPostOdds <- logPostProbModel
809809
logDenPostOdds <- log1mexp(logNumPostOdds)
810-
logNumPriorOdds <- logprior
810+
logNumPriorOdds <- logpriorSubset
811811
logDenPriorOdds <- log1mexp(logNumPriorOdds)
812-
internalTable[idxGood, "BFM"] <- logNumPostOdds - logDenPostOdds + logDenPriorOdds - logNumPriorOdds
812+
internalTable[widxGood, "BFM"] <- logNumPostOdds - logDenPostOdds + logDenPriorOdds - logNumPriorOdds
813813

814814
widxBad <- which(!idxGood)
815815

0 commit comments

Comments
 (0)