def getProbFactors(fitted, events, evidence):
env = Environment()
env['fitted'] = fitted
str_cpquery = "cpquery(fitted,({}),({}))"
suppVals = [
reval(str_cpquery.format(event, evidence), envir=env)[0]
for event in events
]
return suppVals
def fetch(self, name):
""" Fetch the dataset (loads it or evaluates the R associated
with it.
In R, datasets are loaded into the global environment by default
but this function returns an environment that contains the dataset(s).
"""
if self._datasets is None:
self._init_setlist()
if name not in self._datasets:
raise KeyError('Data set "%s" cannot be found' % name)
env = _new_env()
_data(StrSexpVector((name, )),
**{'package': StrSexpVector((self._packagename, )),
'lib.loc': self._lib_loc,
'envir': env})
return Environment(env)
def __init__(self, string, name):
env = Environment()
reval(string, env)
super(SignatureTranslatedAnonymousPackage, self).__init__(env, name)
