mystats<-function(x,parametric=TRUE,print=TRUE){
if(parametric){center<-mean(x);spread<-sd(x)}
else {center<-median(x);spread<-mad(x)}
if(print&parametric){cat("Mean=",center,"\n","SD=",spread,"\n")
} else if (print&!parametric){cat("Median=",center,"\n","MAD=",spread,"\n")
} result<-list(center=center,spread=spread)
return(result)
}


结果显示错误: 找不到对象'result'