Displaying 1 result from an estimated 1 matches for "pevid".
Did you mean:
devid
2007 Apr 15
1
unable to find inherited method for function "edges", for signature "ugsh", "missing"
...ems:
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 <- p / sum(p)
levs$.p <- p
return(levs)
}
When running R cmd check I get:
> ug <- ugsh(c("me","ve"),c("me","al"),c("ve","al"),c(&...