These have to be done with R program.

1) A company has just received a shipment of electronic parts. Generally the number of faulty parts is 18% but it can be as low as 12% and as high as 24%. They randomly select 24 parts and find 1 that are faulty. What is the Bayesian estimate of the percentage of faulty parts?

2) A store wants to find out how much money people spend there. They randomly collect some sales receipts and find:

140.4

183.5

19.5

279.6

36.3

159.2

164.5

241.4

125

530.4

260.4

245.3

12.6

439.1

299.2

256

325.6

253.3

252.5

225.3

46.2

302.8

361.8

52.6

77

58.9

255

249.9

278

17.6

427

61.6

383.9

272

318.7

88.8

299.4

408.8

73.1

528

230.5

175.5

80.9

544.2

450

226.8

126.4

35.8

288.1

82.7

103.1

126.6

422.6

161

440.9

198.1

126.3

374.3

351.3

156.8

A 99% confidence interval for the true mean amount of money is given by? ( , )