On Wed, Aug 4, 2010 at 12:29 AM, Suphajak Ngamlak <supha...@phatrasecurities.com> wrote: > Dear all, > > I would like to do sample statistics, e.g. mean, median from very large > dataset. This is part of commands I use routinely with several dataset > so I would like to make it into function. The simplified examples are > > Test<-data.frame(A=c('a','b','c','a','b','c'),B=c(1,2,3,4,5,6)) > > #Create function (This one work) > > GetAvg<-function(Input,Bygroup){ > AVG<-fn$sqldf("select A, avg(B) as Average, median(B) as Median > from Test > group by $Bygroup") > return(AVG) > } > > Result<-GetAvg(Test,'A') > > #Create function (This one does not work) > > GetAvg<-function(Input,Bygroup){ > AVG<-fn$sqldf("select A, avg(B) as Average, median(B) as Median > from $Input > group by $Bygroup") > return(AVG) > } > > Result<-GetAvg(Test,'A')
That should be GetAvg('Test', 'A') with quotes around Test or if you want to be able to specify the data unquoted then insert this line at the top of your function: Input <- deparse(substitute(Input)) ______________________________________________ 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.