[R] field names as function parameters

2009-10-11 Thread tdm 

Hi,

I am passing a data frame and field name to a function. I've figured out how
I can create the formula based on the passed in field name, but I'm
struggling to create a vector based in that field.

for example if I hard code with the actual field name

Y = df$Target, everything works fine.

but if I use the passed in parameter name, it doesn't give me what I want,

Y = df$mytarget


Here is the function,

# trying to pass field name to a function
logistictest - function(df,mytarget)
{

#library for AUC calculation
library(caTools)

#build logistic model
mytarget - deparse(substitute(mytarget)) 
myformula - paste(mytarget, ~ .)
myformula - deparse(substitute(myformula)) 
logistic_reg - glm(myformula , data=df, family=binomial(link=logit))
print(model build OK)

#score up
scores - predict(logistic_reg, type=response, df)
print(model scored OK)

#calc AUC
Y = df$mytarget

auc - colAUC(scores,Y)
print(auc calculated OK)

}

logistictest(df=trainset,mytarget=Target)


[1] model build OK
[1] model scored OK
Error in as.vector(x, mode) : invalid 'mode' argument

-- 
View this message in context: 
http://www.nabble.com/field-names-as-function-parameters-tp25838606p25838606.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.

Re: [R] field names as function parameters

2009-10-11 Thread baptiste auguie 
Hi,

I think this is a case where you should use the ?[[ extraction
operator rather than $,

d = data.frame(a=1:3)
mytarget = a
d[[mytarget]]


HTH,

baptiste

2009/10/11 tdm ph...@philbrierley.com:

 Hi,

 I am passing a data frame and field name to a function. I've figured out how
 I can create the formula based on the passed in field name, but I'm
 struggling to create a vector based in that field.

 for example if I hard code with the actual field name

 Y = df$Target, everything works fine.

 but if I use the passed in parameter name, it doesn't give me what I want,

 Y = df$mytarget


 Here is the function,

 # trying to pass field name to a function
 logistictest - function(df,mytarget)
 {

 #library for AUC calculation
 library(caTools)

 #build logistic model
 mytarget - deparse(substitute(mytarget))
 myformula - paste(mytarget, ~ .)
 myformula - deparse(substitute(myformula))
 logistic_reg - glm(myformula , data=df, family=binomial(link=logit))
 print(model build OK)

 #score up
 scores - predict(logistic_reg, type=response, df)
 print(model scored OK)

 #calc AUC
 Y = df$mytarget

 auc - colAUC(scores,Y)
 print(auc calculated OK)

 }

 logistictest(df=trainset,mytarget=Target)


 [1] model build OK
 [1] model scored OK
 Error in as.vector(x, mode) : invalid 'mode' argument

 --
 View this message in context: 
 http://www.nabble.com/field-names-as-function-parameters-tp25838606p25838606.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.

Re: [R] field names as function parameters

2009-10-11 Thread tdm 

Thanks, just the clue I needed, worked a treat.


baptiste auguie-5 wrote:
 
 Hi,
 
 I think this is a case where you should use the ?[[ extraction
 operator rather than $,
 
 d = data.frame(a=1:3)
 mytarget = a
 d[[mytarget]]
 
 
 HTH,
 
 baptiste
 
 2009/10/11 tdm ph...@philbrierley.com:

 Hi,

 I am passing a data frame and field name to a function. I've figured out
 how
 I can create the formula based on the passed in field name, but I'm
 struggling to create a vector based in that field.

 for example if I hard code with the actual field name

 Y = df$Target, everything works fine.

 but if I use the passed in parameter name, it doesn't give me what I
 want,

 Y = df$mytarget


 Here is the function,

 # trying to pass field name to a function
 logistictest - function(df,mytarget)
 {

 #library for AUC calculation
 library(caTools)

 #build logistic model
 mytarget - deparse(substitute(mytarget))
 myformula - paste(mytarget, ~ .)
 myformula - deparse(substitute(myformula))
 logistic_reg - glm(myformula , data=df, family=binomial(link=logit))
 print(model build OK)

 #score up
 scores - predict(logistic_reg, type=response, df)
 print(model scored OK)

 #calc AUC
 Y = df$mytarget

 auc - colAUC(scores,Y)
 print(auc calculated OK)

 }

 logistictest(df=trainset,mytarget=Target)


 [1] model build OK
 [1] model scored OK
 Error in as.vector(x, mode) : invalid 'mode' argument

 --
 View this message in context:
 http://www.nabble.com/field-names-as-function-parameters-tp25838606p25838606.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.
 
 

-- 
View this message in context: 
http://www.nabble.com/field-names-as-function-parameters-tp25840951p25841450.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.