RProgramming/Week2Assignment1History.R at master · sgwood63/RProgramming · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
?read.table
?mean
?list.files
list.files("specdata", "*.csv")
mean(c(1,2,3,4,5,6,7))
r001 <- read.csv("specdata/001.csv")
View(r001)
View(r001)
nrows(r001)
nrow(r001)
readings <- r001$sulfate[!is.na(r001$sulfate)]
mean(readings)
sum(readings)
length(readings)
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
source("Week2Assignment.R")
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
pollutantmean("specdata", "sulfate", 1:5)
pollutantmean("specdata", "sulfate", 1:5)
source("Week2Assignment.R")
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
source("Week2Assignment.R")
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
?paste
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:5)
pollutantmean("specdata", "sulfate", 1:1)
pollutantmean("specdata", "sulfate")
pollutantmean("specdata", "nitrate")
source("Week2Assignment.R")
pollutantmean("specdata", "nitrate")
source("Week2Assignment.R")
pollutantmean("specdata", "nitrate")
pollutantmean("specdata", "sulfate")
source("Week2Assignment.R")
pollutantmean("specdata", "sulfate", 1:10)
pollutantmean("specdata", "nitrate", 70:72)
pollutantmean("specdata", "nitrate", 23)
savehistory("~/GitHub/RProgramming/Week2Assignment1History.R")