Comparando dos muestras. Ejemplo de cómo cálcular la prueba de T cuando se tienen los estadísticos ya calculados para cada muestra

Estadísticos de cada muestra

n1= 15
mean1= 40.8
sd1= 7.8
############
n2= 12
mean2= 45.8
sd2= 9.2

Prueba de T (“a mano”)

t <- (mean1 - mean2) / 
  sqrt(((sd1)^2/n1 ) + ((sd2)^2/n2 ) )
t
[1] -1.50012

P Value (Una cola, izquierda, Ha:mu1 > mu2 )

pt(q=t,df= (n1-1)+(n2-1), lower.tail=FALSE)
[1] 0.9269

P Value (Una cola, derecha, Ha:mu1 < mu2 )

pt(q=sqrt(t^2),df= (n1-1)+(n2-1))
[1] 0.0731

Gráficos

Prueba de una cola (P=0.05, Derecha)

Prueba de una cola (P= 0.05, Izquierda)

Prueba de dos colas (P=0.05)

LS0tDQp0aXRsZTogIiBQcnVlYmEgZGUgVCAnYSBtYW5vJyAiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIyMgQ29tcGFyYW5kbyBkb3MgbXVlc3RyYXMuIEVqZW1wbG8gZGUgY8OzbW8gY8OhbGN1bGFyIGxhIHBydWViYSBkZSBUIGN1YW5kbyBzZSB0aWVuZW4gbG9zIGVzdGFkw61zdGljb3MgeWEgY2FsY3VsYWRvcyBwYXJhIGNhZGEgbXVlc3RyYQ0KDQojIyBFc3RhZMOtc3RpY29zIGRlIGNhZGEgbXVlc3RyYQ0KYGBge3J9DQpuMT0gMTUNCm1lYW4xPSA0MC44DQpzZDE9IDcuOA0KIyMjIyMjIyMjIyMjDQpuMj0gMTINCm1lYW4yPSA0NS44DQpzZDI9IDkuMg0KYGBgICANCg0KIyMjIFBydWViYSBkZSBUICgiYSBtYW5vIikNCmBgYHtyfQ0KdCA8LSAobWVhbjEgLSBtZWFuMikgLyANCiAgc3FydCgoKHNkMSleMi9uMSApICsgKChzZDIpXjIvbjIgKSApDQp0DQpgYGAgIA0KIyMjIFAgVmFsdWUgKFVuYSBjb2xhLCBgaXpxdWllcmRhYCwgX0h+YX5fOmBtdTEgPiBtdTJgICkNCmBgYHtyIGV2YWw9RkFMU0V9DQpwdChxPXQsZGY9IChuMS0xKSsobjItMSksIGxvd2VyLnRhaWw9RkFMU0UpDQpgYGAgIA0KDQpgYGB7ciBlY2hvPUZBTFNFfQ0KaWYgKHQ+MCkgKHJvdW5kKHB0KHE9dCxkZj0gKG4xLTEpKyhuMi0xKSwgbG93ZXIudGFpbD1GQUxTRSksIDQpKSBlbHNlIChyb3VuZChwdChxPXNxcnQodF4yKSxkZj0gKG4xLTEpKyhuMi0xKSksIDQpKQ0KDQpgYGAgIA0KIyMjIFAgVmFsdWUgKFVuYSBjb2xhLCBgZGVyZWNoYWAsIF9IfmF+XzpgbXUxIDwgbXUyYCApICANCmBgYHtyIGV2YWw9RkFMU0V9DQpwdChxPXNxcnQodF4yKSxkZj0gKG4xLTEpKyhuMi0xKSkNCmBgYA0KDQoNCmBgYHtyIGVjaG89RkFMU0V9DQppZiAodDwwKSAocm91bmQocHQocT10LGRmPSAobjEtMSkrKG4yLTEpLCBsb3dlci50YWlsPVRSVUUpLCA0KSkgZWxzZSAocm91bmQocHQocT1zcXJ0KHReMiksZGY9IChuMS0xKSsobjItMSkpLCA0KSkNCg0KYGBgICANCg0KDQojIyMgR3LDoWZpY29zDQoNCiMjIyMgUHJ1ZWJhIGRlIHVuYSBjb2xhICAoYFBgPTAuMDUsIERlcmVjaGEpIA0KYGBge3IgZWNobz1GQUxTRX0NCmdsPSAobjEtMSkgKyAobjItMSkNCm1lYW49MDsgc2Q9MQ0KcDE9IDAuMDUNCnAyPSAxDQoNCg0KIyMjDQpsYj0gcXQocD1wMSwgZGY9Z2wgKTsgdWI9IHF0KHA9IHAyLCBkZj1nbCApIA0KIyMjDQoNCnggPC0gc2VxKC01LDUsbGVuZ3RoPTEwMCkNCmh4IDwtIGR0KHgsIGRmPWdsKQ0KDQpwbG90KHgsIGh4LCB0eXBlPSAibCIsIHhsYWI9InQgdmFsdWVzIiwgeWxhYj0iZGVuc2l0eSIsDQogIG1haW49LCBheGVzPSBUUlVFKQ0KDQppIDwtIHggPj0gbGIgJiB4IDw9IHViDQphYmxpbmUoaD0wKQ0KbGluZXMoeCwgaHgpDQoNCnBvbHlnb24oYyhsYix4W2ldLHViKSwgYygwLGh4W2ldLDApLCBjb2w9ImdyYXkiKQ0KDQoNCmFyZWEgPC0gcHQodWIsIGRmPWdsKSAtIHB0KGxiLCBkZj1nbCkNCnJlc3VsdCA8LSBwYXN0ZSgiUCgiLHJvdW5kKGxiLDMpLCI8IElRIDwiLHJvdW5kKHViLDMpLCIpID0iLA0KICAgc2lnbmlmKGFyZWEsIGRpZ2l0cz0zKSkNCm10ZXh0KHJlc3VsdCwzKQ0KYXhpcygxLCBhdD1zZXEoNDAsIDE2MCwgMjApLCBwb3M9MCkNCg0KYWJsaW5lKHY9dCwgY29sPSAicmVkIiApDQpgYGAgIA0KDQojIyMjIFBydWViYSBkZSB1bmEgY29sYSAoYFBgPSAwLjA1LCBJenF1aWVyZGEpDQpgYGB7ciBlY2hvPUZBTFNFfQ0KZ2w9IChuMS0xKSArIChuMi0xKQ0KbWVhbj0wOyBzZD0xDQpwMT0gMA0KcDI9IDAuOTUNCg0KDQojIyMNCmxiPSBxdChwPXAxLCBkZj1nbCApOyB1Yj0gcXQocD0gcDIsIGRmPWdsICkgDQojIyMNCg0KeCA8LSBzZXEoLTUsNSxsZW5ndGg9MTAwKQ0KaHggPC0gZHQoeCwgZGY9Z2wpDQoNCnBsb3QoeCwgaHgsIHR5cGU9ICJsIiwgeGxhYj0idCB2YWx1ZXMiLCB5bGFiPSJkZW5zaXR5IiwNCiAgbWFpbj0sIGF4ZXM9IFRSVUUpDQoNCmkgPC0geCA+PSBsYiAmIHggPD0gdWINCmFibGluZShoPTApDQpsaW5lcyh4LCBoeCkNCg0KcG9seWdvbihjKGxiLHhbaV0sdWIpLCBjKDAsaHhbaV0sMCksIGNvbD0iZ3JheSIpDQoNCg0KYXJlYSA8LSBwdCh1YiwgZGY9Z2wpIC0gcHQobGIsIGRmPWdsKQ0KcmVzdWx0IDwtIHBhc3RlKCJQKCIscm91bmQobGIsMyksIjwgSVEgPCIscm91bmQodWIsMyksIikgPSIsDQogICBzaWduaWYoYXJlYSwgZGlnaXRzPTMpKQ0KbXRleHQocmVzdWx0LDMpDQpheGlzKDEsIGF0PXNlcSg0MCwgMTYwLCAyMCksIHBvcz0wKQ0KDQphYmxpbmUodj10LCBjb2w9ICJyZWQiICkNCmBgYCAgDQoNCiMjIyMgUHJ1ZWJhIGRlIGRvcyBjb2xhcyAgKGBQYD0wLjA1KQ0KYGBge3IgZWNobz1GQUxTRX0NCmdsPSAobjEtMSkgKyAobjItMSkNCm1lYW49MDsgc2Q9MQ0KcDE9IDAuMDI1DQpwMj0gMC45NzUNCiMjIw0KbGI9IHF0KHA9cDEsIGRmPWdsICk7IHViPSBxdChwPSBwMiwgZGY9Z2wgKSANCiMjIw0KDQp4IDwtIHNlcSgtNSw1LGxlbmd0aD0xMDApDQpoeCA8LSBkdCh4LCBkZj1nbCkNCg0KcGxvdCh4LCBoeCwgdHlwZT0gImwiLCB4bGFiPSJ0IHZhbHVlcyIsIHlsYWI9ImRlbnNpdHkiLA0KICBtYWluPSwgYXhlcz0gVFJVRSkNCg0KaSA8LSB4ID49IGxiICYgeCA8PSB1Yg0KYWJsaW5lKGg9MCkNCmxpbmVzKHgsIGh4KQ0KDQpwb2x5Z29uKGMobGIseFtpXSx1YiksIGMoMCxoeFtpXSwwKSwgY29sPSJncmF5IikNCg0KYXJlYSA8LSBwdCh1YiwgZGY9Z2wpIC0gcHQobGIsIGRmPWdsKQ0KcmVzdWx0IDwtIHBhc3RlKCJQKCIscm91bmQobGIsMyksIjwgSVEgPCIscm91bmQodWIsMyksIikgPSIsDQogICBzaWduaWYoYXJlYSwgZGlnaXRzPTMpKQ0KbXRleHQocmVzdWx0LDMpDQpheGlzKDEsIGF0PXNlcSg0MCwgMTYwLCAyMCksIHBvcz0wKQ0KDQphYmxpbmUodj10LCBjb2w9ICJyZWQiICkNCmBgYCAgDQo=