loadManifest | R Documentation |
This sets the manifest of networks used in the scoring engine. In
particular, it sets the WarehouseManifest
of the
PnetWarehouse
associated with a
BNEngine
.
loadManifest(eng, manifest = data.frame())
eng |
A |
manifest |
A dataframe containing a network manifest (see
|
The BNEngine
requires a proficiency or competency
model (which is used to build student models) and a collection of
evidence models (one for each scoring context) which are all expressed
as Pnet
s. The manifest
is basically a
table of which evidence model networks go with which scoring
contexts. The proficienty model usually serves as the hub in the
hub-and-spoke framework. (In fact, if the profModel
argument
is not supplied when the BNEngine
is built, the
engine will look for a network which has no hub in the manifest.
In fact, the manifest is part of the
PnetWarehouse
which is a field of the engine.
It should have the format associate with manifests described in
WarehouseManifest
. Note that the Bayes nets
should have already been built, so the the warehouse should point to
where they can be loaded from the filesystem on demand.
For the BNEngineMongo
, the default manifest is
located in a table in the database. If no manifest is supplied, then
the manifest is read from the database. For the
BNEngineNDB
, the manifest must be specified
manually when the engine is contructed (or when loadManifest
is
called).
This function returns the engine argument.
The loadManifest
call is part of the initialization sequence
for the BNEngine
. However, if the manifest is
loaded into the PnetWarehouse
as it is built, it
is really redundant.
Russell Almond
Almond, Mislevy, Steinberg, Yan and Williamson (2015). Bayesian Networks in Educational Assessment. Springer. Especially Chapter 13.
Classes: BNEngine
,
BNEngineMongo
, BNEngineNDB
,
PnetWarehouse
Functions:
WarehouseManifest
,
BuildNetManifest
## Not run:
## Requires PNetica
library(PNetica) ## Must load to setup Netica DLL
app <- "ecd://epls.coe.fsu.edu/EITest"
sess <- RNetica::NeticaSession()
RNetica::startSession(sess)
config.dir <- file.path(library(help="Peanut")$path, "auxdata")
net.dir <- file.path(library(help="PNetica")$path,"testnets")
netman <- read.csv(file.path(config.dir, "Mini-PP-Nets.csv"),
row.names=1, stringsAsFactors=FALSE)
stattab <- read.csv(file.path(config.dir, "Mini-PP-Statistics.csv"),
as.is=TRUE)
## Deliberately build warehouse without empty manifest.
Nethouse <- PNetica::BNWarehouse(session=sess,
address=net.dir)
cl <- new("CaptureListener")
listeners <- list("cl"=cl)
ls <- ListenerSet(sender= paste("EAEngine[",app,"]"),
db=MongoDB(noMongo=TRUE), listeners=listeners)
eng <- newBNEngineNDB(app=app,warehouse=Nethouse,
listenerSet=ls,manifest=netman,
profModel="miniPP_CM",
histNodes="Physics",
statmat=stattab,
activeTest="EAActive.txt")
stopifnot(nrow(WarehouseManifest(eng$warehouse())) == 0L)
## Standard initialization methods.
loadManifest(eng,netman)
stopifnot(nrow(WarehouseManifest(eng$warehouse())) == 5L)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.