randomTableReplacement {CoCoRaw} | R Documentation |
Replace the table observed counts with random table of counts but with counts as the counts of the sufficient tables for the decomposable model.
randomTableReplacement(model = "current", data = NULL, object = .object.of.thing(data = data, ...), ...)
model |
See returnModel . |
data |
See exportCoCo . |
object |
See exportCoCo . |
... |
Additional arguments to generate the CoCo object
from the data argument. See propertyModel . |
TRUE
Jens Henrik Badsberg
Badsberg, J.H.: A guide to CoCo, JSS, 2001 ( http://www.jstatsoft.org/v06/i04/ ) and Badsberg, J.H.: Xlisp+CoCo, Aalborg University, 1996.
library(CoCo); data(HairEyeColor); CoCoObject <- makeCoCo(); enterTable(HairEyeColor, object = CoCoObject); enterModel(":Hair:Sex,:Eye:Sex", object = CoCoObject); returnTable("observed", "*", object = CoCoObject); returnTable("observed", ":Hair:Sex", object = CoCoObject); returnTable("observed", ":Eye:Sex", object = CoCoObject); randomTableReplacement(object = CoCoObject); returnTable("observed", "*", object = CoCoObject); returnTable("observed", ":Hair:Sex", object = CoCoObject); returnTable("observed", ":Eye:Sex", object = CoCoObject); randomTableReplacement(object = CoCoObject); returnTable("observed", "*", object = CoCoObject); returnTable("observed", ":Hair:Sex", object = CoCoObject); returnTable("observed", ":Eye:Sex", object = CoCoObject); endCoCo(object = CoCoObject);