A subset of my raw data looks like this: -------------- "Grip" "Technique" "Baseline.integrated" "Task" "Stroke..direction." "Engag" "Disen" "PenDG" "PenUG" "PenDS" "PenUS" "Duration" ------------- "Tripod","Barrel","Integrated",7,"S70",230,510,270,510,781,1011,1011 "Tripod","Barrel","Integrated",7,"S71","na","na","na","na","na","na","na" "Round","NonPrefHand","Baseline",0,"S00","na","na",110,250,380,520,520 "Round","NonPrefHand","Baseline",0,"S01","na","na",220,360,460,620,620 -------------- I computed some values (times) from the raw data --------------- t_p1=PenDG t_c1=PenUG-PenDG t_p2=PenDS-PenUG t_c2=PenUS-PenDS --------------- And I put those times in a data 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] 40.04021 Then I try to create a table of average truecost as a function of levels of a factor. I think this is the same error with tapply and by.> tapply(t_p1,list(Grip,Technique),truecost,na.rm=T)Error in FUN(X[[1L]], ...) : unused argument(s) (na.rm = TRUE)> by(times,list(Grip,Technique),truecost,na.rm=T)Error in FUN(data[x, , drop = FALSE], ...) : unused argument(s) (na.rm = TRUE) Any ideas? Thomas Levine! [[alternative HTML version deleted]]
Error message is self-explanatory: there is an unused parameter 'na.rm=TRUE'. You are calling your function 'truecost' which only has a single parameter 'time' and you are attempting to pass in 'na.rm=TRUE' which it will not accept. You don't need it. On Fri, May 22, 2009 at 12:36 PM, Thomas Levine <thomas.levine@gmail.com>wrote:> A subset of my raw data looks like this: > > -------------- > "Grip" "Technique" "Baseline.integrated" "Task" > "Stroke..direction." "Engag" "Disen" > "PenDG" "PenUG" "PenDS" > "PenUS" "Duration" > ------------- > "Tripod","Barrel","Integrated",7,"S70",230,510,270,510,781,1011,1011 > "Tripod","Barrel","Integrated",7,"S71","na","na","na","na","na","na","na" > "Round","NonPrefHand","Baseline",0,"S00","na","na",110,250,380,520,520 > "Round","NonPrefHand","Baseline",0,"S01","na","na",220,360,460,620,620 > -------------- > > > I computed some values (times) from the raw data > > > --------------- > t_p1=PenDG > t_c1=PenUG-PenDG > t_p2=PenDS-PenUG > t_c2=PenUS-PenDS > --------------- > > > And I put those times in a data 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] 40.04021 > > > Then I try to create a table of average truecost as a function of levels of > a factor. I think this is the same error with tapply and by. > > > > tapply(t_p1,list(Grip,Technique),truecost,na.rm=T) > Error in FUN(X[[1L]], ...) : unused argument(s) (na.rm = TRUE) > > by(times,list(Grip,Technique),truecost,na.rm=T) > Error in FUN(data[x, , drop = FALSE], ...) : > unused argument(s) (na.rm = TRUE) > > > Any ideas? > > > Thomas Levine! > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html> > and provide commented, minimal, self-contained, reproducible code. >-- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem that you are trying to solve? [[alternative HTML version deleted]]
> str(time)function (x, ...)> str(t_p1)num [1:576] 190 180 190 200 210 200 220 190 230 230 ...> str(Baseline.integrated)Factor w/ 2 levels "Baseline","Integrated": 1 1 1 1 1 1 1 1 1 1 ...> str(Technique)Factor w/ 2 levels "Barrel","NonPrefHand": 1 1 1 1 1 1 1 1 1 1 ...> str(Grip)Factor w/ 2 levels "Round","Tripod": 1 1 1 1 1 1 1 1 1 1 ... On Fri, May 22, 2009 at 2:46 PM, jim holtman <jholtman@gmail.com> wrote:> You need to supply str for the original arguments; the error message had a > different set of parameters. > > > On Fri, May 22, 2009 at 2:36 PM, Thomas Levine <thomas.levine@gmail.com>wrote: > >> That produces the following error >> >> > tapply(t_p1,list(Grip,Technique),truecost) >> Error in tapply(time, Baseline.integrated, mean, na.rm = T) : >> arguments must have same length >> >> >> >> >> On Fri, May 22, 2009 at 1:06 PM, jim holtman <jholtman@gmail.com> wrote: >> >>> Error message is self-explanatory: there is an unused parameter >>> 'na.rm=TRUE'. You are calling your function 'truecost' which only has a >>> single parameter 'time' and you are attempting to pass in 'na.rm=TRUE' which >>> it will not accept. You don't need it. >>> >>> On Fri, May 22, 2009 at 12:36 PM, Thomas Levine < >>> thomas.levine@gmail.com> wrote: >>> >>>> A subset of my raw data looks like this: >>>> >>>> -------------- >>>> "Grip" "Technique" "Baseline.integrated" "Task" >>>> "Stroke..direction." "Engag" "Disen" >>>> "PenDG" "PenUG" "PenDS" >>>> "PenUS" "Duration" >>>> ------------- >>>> "Tripod","Barrel","Integrated",7,"S70",230,510,270,510,781,1011,1011 >>>> >>>> "Tripod","Barrel","Integrated",7,"S71","na","na","na","na","na","na","na" >>>> "Round","NonPrefHand","Baseline",0,"S00","na","na",110,250,380,520,520 >>>> "Round","NonPrefHand","Baseline",0,"S01","na","na",220,360,460,620,620 >>>> -------------- >>>> >>>> >>>> I computed some values (times) from the raw data >>>> >>>> >>>> --------------- >>>> t_p1=PenDG >>>> t_c1=PenUG-PenDG >>>> t_p2=PenDS-PenUG >>>> t_c2=PenUS-PenDS >>>> --------------- >>>> >>>> >>>> And I put those times in a data 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] 40.04021 >>>> >>>> >>>> Then I try to create a table of average truecost as a function of levels >>>> of >>>> a factor. I think this is the same error with tapply and by. >>>> >>>> >>>> > tapply(t_p1,list(Grip,Technique),truecost,na.rm=T) >>>> Error in FUN(X[[1L]], ...) : unused argument(s) (na.rm = TRUE) >>>> > by(times,list(Grip,Technique),truecost,na.rm=T) >>>> Error in FUN(data[x, , drop = FALSE], ...) : >>>> unused argument(s) (na.rm = TRUE) >>>> >>>> >>>> Any ideas? >>>> >>>> >>>> Thomas Levine! >>>> >>>> [[alternative HTML version deleted]] >>>> >>>> ______________________________________________ >>>> R-help@r-project.org mailing list >>>> https://stat.ethz.ch/mailman/listinfo/r-help >>>> PLEASE do read the posting guide >>>> http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html> >>>> and provide commented, minimal, self-contained, reproducible code. >>>> >>> >>> >>> >>> -- >>> Jim Holtman >>> Cincinnati, OH >>> +1 513 646 9390 >>> >>> What is the problem that you are trying to solve? >>> >> >> > > > -- > Jim Holtman > Cincinnati, OH > +1 513 646 9390 > > What is the problem that you are trying to solve? >[[alternative HTML version deleted]]
Seemingly Similar Threads
- [RFC PATCH net-next 1/6] virtio: make sure used event never go backwards
- [RFC PATCH net-next 1/6] virtio: make sure used event never go backwards
- [RFC PATCH net-next 1/6] virtio: make sure used event never go backwards
- [RFC PATCH net-next 1/6] virtio: make sure used event never go backwards
- Folder Permissions