This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

men=c(-9.3,-8.1,-6.9,-6.9,-6.6,-5.3,-4.7,-4.2,-3.8,0.7,3.2,3.3,4.3,4.4,4.7,4.9,5.2,5.5,5.5,5.7,6.0,7.3,7.8,8.7,8.9)
fivenum(men);

[1] -9.3 -4.7  4.3  5.5  8.9
women=c(-7.0,-6.8,-6.1,-5.8,-5.7,-5.2,-4.7,-4.3,2.9,3.1,3.6,3.6,3.7,4.0,4.2,4.4,4.5,4.8,4.9,5.1,5.1,6.3,6.3,6.5,7.3)
fivenum(women);

[1] -7.0 -4.7  3.7  4.9  7.3

1. The median is slightly higher in men than women who are willing to gamble after touching a crocodile.

1. The overall pattern of the relationship between temperature and ice cream sales is a linear positive association. The relationship is moderately strong.
x=c(25,17,18,19,23,27,29,31,26,16,23,21,15,30,14,28,17,23,29);
y=c(123,96,83,91,134,153,167,184,98,87,113,121,83,133,91,79,111,108,137);
cov(x,y)

[1] 117.2895
cor(x,y)
[1] 0.7090636
1. The data does support the theory that ice cream sales increase as the weather gets warmer. This is because there is a positive association which means as the temperature increases sales will also increase.
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiANCg0KVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiANCg0KYGBge3J9DQptZW49YygtOS4zLC04LjEsLTYuOSwtNi45LC02LjYsLTUuMywtNC43LC00LjIsLTMuOCwwLjcsMy4yLDMuMyw0LjMsNC40LDQuNyw0LjksNS4yLDUuNSw1LjUsNS43LDYuMCw3LjMsNy44LDguNyw4LjkpDQpmaXZlbnVtKG1lbik7DQpgYGANCmBgYHtyfQ0Kd29tZW49YygtNy4wLC02LjgsLTYuMSwtNS44LC01LjcsLTUuMiwtNC43LC00LjMsMi45LDMuMSwzLjYsMy42LDMuNyw0LjAsNC4yLDQuNCw0LjUsNC44LDQuOSw1LjEsNS4xLDYuMyw2LjMsNi41LDcuMykNCmZpdmVudW0od29tZW4pOw0KYGBgDQpgYGB7cn0NCm1lbj1jKC05LjMsLTguMSwtNi45LC02LjksLTYuNiwtNS4zLC00LjcsLTQuMiwtMy44LDAuNywzLjIsMy4zLDQuMyw0LjQsNC43LDQuOSw1LjIsNS41LDUuNSw1LjcsNi4wLDcuMyw3LjgsOC43LDguOSkNCndvbWVuPWMoLTcuMCwtNi44LC02LjEsLTUuOCwtNS43LC01LjIsLTQuNywtNC4zLDIuOSwzLjEsMy42LDMuNiwzLjcsNC4wLDQuMiw0LjQsNC41LDQuOCw0LjksNS4xLDUuMSw2LjMsNi4zLDYuNSw3LjMpOw0KYm94cGxvdChtZW4sd29tZW4pOw0KYm94cGxvdChtZW4sd29tZW4sDQpuYW1lcz1jKCJtZW4iLCJ3b21lbiIpLG1haW49IjFiKU5hZ2lyIik7DQpgYGANCkMpIFRoZSBtZWRpYW4gaXMgc2xpZ2h0bHkgaGlnaGVyIGluIG1lbiB0aGFuIHdvbWVuIHdobyBhcmUgd2lsbGluZyB0byBnYW1ibGUgYWZ0ZXIgdG91Y2hpbmcgYSBjcm9jb2RpbGUuICANCg0KYGBge3J9DQpUZW1wZXJhdHVyZT1jKDI1LDE3LDE4LDE5LDIzLDI3LDI5LDMxLDI2LDE2LDIzLDIxLDE1LDMwLDE0LDI4LDE3LDIzLDI5KTsNCkljZUNyZWFtU2FsZXM9YygxMjMsOTYsODMsOTEsMTM0LDE1MywxNjcsMTg0LDk4LDg3LDExMywxMjEsODMsMTMzLDkxLDc5LDExMSwxMDgsMTM3KTsNCnBsb3QoVGVtcGVyYXR1cmUsIEljZUNyZWFtU2FsZXMscGNoPTE5LCBjb2w9ImJsdWUiLHhsYWI9IlRlbXBlcmF0dXJlIix5bGFiPSJJY2UgQ3JlYW0gU2FsZXMgKCQpIiwgbWFpbj0iMmEpTmFnaXIiKQ0KYGBgDQpiKSBUaGUgb3ZlcmFsbCBwYXR0ZXJuIG9mIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiB0ZW1wZXJhdHVyZSBhbmQgaWNlIGNyZWFtIHNhbGVzIGlzIGEgbGluZWFyIHBvc2l0aXZlIGFzc29jaWF0aW9uLiBUaGUgcmVsYXRpb25zaGlwIGlzIG1vZGVyYXRlbHkgc3Ryb25nLg0KYGBge3J9DQp4PWMoMjUsMTcsMTgsMTksMjMsMjcsMjksMzEsMjYsMTYsMjMsMjEsMTUsMzAsMTQsMjgsMTcsMjMsMjkpOw0KeT1jKDEyMyw5Niw4Myw5MSwxMzQsMTUzLDE2NywxODQsOTgsODcsMTEzLDEyMSw4MywxMzMsOTEsNzksMTExLDEwOCwxMzcpOw0KY292KHgseSkNCmNvcih4LHkpDQpgYGANCmQpIFRoZSBkYXRhIGRvZXMgc3VwcG9ydCB0aGUgdGhlb3J5IHRoYXQgaWNlIGNyZWFtIHNhbGVzIGluY3JlYXNlIGFzIHRoZSB3ZWF0aGVyIGdldHMgd2FybWVyLiBUaGlzIGlzIGJlY2F1c2UgdGhlcmUgaXMgYSBwb3NpdGl2ZSBhc3NvY2lhdGlvbiB3aGljaCBtZWFucyBhcyB0aGUgdGVtcGVyYXR1cmUgaW5jcmVhc2VzIHNhbGVzIHdpbGwgYWxzbyBpbmNyZWFzZS4NCg0K