-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathSW3.R
More file actions
68 lines (36 loc) · 968 Bytes
/
SW3.R
File metadata and controls
68 lines (36 loc) · 968 Bytes
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
######
#NO.1#
######
data<-read.csv("C:\\Users\\RM A-225\\Documents\\Midterm_Rep\\Seatwork Midterm\\midetrmseatwork_data.csv")
getValu<-function(disdata,row,col){
disdata[row,col]
}
getValu(data,50,"Ozone")
######
#NO.2#
######
data<-read.csv("C:\\Users\\RM A-225\\Documents\\Midterm_Rep\\Seatwork Midterm\\midetrmseatwork_data.csv")
totaNA<-function(disdata,col){
sum(is.na(disdata[,col]))
}
totaNA(data,"Ozone")
######
#NO.3#
######
data<-read.csv("C:\\Users\\RM A-225\\Documents\\Midterm_Rep\\Seatwork Midterm\\midetrmseatwork_data.csv")
#remove(datanew)
meanColSelRow<-function(disdata,min,max,col){
datanew<-disdata[min:max,col]
mean(datanew,na.rm=TRUE)
}
meanColSelRow(data,80,80,"Ozone")
# _/\/\/\/\/\/\/\/\_
# _/ \_
# \_ _/
# \_ --------- _/
# \ / \/
# | o o |
# | |
# | ᴥ |
# \________/
# | |