Displaying 3 results from an estimated 3 matches for "levs2".
Did you mean:
levs
2007 Apr 15
1
unable to find inherited method for function "edges", for signature "ugsh", "missing"
...hat 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 <- p / sum(p)
levs$.p <- p
return(levs)
}
When running R cmd check I get:
&...
1998 Jan 09
0
split(.) woes
...Sunday and the fixes will be in it
if anyone wants/needs them sooner please let me know and I'll pass them
along directly. Now I just need to change the documentation.....
I also fixed the problem with seq reported by Martin,
On line 85 of seq.c change the i to a j.
v2 = strlen(CHAR(STRING(levs2)[i]));
should read
v2 = strlen(CHAR(STRING(levs2)[j]));
this will also be in the patches.
robert
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "...
1998 Jan 09
0
split(.) woes
...Sunday and the fixes will be in it
if anyone wants/needs them sooner please let me know and I'll pass them
along directly. Now I just need to change the documentation.....
I also fixed the problem with seq reported by Martin,
On line 85 of seq.c change the i to a j.
v2 = strlen(CHAR(STRING(levs2)[i]));
should read
v2 = strlen(CHAR(STRING(levs2)[j]));
this will also be in the patches.
robert
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "...