Displaying 1 result from an estimated 1 matches for "fr2nm".
Did you mean:
fr2
2003 Jun 25
3
joining columns as in a relational database
...ot;cjoin" <-
function(fr1, fr2, cnm1, cnm2 = cnm1, which)
{
val = as.data.frame(fr1)
vnms = names(val)
cnm1 = as.character(cnm1)
if (length(cnm1) < 1 || any(is.na(match(cnm1, vnms)))) {
stop("cnm1 must be one or more column names from fr1")
}
fr2nm = names(fr2)
if (!missing(cnm2)) {
cnm2 = as.character(cnm2)
if (length(cnm2) != length(cnm1) || any(is.na(match(cnm2, fr2nm)))) {
stop(paste("cnm2 must be", length(cnm1),
"column name(s) from fr2"))
}
} else {...