Use RStudio as a calculator to do the "by-hand" calculations (means to show the steps as if you were solving by hand) to test the claim that the proportion of low birthweight babies is higher for mothers that smoked (use smoked - did not smoke) at the 1% significance level. Show your work in the R chunk. Assume large sample conditions are met.

Data set: (1 = smoker 0 = non-smoker)

BirthWt	Smoker
4.55	0
4.32	0
4.1	0
4.07	0
3.94	0
3.93	0
3.77	0
3.65	0
3.63	0
3.42	0
3.35	0
3.27	0
3.23	0
3.2	0
3.15	0
3.11	0
3.03	0
2.92	0
2.9	0
2.65	0
3.64	1
3.14	1
2.78	1
2.51	1
2.37	1
2.05	1
1.92	1
4.57	1
3.59	1
3.32	1
3	1
3.32	1
2.74	1
3.87	1
3.86	1
3.55	1
3.53	1
3.41	1
3.18	1
3.19	1
2.66	1
2.75	1