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
______________________________________________
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.
