Dear ExpRts,
I would like to perform a function with two arguments
over the rows of two matrices. There are a couple of
*applys (including mApply in Hmisc) but I haven't found
out how to do it straightforward.
Applying to row indices works, but looks like a poor hack
to me:
sens <- function(test, gold) {
if (any(gold==1)) {
sum(test[which(gold==1)]/sum(which(gold==1)))
} else NA
}
numtest <- 6
numsubj <- 20
newtest <- array(rbinom(numtest*numsubj, 1, .5),
dim=c(numsubj, numtest))
goldstandard <- array(rbinom(numtest*numsubj, 1, .5),
dim=c(numsubj, numtest))
t(sapply(1:nrow(newtest), function(i) {
sens(newtest[i,], goldstandard[i,])}))
Is there any shortcut to sapply over the indices?
Best wishes
Johannes
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
