Displaying 1 result from an estimated 1 matches for "truecost".
2009 May 22
2
Error in FUN with tapply and by
...ta frame called "times". For each of these
times, I want to subtract the average for "Baseline" trials from the average
for "Integrated" trials within the "Grip" and "Technique" factors. Call
these differences the true cost of mode selection.
> truecost <-
function(time){as.numeric(tapply(time,Baseline.integrated,mean,na.rm=T)[2]-tapply(time,Baseline.integrated,mean,na.rm=T)[1])}
To help explain what the truecost function does:
> tapply(t_p1,Baseline.integrated,mean,na.rm=T)
Baseline Integrated
212.8000 252.8402
> truecost(t_p1)
[1...