Displaying 1 result from an estimated 1 matches for "vallabel".
Did you mean:
vallabels
2007 Apr 15
1
unable to find inherited method for function "edges", for signature "ugsh", "missing"
..., which) {
.links(object)
})
I can get this to work in the sense that it passes R cmd check. However, if I add the following (to me innocently looking function) to my package I get problems:
nodeJoint <- function(bn, set, normalize=TRUE){
vars <- set
a <- vallabels(gmd)[vars]
levs <- as.data.frame(table(a))
levs <- levs[,1:length(a)]
levs2 <- do.call("cbind",lapply(levs, as.character))
p<-sapply(1:nrow(levs2), function(i)
pevidence(enterEvidence(bn, nodes=vars, states=levs2[i,]))
)
if (normalize)
p...