-
Notifications
You must be signed in to change notification settings - Fork 0
/
bravedata.R
122 lines (71 loc) · 2.19 KB
/
bravedata.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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
library(ggplot2)
library(sciplot)
library(mosaic)
library(tableone)
library(survival)
library(car)
library(gridExtra)
# Grouped Bar Plot
counts <- table(mtcars$vs, mtcars$gear)
barplot(counts, main="Car Distribution by Gears and VS",
xlab="Number of Gears", col=c("darkblue","red"),
legend = rownames(counts), beside=TRUE)
brave=read.csv("BRAVE2.cSV")
brave
count(brave)
dmatrix <- matrix(c(25,1,0,6),ncol=2,byrow=TRUE,
dimnames = list(c("BRAVE Score < 5", "BRAVE Score ???5"),
c("Easy Intubation Group", "Difficult Intubation Group")))
brave$Absence.of.Upper.Incisors
count(brave$Absence.of.Upper.Incisors)
grid.table(dmatrix)
fisher.test(dmatrix)
brave=read.csv("brave.csv")
brave$
CCUData = subset(brave, Area=="CCU")
CCUData$
CCUData$Total.Score
brave$BMI..40
brave$Total.Score
mean(CCUData$Total.Score)
mean(brave$Total.Score)
brave$
difficult= subset(brave, Grade >="3")
difficult
easy= subset(brave, Grade < "3")
easy
difficult$Total.Score
easy$Total.Score
mean(difficult$Total.Score)
mean(easy$Total.Score)
median(difficult$Total.Score)
b1=edit(brave)
count(difficult$Total.Score >="4")
count(easy)
(count(easy$Total.Score <"4")
(count(difficult$Total.Score >="4")/count(difficult))
t.test(difficult$Total.Score, easy$Total.Score)
count(CCUData)
count(difficult)
count(easy)
count(easy$Grade1)/count(CCUData)
count(easy$Grade.2)
easy$Total.Score
count(difficult$Grade1)/count(CCUData)
count(difficult$Grade1)
easy
t.test(count(difficult$Grade1)/count(CCUData),count(easy$Grade1)/count(CCUData))
barplot(dmatrix, ylim=c(0,30),col=c("red","blue"), beside=TRUE, col="RED")
mmatrix <- matrix(c(6,1,0,6),ncol=2,byrow=TRUE)
grid.table(mmatrix)
mmatrix <- matrix(c(25,1,1,6),ncol=2,byrow=TRUE,
dimnames = list(c("BRAVE Score < 5", "BRAVE Score ???5"),
c("Easy Intubation Group", "Difficult Intubation Group")))
grid.table(mmatrix)
fisher.test(mmatrix)
count(difficult$Grade.4)
count(difficult$Disease.associated.w..difficult.airway)
count(CCUData$Disease.associated.w..difficult.airway)
count(difficult$Thyro.mental.distance)
easy$Mouth.Opening
easy$Absence.of.upper.incisors