completed path finding code (TESTING)

Efrain Gonzalez
1 parent 679b628056
Showing 1 changed file with 2 additions and 1 deletions Show diff stats
RMarkovBlanket.r
@@ -296,6 +296,7 @@ for(k in d:2){
 				break
 			}
 		}
+		Pathlisting[[d]] <- append(Pathlisting[[d]],ship)
  
 	}
 	modship <- ship %% 3
@@ -395,6 +396,6 @@ for(k in d:2){
 	}
  
 	ship <- intship
+	Pathlisting[[(k - 1)]] <- c(prevar, ship)
  
-	Pathlisting[[(k - 1)]] <- prevar
 }
...	...	@@ -296,6 +296,7 @@ for(k in d:2){
296	296	break
297	297	}
298	298	}
	299	+ Pathlisting[[d]] <- append(Pathlisting[[d]],ship)
299	300
300	301	}
301	302	modship <- ship %% 3
...	...	@@ -395,6 +396,6 @@ for(k in d:2){
395	396	}
396	397
397	398	ship <- intship
	399	+ Pathlisting[[(k - 1)]] <- c(prevar, ship)
398	400
399		- Pathlisting[[(k - 1)]] <- prevar
400	401	}