deal (version 1.2-4)

insert: Insert/remove an arrow in network

Description

Inserts/removes one arrow in a network (if legal)

Usage

insert (nw,j,i,df,prior,nocalc=FALSE,trylist=vector("list",nw$n)) 
remover(nw,j,i,df,prior,nocalc=FALSE,trylist=vector("list",nw$n))

Arguments

nw

an object of class network.

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 network.

prior

a list describing parameter priors, generated by jointprior.

nocalc

a logical. If TRUE, learning is not called.

trylist

a list, used internally for reusing learning of nodes, see maketrylist.

Value

• A list with two elements
• nw
  an object of class network with the arrow added/removed if this is possible. If not, NULL is returned.
• trylist
  an updated list, used internally for reusing learning of nodes, see maketrylist.

Details

Examines if the arrow from j to i is legal according to the following criteria 1.{Arrows from/to the same node are not legal.} 2.{Arrows from continous nodes to discrete nodes are not legal.} 3.{Arrows banned in ban list are not legal, see drawnetwork.} 4.{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.

References

Further information about deal can be found at: http://www.math.auc.dk/novo/deal.

Examples

data(rats)
rats.nw    <- network(rats)
rats.nw    <- insert(rats.nw,2,1,nocalc=TRUE)$nw
rats.prior <- jointprior(rats.nw,12)

rats.nw2   <- network(rats)
rats.nw2   <- learn(rats.nw2,rats,rats.prior)$nw
rats.nw2   <- insert(rats.nw2,1,2,rats,rats.prior)$nw

rats.nw3   <- remover(rats.nw2,1,2,rats,rats.prior)$nw