Displaying 4 results from an estimated 4 matches for "methodsplit".
2006 Jun 19
2
Function hints
...ass=class(x))
m_id <- alias[match(m, alias[,1]), 2]
keywords <- lapply(m_id, function(id) key[key[,2] %in% id, 1])
f.names <- cbind(m, base[match(m_id, base[,3]), 4])
f.names <- unlist(lapply(1:nrow(f.names), function(i) {
if (is.na(f.names[i, 2])) return(f.names[i, 1])
a <- methodsplit(f.names[i, 1])
b <- methodsplit(f.names[i, 2])
if (a[1] == b[1]) f.names[i, 2] else f.names[i, 1]
}))
hints <- cbind(f.names, base[match(m_id, base[,3]), 5])
hints <- hints[order(tolower(hints[,1])),]
hints <- rbind( c("--------", "---------------")...
2006 Jun 19
2
Function hints
...ass=class(x))
m_id <- alias[match(m, alias[,1]), 2]
keywords <- lapply(m_id, function(id) key[key[,2] %in% id, 1])
f.names <- cbind(m, base[match(m_id, base[,3]), 4])
f.names <- unlist(lapply(1:nrow(f.names), function(i) {
if (is.na(f.names[i, 2])) return(f.names[i, 1])
a <- methodsplit(f.names[i, 1])
b <- methodsplit(f.names[i, 2])
if (a[1] == b[1]) f.names[i, 2] else f.names[i, 1]
}))
hints <- cbind(f.names, base[match(m_id, base[,3]), 5])
hints <- hints[order(tolower(hints[,1])),]
hints <- rbind( c("--------", "---------------")...
2006 Jun 20
2
Documentation issues [Was: Function hints]
...> keywords <- lapply(m_id, function(id) key[key[,2] %in% id, 1])
> >
> > f.names <- cbind(m, base[match(m_id, base[,3]), 4])
> > f.names <- unlist(lapply(1:nrow(f.names), function(i) {
> > if (is.na(f.names[i, 2])) return(f.names[i, 1])
> > a <- methodsplit(f.names[i, 1])
> > b <- methodsplit(f.names[i, 2])
> >
> > if (a[1] == b[1]) f.names[i, 2] else f.names[i,
> 1]
> > }))
> >
> > hints <- cbind(f.names, base[match(m_id, base[,3]), 5])
> > hints <- hints[order(tolower(hints[,1])),]...
2006 Jun 20
1
[R] Function hints
...> keywords <- lapply(m_id, function(id) key[key[,2] %in% id, 1])
> >
> > f.names <- cbind(m, base[match(m_id, base[,3]), 4])
> > f.names <- unlist(lapply(1:nrow(f.names), function(i) {
> > if (is.na(f.names[i, 2])) return(f.names[i, 1])
> > a <- methodsplit(f.names[i, 1])
> > b <- methodsplit(f.names[i, 2])
> >
> > if (a[1] == b[1]) f.names[i, 2] else f.names[i,
> 1]
> > }))
> >
> > hints <- cbind(f.names, base[match(m_id, base[,3]), 5])
> > hints <- hints[order(tolower(hints[,1])),]...