Displaying 1 result from an estimated 1 matches for "nodejoint".
2007 Apr 15
1
unable to find inherited method for function "edges", for signature "ugsh", "missing"
...t;edges", signature(object = "graphsh"),
function(object, 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(enterE...