From 1b7f1377e8bce0a568b7355cff1475876818394c Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Tue, 19 Dec 2017 12:11:55 -0500
Subject: [PATCH] Update Hard coded the length of the list of lists to avoid
 error

---
 RMarkovBlanket.r | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/RMarkovBlanket.r b/RMarkovBlanket.r
index 8d0c9da..3972433 100644
--- a/RMarkovBlanket.r
+++ b/RMarkovBlanket.r
@@ -159,8 +159,8 @@ Blanky <- function(MarkovDegree = 20, VariableStartName = "Alzheimer", VariableE
 			## which is just lPreVList * 3
 			PCCP <- 1
 			newsize <- (lPreVList * 3)
-			if(d > 3){
-				AllVarList[[d]] <- vector("list")
+			if(d > 1){
+				AllVarList[[d]] <- vector("list",length = newsize)
 			}
 			for(ef in 1:lPreVList){
 				##Finding the Parents
-- 
2.29.0