Update Hard coded the length of the list of lists to avoid error

Efrain Gonzalez
1 parent bb19c1c363
Showing 1 changed file with 2 additions and 2 deletions Show diff stats
RMarkovBlanket.r
@@ -159,8 +159,8 @@ Blanky &lt;- function(MarkovDegree = 20, VariableStartName = &quot;Alzheimer&quot;, 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
...	...	@@ -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