-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathTemp_Analysis.Rmd
101 lines (75 loc) · 2.04 KB
/
Temp_Analysis.Rmd
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
```{r}
data <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/tempdata2.txt")
plot(data, type="p", main="Scatter Plot", xlab = "Average Weekly Temperature / °C", ylab="Number of cases")
```
```{r}
library("broom")
dengue1 <- lm(data[,1]~data[,2])
summary(dengue1)
tidy(dengue1)
glance(dengue1)
par(mfrow=c(2,2))
plot(dengue1)
```
```{r}
data2 <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/tempdata3.txt")
plot(data2, type="p", main="Scatter Plot", xlab = "Average Weekly Temperature / °C", ylab="Number of cases")
```
```{r}
library("broom")
dengue2 <- lm(data2[,1]~data2[,2])
summary(dengue2)
tidy(dengue2)
glance(dengue2)
par(mfrow=c(2,2))
plot(dengue2)
```
```{r}
data3 <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/rainfalldata.txt")
plot(data3, type="p", main="Scatter Plot", xlab = "Average rainfall / mm", ylab="Number of cases")
```
```{r}
library("broom")
dengue3 <- lm(data3[,1]~data3[,2])
summary(dengue3)
tidy(dengue3)
glance(dengue3)
par(mfrow=c(2,2))
plot(dengue3)
```
```{r}
data4 <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/rainfalldata2.txt")
plot(data4, type="p", main="Scatter Plot", xlab = "Average rainfall / mm", ylab="Number of cases")
```
```{r}
library("broom")
dengue4 <- lm(data4[,1]~data4[,2])
summary(dengue4)
tidy(dengue4)
glance(dengue4)
par(mfrow=c(2,2))
```
```{r}
data5 <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/raintempdata.txt")
library("broom")
dengue5 <- lm(data5[,3]~data5[,1]+data5[,2])
summary(dengue5)
tidy(dengue5)
glance(dengue5)
par(mfrow=c(2,2))
```
```{r}
data6 <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/chisq1.txt")
data6
chisq.test(data6)
```
```{r}
data7 <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/chisq2.txt")
data7
chisq.test(data7)
```
```{r}
data8 <- read.table("C:/Users/Asus/Desktop/Justin's Folder/Uni/DataFest/chisq3.txt")
data8
chisq.test(data8)
```