Hi r-help-boun...@r-project.org napsal dne 02.02.2010 22:16:06:
> > 'fraid not :-(( > > tapply( data, groups, weighted.mean, weights) tapply(seq(along=lll), rrr, function(i, x, w) weighted.mean(x[i], w[i]), x=lll, w=ttt) If you want to subset more than one thing, subset the index vector. The above help I obtained from Prof.Ripley several years ago so (untested) tapply( seq(along=data), groups, function (i, x, w) weighted.mean(x[i], w[i]), x=data, w=weights) I believe it shall still work. Regards Petr > > won't work because the *entire* weights vector is passed as the 2nd arg to > weighted.means. But weighted.mean needs 'weights' to be split in the same > way as 'data' -- the first and 2nd args need to correspond. > > > Jorge Ivan Velez wrote: > > > > Hi sjaffem, > > > > You were almost there: > > > > tapply( yourdata, groups, weighted.mean, weights) > > > > See ?tapply for more information. > > > > HTH, > > Jorge > > > > > > > > -- > View this message in context: http://n4.nabble.com/tapply-for-function-taking- > of-1-argument-tp1460392p1460419.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > 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 > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ 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 and provide commented, minimal, self-contained, reproducible code.