returnSets {CoCoRaw}R Documentation

Return a specific subset of the variables

Description

Return for a model the connected component containing a specific set, connected components, prime components, junction tree components, chain components, ancestral set, shortest paths between two sets, cut sets, separators, D-separators, neighbours of a set, TRUE if s set is a separator, or TRUE if s set is a d-separator.

Usage

returnSets(model = FALSE, set = "", set.a = "", set.b = "", 
           u = "", v = "", type = "primes", 
           split.gc = FALSE, split.generators = FALSE, data = NULL, 
           object = .object.of.model(model, data = data, ...), ...)

Arguments

model See returnModel.
set A character string with a variable set.
set.a A character string with a variable set.
set.b A character string with a variable set.
u A character string with a single variable name.
v A character string with a single variable name.
type A character string with the text "connected.component" (set used), "connected.components", "prime.components", "chain.components", "junction.tree.components", "ancestral.set", "shortest.paths" (u and v used), "cut.sets" (u and v or set.a and set.a used), "separators", "d-separators", "neighbours", (set used), "is.separator", (set used), "is.d-separator", (set used).
split.gc See returnModel.
split.generators See returnModel.
data See exportCoCo.
object See exportCoCo.
... Additional arguments to generate the CoCo object from the data argument. See propertyModel.

Details

Value

A boolean, NULL, a list with the component string with a generating class, a list with vectors of character strings of variables, or a vector of character strings of sets of variable.

ToDo

Separators not returned from mixed models.

Author(s)

Jens Henrik Badsberg

References

Badsberg, J.H.: A guide to CoCo, JSS, 2001 ( http://www.jstatsoft.org/v06/i04/ ) and Badsberg, J.H.: Xlisp+CoCo, Aalborg University, 1996.

See Also

propertySet, propertyModel, and returnVertexOrder.

Examples

library(CoCo);
data(Fuchs82);

CoCoObject <- makeCoCo();
enterTable(Fuchs82, object = CoCoObject);

enterModel("mdp,da,am,dg,gs,sa", object = CoCoObject);

returnSets(model = "current", type = "connected.component", set = "dm",
           object = CoCoObject);
returnSets(model = "current", type = "connected.components", 
           object = CoCoObject);

returnSets(model = "current", type = "prime.components", 
           object = CoCoObject); 
returnExpression(type = "prime.components",
           object = CoCoObject);

returnSets(model = "current", type = "junction.tree.components", 
           object = CoCoObject);
returnSets(model = "current", type = "chain.components", 
           object = CoCoObject);
returnSets(model = "current", type = "ancestral.set", 
           object = CoCoObject);
returnSets(model = "current", type = "shortests.paths", u = "s", v = "p", 
           object = CoCoObject);
returnSets(model = "current", type = "cut.sets", u = "s", v = "p", 
           object = CoCoObject);
returnSets(model = "current", type = "cut.sets", set.a = "sg", set.b = "p",
           object = CoCoObject);
returnSets(model = "current", type = "separators", 
           object = CoCoObject);
returnSets(model = "current", type = "d-separators", 
           object = CoCoObject);
returnSets(model = "current", type = "neighbours", set = "dm", 
           object = CoCoObject);
returnSets(model = "current", type = "is.separator", set = "dm", 
           object = CoCoObject);
returnSets(model = "current", type = "is.d-separator", set = "dm", 
           object = CoCoObject);

returnModel(object = CoCoObject);

returnModel(split.generators = TRUE, object = CoCoObject);

returnSets(model = FALSE, type = "neighbours", set = c("d", "m"), 
           object = CoCoObject);

returnSets(model = FALSE, type = "neighbours", set = "dm", 
           object = CoCoObject);

returnSets(model = FALSE, type = "neighbours", set = "[dm]", 
           object = CoCoObject);

returnSets(model = "current", type = "separators", 
           split.gc = TRUE, object = CoCoObject);

returnSets(model = "current", type = "separators", 
           split.generator = TRUE, split.gc = TRUE, object = CoCoObject);

returnSets(model = "current", type = "separators", 
           split.generator = TRUE, object = CoCoObject); # ?

endCoCo(object = CoCoObject);

library(CoCoCg);
data(Rats);
CoCoObject <- makeCoCoCg();
enterDataFrame(Rats, object = CoCoObject);
enterModel("ax,xb,y.", object = CoCoObject);

returnSets(model = "current", type = "connected.component", set = "ax",
           object = CoCoObject);
returnSets(model = "current", type = "connected.components", 
           object = CoCoObject);

returnSets(model = "current", type = "prime.components", 
           object = CoCoObject); 
returnExpression(type = "prime.components",
           object = CoCoObject);

returnSets(model = "current", type = "junction.tree.components", 
           object = CoCoObject);
returnSets(model = "current", type = "chain.components", 
           object = CoCoObject);
returnSets(model = "current", type = "ancestral.set", 
           object = CoCoObject);

returnSets(model = "current", type = "shortests.paths", u = "a", v = "b", 
           object = CoCoObject);
returnSets(model = "current", type = "cut.sets", u = "a", v = "b", 
           object = CoCoObject);
returnSets(model = "current", type = "cut.sets", set.a = "a", set.b = "b",
           object = CoCoObject);

returnSets(model = "current", type = "separators", 
           object = CoCoObject); # ?
returnSets(model = "current", type = "d-separators", 
           object = CoCoObject);
returnSets(model = "current", type = "neighbours", set = "x", 
           object = CoCoObject);
returnSets(model = "current", type = "is.separator", set = "x", 
           object = CoCoObject);
returnSets(model = "current", type = "is.d-separator", set = "x", 
           object = CoCoObject);

returnModel(object = CoCoObject);

returnModel(split.generators = TRUE, object = CoCoObject);

returnSets(model = FALSE, type = "neighbours", set = c("x", "b"), 
           object = CoCoObject);

returnSets(model = FALSE, type = "neighbours", set = "x", 
           object = CoCoObject);

returnSets(model = FALSE, type = "neighbours", set = "[x]", 
           object = CoCoObject);

returnSets(model = "current", type = "separators", 
           split.gc = TRUE, object = CoCoObject);

returnSets(model = "current", type = "separators", 
           split.generator = TRUE, split.gc = TRUE, object = CoCoObject);

returnSets(model = "current", type = "separators", 
           split.generator = TRUE, object = CoCoObject); # ?

returnSets(model = "current", type = "separators", 
           split.gc = TRUE, object = CoCoObject); # ?

returnSets(model = "current", type = "separators", 
           split.generator = TRUE, split.gc = TRUE, object = CoCoObject); # ?

returnSets(model = "current", type = "separators", 
           split.generator = TRUE, object = CoCoObject); # ?

endCoCo(object = CoCoObject);

[Package CoCoRaw version 0.1.6.8 Index]