The AirQuality dataset (see Blackboard Assignment folder)includes daily air quality measurements in New York from May to September 1973, where:

• Ozone = Mean ozone in parts per billion from 1300 to 1500 hours at Roosevelt Island
• Solar.R = Solar radiation in Langleys in the frequency band 4000--7700 Angstroms from 0800 to 1200 hours at Central Park
• Wind = Average wind speed in miles per hour at 0700 and 1000 hours at LaGuardia Airport
• Temp = Maximum daily temperature in degrees Fahrenheit at La Guardia Airport
• Month = month of the year
• Day = day of the month
• BadQuality = classification of poor air quality if the mean ozone is greater than 50 ppb (my classification)

Provide the code for fitting your model in R

Write the equation for your model in the form y=mx+b, filling in the names of your variables and the maximum likelihood estimates for your parameters determined from fitting your model in R.

What is the adjusted R squared value for your model? (enter your answer with 2 decimal places, rounding up at 0.5, so 0.185 should be entered as 0.19)

AIR QUALITY

Ozone	Solar.R	Wind	Temp	Month	Day	BadQuality
41	190	7.4	67	5	1	0
36	118	8	72	5	2	0
12	149	12.6	74	5	3	0
18	313	11.5	62	5	4	0
28	184.8018018	14.9	66	5	6	0
23	299	8.6	65	5	7	0
19	99	13.8	59	5	8	0
8	19	20.1	61	5	9	0
7	184.8018018	6.9	74	5	11	0
16	256	9.7	69	5	12	0
11	290	9.2	66	5	13	0
14	274	10.9	68	5	14	0
18	65	13.2	58	5	15	0
14	334	11.5	64	5	16	0
34	307	12	66	5	17	0
6	78	18.4	57	5	18	0
30	322	11.5	68	5	19	0
11	44	9.7	62	5	20	0
1	8	9.7	59	5	21	0
11	320	16.6	73	5	22	0
4	25	9.7	61	5	23	0
32	92	12	61	5	24	0
23	13	12	67	5	28	0
45	252	14.9	81	5	29	0
115	223	5.7	79	5	30	1
37	279	7.4	76	5	31	0
29	127	9.7	82	6	7	0
71	291	13.8	90	6	9	1
39	323	11.5	87	6	10	0
23	148	8	82	6	13	0
21	191	14.9	77	6	16	0
37	284	20.7	72	6	17	0
20	37	9.2	65	6	18	0
12	120	11.5	73	6	19	0
13	137	10.3	76	6	20	0
135	269	4.1	84	7	1	1
49	248	9.2	85	7	2	0
32	236	9.2	81	7	3	0
64	175	4.6	83	7	5	1
40	314	10.9	83	7	6	0
77	276	5.1	88	7	7	1
97	267	6.3	92	7	8	1
97	272	5.7	92	7	9	1
85	175	7.4	89	7	10	1
10	264	14.3	73	7	12	0
27	175	14.9	81	7	13	0
7	48	14.3	80	7	15	0
48	260	6.9	81	7	16	0
35	274	10.3	82	7	17	0
61	285	6.3	84	7	18	1
79	187	5.1	87	7	19	1
63	220	11.5	85	7	20	1
16	7	6.9	74	7	21	0
80	294	8.6	86	7	24	1
108	223	8	85	7	25	1
20	81	8.6	82	7	26	0
52	82	12	86	7	27	1
82	213	7.4	88	7	28	1
50	275	7.4	86	7	29	0
64	253	7.4	83	7	30	1
59	254	9.2	81	7	31	1
39	83	6.9	81	8	1	0
9	24	13.8	81	8	2	0
16	77	7.4	82	8	3	0
78	184.8018018	6.9	86	8	4	1
35	184.8018018	7.4	85	8	5	0
66	184.8018018	4.6	87	8	6	1
122	255	4	89	8	7	1
89	229	10.3	90	8	8	1
110	207	8	90	8	9	1
44	192	11.5	86	8	12	0
28	273	11.5	82	8	13	0
65	157	9.7	80	8	14	1
22	71	10.3	77	8	16	0
59	51	6.3	79	8	17	1
23	115	7.4	76	8	18	0
31	244	10.9	78	8	19	0
44	190	10.3	78	8	20	0
21	259	15.5	77	8	21	0
9	36	14.3	72	8	22	0
45	212	9.7	79	8	24	0
168	238	3.4	81	8	25	1
73	215	8	86	8	26	1
76	203	9.7	97	8	28	1
118	225	2.3	94	8	29	1
84	237	6.3	96	8	30	1
85	188	6.3	94	8	31	1
96	167	6.9	91	9	1	1
78	197	5.1	92	9	2	1
73	183	2.8	93	9	3	1
91	189	4.6	93	9	4	1
47	95	7.4	87	9	5	0
32	92	15.5	84	9	6	0
20	252	10.9	80	9	7	0
23	220	10.3	78	9	8	0
21	230	10.9	75	9	9	0
24	259	9.7	73	9	10	0
44	236	14.9	81	9	11	0
21	259	15.5	76	9	12	0
28	238	6.3	77	9	13	0
9	24	10.9	71	9	14	0
13	112	11.5	71	9	15	0
46	237	6.9	78	9	16	0
18	224	13.8	67	9	17	0
13	27	10.3	76	9	18	0
24	238	10.3	68	9	19	0
16	201	8	82	9	20	0
13	238	12.6	64	9	21	0
23	14	9.2	71	9	22	0
36	139	10.3	81	9	23	0
7	49	10.3	69	9	24	0
14	20	16.6	63	9	25	0
30	193	6.9	70	9	26	0
14	191	14.3	75	9	28	0
18	131	8	76	9	29	0
20	223	11.5	68	9	30	0