search

nutterb / HydeNet

Hybrid Decision Networks in R
Other
23 stars 3 forks source link

ArgumentCheck error in setNode() #90

Closed jarrod-dalton closed 9 years ago

jarrod-dalton commented 9 years ago

Looks like something may be going on with the changes made which implement the ArgumentCheck package. I started stepping through the Decision Networks vignette and got the below error:

> net <- HydeNetwork(~ initialAces | card1*card2
+ + initialPoints | card1*card2
+ + highUpcard | dealerUpcard
+ + hit1 | initialPoints*highUpcard
+ + acesAfterCard3 | initialAces*card3
+ + pointsAfterCard3 | card1*card2*card3*acesAfterCard3
+ + hit2 | pointsAfterCard3*highUpcard
+ + acesAfterCard4 | acesAfterCard3*card4
+ + pointsAfterCard4 | card1*card2*card3*card4*acesAfterCard4
+ + hit3 | pointsAfterCard4*highUpcard
+ + acesAfterCard5 | acesAfterCard4*card5
+ + pointsAfterCard5 | card1*card2*card3*card4*card5*acesAfterCard5
+ + playerFinalPoints | initialPoints*hit1*pointsAfterCard3
+ *hit2*pointsAfterCard4*hit3*pointsAfterCard5
+ + dealerOutcome | dealerUpcard
+ + payoff | playerFinalPoints*dealerOutcome)
> plot(net)
> cardProbs  <- c(rep(1/13,8), 4/13, 1/13)  # probs. for 2, 3, ..., 9, (10-K), A
> 
> net <- setNode(net, card1, nodeType="dcat",  pi=vectorProbs(p=cardProbs, card1))
Error: 'addMessage' is not an exported object from 'namespace:ArgumentCheck'
jarrod-dalton commented 9 years ago

Duh. If I actually used the up-to-date version of ArgumentCheck, it works.