From c2a64a00c511bd6ed6ad2dc0f83ee925775f6064 Mon Sep 17 00:00:00 2001 From: Anver Khusainov Date: Tue, 21 Apr 2020 15:52:29 +0300 Subject: [PATCH] Fixed sepset suppression in fciPlus --- R/pcalg.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/pcalg.R b/R/pcalg.R index a5f8342..122567b 100644 --- a/R/pcalg.R +++ b/R/pcalg.R @@ -7117,7 +7117,7 @@ fciPlus <- function(suffStat, indepTest, alpha, labels, p, verbose=TRUE) max.ord = integer(0), max.ordPDSEP = integer(0), n.edgetests = integer(0), n.edgetestsPDSEP = integer(0), - sepset = list(), pMax = matrix(0,1,1), allPdsep = list()) + sepset = fcip$sepset, pMax = matrix(0,1,1), allPdsep = list()) } ## {fciPlus} ## MM: Das braucht's ja wirklich nicht; wir haben extra gute summary(.) Methoden,