**Please work this problem out on RStudio**

10-1. Youve just joined the Patriot Hedge Fund as an analyst. Your fund is considering shorting a corporate bond ETF that concentrates on speculative long-term corporate bonds. You randomly select 20 bonds with risk characteristics very similar to the bonds ETF portfolio and examine their historical performance. In particular, the data identify how long the bond has been active (in years) and whether the bond defaulted (no default = 0; default = 1). See the Prob 10-1 default data.csv file.

You decide that a Bernoulli distribution is a reasonable first choice as a data generating process that could have produced the binary response data. Perform a logistic regression to analyze the data; report your findings.

10-2. The senior partner in Patriot Hedge Fund was so impressed with your analysis of the bond default data in Prob. 10-1, that she asked you to take on larger task. You are to analyze 2000 records (see the Prob 10-2 data.csv file) describing risk data of small portfolios. The y variable represents the number of defaults (i.e., counts) out of m bonds (i.e., trials) with two covariates, x1 and x2, representing the proportions of time the portfolio devoted to managing the portfolio (x1) and the proportion of time the portfolio managers assistants supported their managers.

DATA

Prob 10.1

y	x
0	1.024733
0	2.696719
0	3.626263
0	4.948643
0	6.024718
0	6.254113
0	6.526594
0	7.108674
1	9.215436
0	9.683853
0	9.85961
1	10.90103
1	11.35428
1	13.24533
0	13.38556
1	14.65962
1	15.61379
1	16.1935
1	18.62843
1	18.71313

Prob 10.2

y	x
1	1
2	2.7
3	3.6
2	4.9
4	6
8	6.3
1	6.5
4	7.1
5	9.2
7	9.7
3	9.9
6	10.9
9	11.4
4	13.2
6	13.4
7	14.7
13	15.6
14	16.2
10	18.6
16	18.7

Thanks!