Insert/remove an arrow in network
Inserts/removes one arrow in a network (if legal)
insert (nw,j,i,df,prior,nocalc=FALSE,trylist=vector("list",size(nw)))
remover(nw,j,i,df,prior,nocalc=FALSE,trylist=vector("list",size(nw)))nw |
an object of class |
j |
integer, giving the index of the 'from' node. |
i |
integer, giving the index of the 'to' node. |
df |
a data frame used for learning the network, see
|
prior |
a list describing parameter priors, generated by
|
nocalc |
a logical. If |
trylist |
a list, used internally for reusing learning of nodes,
see |
Examines if the arrow from j to i is legal according to
the following criteria
Arrows from/to the same node are not legal.
Arrows from continous nodes to discrete nodes are not legal.
Arrows banned in ban list are not legal, see drawnetwork.
Arrows already existing in the network are not legal.
If the arrow is not legal, a NULL network is returned. Otherwise, the
arrow is inserted/removed, the network is re-learned (if
nocalc is FALSE). The trylist is updated.
A list with two elements
nw |
an object of class |
trylist |
an updated list, used internally for reusing learning
of nodes, see |
Susanne Gammelgaard Bottcher,
Claus Dethlefsen rpackage.deal@gmail.com.
data(rats) rats.nw <- network(rats) rats.nw <- getnetwork(insert(rats.nw,2,1,nocalc=TRUE)) rats.prior <- jointprior(rats.nw,12) rats.nw2 <- network(rats) rats.nw2 <- getnetwork(learn(rats.nw2,rats,rats.prior)) rats.nw2 <- getnetwork(insert(rats.nw2,1,2,rats,rats.prior)) rats.nw3 <- getnetwork(remover(rats.nw2,1,2,rats,rats.prior))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.