Displaying 1 result from an estimated 1 matches for "8c0200".
Did you mean:
8c000
2003 Jun 14
2
A sapply() funny.
The sapply function is refusing to return a result for what seem to
me to be mysterious reasons. Here is a toy example:
set.seed(111)
X <- list(x=runif(20),y=runif(20))
rvec <- seq(0.01,0.15,length=42)
foo <- function(x,X,cc) {
mean((X$x)^x + (X$y)^cc)
}
bar <- function(x,a,b){a+b*x}
try.b <- sapply(rvec,bar,a=1,b=2) # This runs without a problem and