Commit 1b7f1377e8bce0a568b7355cff1475876818394c
1 parent
bb19c1c363
Exists in
master
Update Hard coded the length of the list of lists to avoid error
Showing
1 changed file
with
2 additions
and
2 deletions
Show diff stats
RMarkovBlanket.r
... | ... | @@ -159,8 +159,8 @@ Blanky <- function(MarkovDegree = 20, VariableStartName = "Alzheimer", VariableE |
159 | 159 | ## which is just lPreVList * 3 |
160 | 160 | PCCP <- 1 |
161 | 161 | newsize <- (lPreVList * 3) |
162 | - if(d > 3){ | |
163 | - AllVarList[[d]] <- vector("list") | |
162 | + if(d > 1){ | |
163 | + AllVarList[[d]] <- vector("list",length = newsize) | |
164 | 164 | } |
165 | 165 | for(ef in 1:lPreVList){ |
166 | 166 | ##Finding the Parents |