?with
e.g. with(mydata,aaa(v1))
-- Bert
Bert Gunter
"Data is not information. Information is not knowledge. And knowledge
is certainly not wisdom."
-- Clifford Stoll
On Tue, Jun 23, 2015 at 2:39 PM, Steven Yen <sye...@gmail.com> wrote:
> Dear Members
> I have a data frame as generated below. I like to be able to call a
> function both with a vector and a vector (mydata$v1) in that data frame
> (v1). The first call works, but the second does not. Can someone help me
> with the second call? Thanks!!
>
> ---
> mydata<-data.frame(matrix(1:20,ncol=2))
> colnames(mydata) <-c("v1","v2")
> summary(mydata)
>
> aaa<-function(data,w=w){
> if(is.vector(w)){
> out<-mean(w)
> } else {
> out<-mean(data[wt])
> }
> return(out)
> }
>
> aaa(mydata,mydata$v1)
> aaa(mydata,"v1") # want this call to work
>
> ---
> Printout with error message
>
>> mydata<-data.frame(matrix(1:20,ncol=2))
>> colnames(mydata) <-c("v1","v2")
>> summary(mydata)
>
> v1 v2
> Min. : 1.00 Min. :11.00
> 1st Qu.: 3.25 1st Qu.:13.25
> Median : 5.50 Median :15.50
> Mean : 5.50 Mean :15.50
> 3rd Qu.: 7.75 3rd Qu.:17.75
> Max. :10.00 Max. :20.00
>>
>>
>> aaa<-function(data,w=w){
>
> + if(is.vector(w)){
> + out<-mean(w)
> + } else {
> + out<-mean(data[wt])
> + }
> + return(out)
> + }
>>
>> aaa(mydata,mydata$v1)
>
> [1] 5.5
>>
>> aaa(mydata,"v1")
>
> [1] NA
> Warning message:
> In mean.default(w) : argument is not numeric or logical: returning NA
>>
>>
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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 -- To UNSUBSCRIBE and more, see
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.
