我对这个资料集有点印象,不知道是不是John Hopkins在coursera上面的课程
先说我的想法,我觉得这件事没有变成function的必要性,不过这是作业
好像是要测试写function的概念,我不确定这是不是你要的
Pollutant_mean <- function(data, column, selectedindex) {
return (mean(data[selectedindex, column]))
}
建议你可以google一下"Google R Style"
把程式码写的干净一点会比较容易看一点