-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathrankallTesting.R
68 lines (46 loc) · 1.67 KB
/
rankallTesting.R
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
#setwd("C:/Users/evp9/Desktop/Coursera/RProgramming/ProgrammingAssignment3")
source("rankall.R");
check <- rankall("BB", "Heart Attack");
check <- rankall("Georgia", "Heart Attack");
check <- rankall("LA", "Heart Atta");
check <- rankall("LA", "heart attack", "middle")
check <- rankall("MA", "heart failure", -9)
check <- rankall("sd", "pneumonia", 4.5)
check <- rankall("ky", "pneumonia", 6587)
rm(checking)
rm(check)
as.integer(4.5)
rankall("heart aack", "best")
rankall("heart attack", 100)
rankall("heart attack", "best")
head(rankall("heart attack", 20), 10)
tail(rankall("pneumonia", "worst"),3)
tail(rankall("heart failure"),10)
rankFilter <- rank(outcomeData[,11])
checking <- outcomeData[rankFilter, ]
check <- rankall("pneumonia", 4)
check <- rankall("heart attack", 4)
check <- rankall("heart failure", 4)
check <- rankall("tx", "heart failure", 4)
check <- rankall("heart attack", "best")
check <- rankall("heart attack", "worst")
check <- rankall("heart attack", "worst")
check <- rankall("LA", "Heart Attack");
check <- rankall("GA", "heart attack");
check <- rankall("Ky", "PneUmoNiA");
check <- rankall("TX", "Heart Attack");
check <- rankall("TX", "heart failure");
check <- rankall("MD", "heart attack");
check <- rankall("MD", "pneumonia")
check <- rankall("AL", "pneumonia")
check <- rankall("MA", "pneumonia")
names(check)
min(as.numeric(check[,23]));
sl <- as.factor(outcomeData$State);
stateAbbrev <- levels(sl);
for(abbrev in stateAbbrev) {
rankall(abbrev, "heart attack", "worst");
rankall(abbrev, "heart failure", "worst");
rankall(abbrev, "pneumonia", "worst");
}
hold <- check