From 7f2b84c8cf45f0fb5b1d5b2e5b2742d4ada3b70f Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 30 Aug 2017 12:36:24 -0400 Subject: [PATCH] completed path finding code (TESTING) --- RMarkovBlanket.r | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/RMarkovBlanket.r b/RMarkovBlanket.r index e388943..8d0c9da 100644 --- a/RMarkovBlanket.r +++ b/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 } -- 2.29.0