[R] Writing R-scripts

[Cem Girit]

Hello,

	This is my first attempt to write a script in R. The program below
is intended to do some parametric tests on group data. There are subroutines
for each type of test. The call to the "parametric.tests", routine sets the
argument "testtype" for the test to be used. How can I transfer the
calculated values (in "result" below) in each routine to the calling
parametric.tests routine?  

Cem

----------------


## testtype : 1: Duncan
##                     2: Dunnett
## resp:  response variable, must be numeric and vector
## group: group id for resp, numeric or character
## alpha: CL 0.05 or 0.01
## vehicle: Control group name for Dunnett

parametric.tests<-function(testtype, resp, group, vehicle, alpha)
{
if (testtype==1){
 
## resp:  response variable, must be numeric and vector
## group: group id for resp, numeric or character
## alpha: CL 0.05 or 0.01

 duncan.test <- function (resp, group, alpha) {

.........

result <- data.frame(label=label, estimate=Estimate, alpha=alpha,
lower=Lower, upper=Upper, p.value=pval, significance=sig)
return(result)
}
}

else if (testtype==2){


dunnett.test <- function(resp, group, vehicle, alpha)
{

.....
 
 result <- data.frame(label=label, estimate=Estimate, alpha=alpha,
lower=Lower, upper=Upper, p.value=pval, significance=sig)
 return(result)
}
}
}

Cem