A crossed /nbn/ is a /nbn/ obtained when replacing each node of the
first /nbn/ by the second /nbn/ and vice-versa.
 Let nn1/nn2
and na1/na2 be the node and arc numbers of the two
nbns, the node number of the crossed nbn is
nn1*nn2 and its arc number is nn1*na2+nn2*na1.
 The
regression coefficients attributed to the crossed nbn are the
products of the weights (we1/we2) and the regression
coefficients of the initial nbn.
crossed4nbn1nbn(nbn1, nbn2, we1=rep(1, length(nbn1)), we2=rep(1, length(nbn2)),
	  nona=as.vector(outer(names(nbn1), names(nbn2), paste,
	  sep="_")))The resulting crossed nbn object.
The first generating /nbn/.
The second generating /nbn/.
The weight to apply to the nodes of the first generating /nbn/.
The weight to apply to the nodes of the second generating /nbn/.
The node names to give to the crossed /nbn/, the nodes
of the nbn1 varying first.
The mu coefficient is the sum of the two corresponding
mus of the generating nbn.
 The sigma
coefficient is the product of the two corresponding sigmas of
the generating nbn.
 The regression coefficient are directed
inherited from the nbn which is duplicated with this arc.
 print8nbn(crossed4nbn1nbn(rbmn0nbn.01, rbmn0nbn.04));
Run the code above in your browser using DataLab