values <- c(5,10,1) source("ex.5.R") r.mean(values,type="A") # a=5.34 r.mean(values,type="G") # a=3.68 r.mean(values,type="H") # a=2.31