prob
property for each node, derives the
joint probability distribution. Then the quantities needed in
the local master procedure for finding the local parameter priors are
deduced.jointprior(nw,N=NA,phiprior="bottcher",timetrace=FALSE)
jointdisc(nw,timetrace=FALSE)
jointcont(nw,timetrace=FALSE)
network
. Each node must
have a prob
property to describe the local probability
distribution. The prob
property
is created using
NA
's may be created in the output, resulting in errors in
learn
. If no N
is given, phiprior="bottcher"
or
phiprior="heckerman"
can be used.TRUE
, prints some timing
information on the screen.jointalpha
is determined by multiplying
each entry in the joint probability distribution by the size of the
imaginary data base N
.
For the mixed part of the network, for each configuration of the discrete
variables, the joint Gaussian distribution of the continuous
variables is constructed and represented by jointmu
(one
row for each configuration of the discrete parents) and
jointsigma
(a list of matrices -- one for each configuration of
the discrete parents). The configurations of the discrete parents are
ordered according to findex
. The algorithm for
constructing the joint distribution of the continuous variables is
described in Shachter and Kenley (1989).
Then, jointalpha
, jointnu
, jointrho
, mu
and
jointphi
are deduced. These quantities are later used for
deriving local parameter priors.
For each configuration i
of the discrete variables,
$$\nu_i=\rho_i=\alpha_i$$ and
$$\phi_i = (\nu_i -1)\Sigma_i$$
if phiprior="bottcher"
, see B�ttcher(2001) and
$$\phi_i = \nu_i(\rho_i -2)\Sigma_i/(\nu_i+1)$$
if phiprior="heckerman"
, see Heckerman, Geiger and Chickering (1995).
The procedures jointcont
and jointdisc
are intended for
internal use only.network
, prob.network
data(rats)
rats.nw <- network(rats)
rats.prior <- jointprior(rats.nw,12)
savenet(rats.nw,"rats.net")
rats.nw <- readnet("rats.net")
rats.nw <- prob.network(rats.nw,rats)
rats.prior <- jointprior(rats.nw,12)
Run the code above in your browser using DataLab