Displaying 2 results from an estimated 2 matches for "cascor".
Did you mean:
castor
2006 Jan 12
1
"infinite recursion" in do.call when lme4 loaded only
....grid(Pat=as.factor(1:np),
Q=as.factor(1:nq),
Phase=as.factor(1:nph))
df <- with (grd,
data.frame(Pat=Pat,Q=Q,Phase=Phase,Resp = rnorm(np*nq*nph*nrep)))
score <- function(x) {
data.frame(Pat=x$Pat[1],Phase=x$Phase[1],Q=x$Q[1],score = mean(x$Resp))
}
# about 20 sec
caScore <- by(df,list(Pat=df$Pat,Phase=df$Phase,Q=df$Q),FUN = score )
ca1 = do.call("rbind",caScore)
# Without lme4: 3 seconds
# With lme4: After 60 sec:
#Error: evaluation nested too deeply: infinite recursion /
#options(expressions=)?
-----------------------
platform i386-pc-mingw32
arc...
2006 Jan 12
1
"infinite recursion" in do.call when lme4 loaded only
....grid(Pat=as.factor(1:np),
Q=as.factor(1:nq),
Phase=as.factor(1:nph))
df <- with (grd,
data.frame(Pat=Pat,Q=Q,Phase=Phase,Resp = rnorm(np*nq*nph*nrep)))
score <- function(x) {
data.frame(Pat=x$Pat[1],Phase=x$Phase[1],Q=x$Q[1],score = mean(x$Resp))
}
# about 20 sec
caScore <- by(df,list(Pat=df$Pat,Phase=df$Phase,Q=df$Q),FUN = score )
ca1 = do.call("rbind",caScore)
# Without lme4: 3 seconds
# With lme4: After 60 sec:
#Error: evaluation nested too deeply: infinite recursion /
#options(expressions=)?
-----------------------
platform i386-pc-mingw32
arc...