
HI,

I guess I did sth wrong with the optional argument in the program. but I don't know how should I make it.


in my main program:

source("getelasticity_overPB.r")

crossprice<-getelasticity(mydata,mydatao,"nest")$cross_p
is same with
crossprice<-getelasticity(mydata,mydatao)$cross_p
I don't know why????

In ""getelasticity_overPB.r":
I have the function:

getelasticity=function(mydata,mydatao,method=NULL){

.....
source("runmodel.r")
rr<-getrange(dataw,mydatao,method=NULL)
#I have tested that rr<-getrange(dataw,mydatao) is different with rr<-getrange(dataw,mydatao,"nest"): which is what I want.

rr

}


how should I make it work???


Thanks for your help.

Kind regards,
Tammy









 		 	   		  
	[[alternative HTML version deleted]]

