From 9cc8484e023ffd73e46d8a7c7bd1592edea6b70e Mon Sep 17 00:00:00 2001 From: atulhandoo Date: Mon, 19 Jan 2015 16:20:17 +0530 Subject: [PATCH] submitscript1.R Atul Handoo --- week2/programming1.R | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/week2/programming1.R b/week2/programming1.R index 9a9dbaa..d216170 100644 --- a/week2/programming1.R +++ b/week2/programming1.R @@ -1,3 +1,11 @@ -source("http://d396qusza40orc.cloudfront.net/rprog%2Fscripts%2Fsubmitscript1.R") +getmean<-function(id=1:332,pollutant,directory=getwd()){ + getfilename <- sprintf("%03d.csv", id) + getdir <- file.path(directory, getfilename) + result <- read.csv(getdir) +mn <- mean(result[[pollutant]], na.rm = TRUE) +result +mn + } + submit()