Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleIan.Hollidayrwasp_Tests to Compare Two Means.wasp
Title produced by softwareT-Tests
Date of computationTue, 09 Nov 2010 11:12:43 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Nov/09/t1289301111m2lf1yksoyzb9m2.htm/, Retrieved Thu, 06 Oct 2022 13:12:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=92921, Retrieved Thu, 06 Oct 2022 13:12:13 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact392
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Aston University Statistical Software] [Morning Sickness ...] [2009-11-16 16:26:06] [74be16979710d4c4e7c6647856088456]
- R     [Aston University Statistical Software] [Morning Sickness ...] [2009-11-16 17:22:16] [74be16979710d4c4e7c6647856088456]
-   P       [T-Tests] [Morning Sickness ...] [2010-11-09 11:12:43] [72e70820461d0e77268e06309fbe41c7] [Current]
-             [T-Tests] [] [2010-11-09 19:44:22] [5f3db3d90d126a95d54183950148004f]
-             [T-Tests] [scenario 1] [2010-11-11 12:38:34] [a88d4f8d31dfea292b0820825eeec6b4]
-             [T-Tests] [] [2010-11-11 12:35:57] [b934562a0aeb1ba3c345b4d88f685c0c]
-   P         [T-Tests] [Week 6 comp. case 1] [2010-11-11 12:42:10] [dce9abd8694db4553090ea486e4bc791]
-             [T-Tests] [1] [2010-11-11 12:44:52] [b827aeabc9657b59090cdbe9205e45c8]
-             [T-Tests] [] [2010-11-11 12:46:36] [b48f5f730c5d512b3990977e77ceb182]
-   P         [T-Tests] [compedium 6] [2010-11-11 12:58:28] [2736edfd04acceff7ef750b1b52381c2]
-   P           [T-Tests] [compedium 6] [2010-11-11 13:23:18] [2736edfd04acceff7ef750b1b52381c2]
-   P         [T-Tests] [] [2010-11-11 12:58:01] [74be16979710d4c4e7c6647856088456]
-   P         [T-Tests] [Drug trials of mo...] [2010-11-11 13:12:56] [b3d3d2a4e3813ea6c4a04808e1fc1271]
-             [T-Tests] [morning sickness ...] [2010-11-11 13:29:45] [dce042b1b27996875f80ca8f180ea409]
-             [T-Tests] [compendium 6] [2010-11-11 13:33:13] [1c0689626c7c7484f03683a6bd9607af]
-             [T-Tests] [Pregancy morning ...] [2010-11-11 13:31:07] [bbe2ba08a2e1004d231616e60eeea4d7]
-             [T-Tests] [morning sickness ...] [2010-11-11 13:34:51] [eb8597fb4247e541f248d83c31d21a58]
-             [T-Tests] [] [2010-11-11 13:43:58] [74be16979710d4c4e7c6647856088456]
-             [T-Tests] [] [2010-11-11 13:46:56] [ead37655c849d69b7e121dfe16ee54a5]
-   P         [T-Tests] [Week 6 Scenario 1] [2010-11-11 17:16:27] [dddf47df3158f3415096d83fcbb31970]
-             [T-Tests] [W6 C Scen 1] [2010-11-12 11:46:05] [56deace5afbbe22352c3841e29b79134]
-             [T-Tests] [] [2010-11-12 12:00:41] [b48f5f730c5d512b3990977e77ceb182]
-             [T-Tests] [scenario 1] [2010-11-12 11:36:58] [4ff27dd7c583dd02fd8841b940d8c8a4]
-   P         [T-Tests] [My Compendium Week 6] [2010-11-12 12:04:22] [abe244594d47c647168999d9ae7a699b]
-   P         [T-Tests] [My Compendium Week 6] [2010-11-12 12:07:26] [abe244594d47c647168999d9ae7a699b]
-             [T-Tests] [Week 6 compendium...] [2010-11-12 14:20:50] [88bba52b01540967ecde38774018061d]
-               [T-Tests] [] [2010-11-19 09:58:23] [88bba52b01540967ecde38774018061d]
- R  D          [T-Tests] [t test] [2011-05-29 17:38:02] [88bba52b01540967ecde38774018061d]
- RMPD            [Correlation] [correlation] [2011-05-29 18:08:41] [88bba52b01540967ecde38774018061d]
- R                 [Correlation] [spearman] [2011-05-29 18:11:55] [88bba52b01540967ecde38774018061d]
-                     [Correlation] [spearman] [2011-05-29 18:15:43] [88bba52b01540967ecde38774018061d]
-   PD            [T-Tests] [compare female] [2011-05-30 17:56:07] [88bba52b01540967ecde38774018061d]
-             [T-Tests] [Morning Sickness ...] [2010-11-12 14:45:56] [a213e16b9aee3f49d2cb9e790c69a2a0]
-             [T-Tests] [week6 scenario 1] [2010-11-12 16:23:27] [15d95c9569f1ac5858317a9687e82457]
-               [T-Tests] [] [2010-11-16 15:28:03] [19600d31edce75009224fbecf9086a65]
-   P         [T-Tests] [scenario1] [2010-11-12 17:21:38] [4093a2c62080069188d221a6234554ac]
-   P         [T-Tests] [scenario1attempt2] [2010-11-12 18:45:26] [4093a2c62080069188d221a6234554ac]
-   P           [T-Tests] [scenario1attempt3] [2010-11-14 18:29:58] [4093a2c62080069188d221a6234554ac]
-             [T-Tests] [Independent T tes...] [2010-11-12 19:27:00] [0aad37657179c4ab6867a73eb1b2180e]
-             [T-Tests] [New Drug - scenar...] [2010-11-12 21:26:44] [b3b4b2549173c036f02fb7e9febb1d26]
-   P         [T-Tests] [new drug] [2010-11-12 22:45:08] [b3b4b2549173c036f02fb7e9febb1d26]
-             [T-Tests] [compendium 6] [2010-11-12 22:49:40] [1a8e34d31778cea87d7e7a201d42c24e]
-               [T-Tests] [week 6 drug placebo] [2010-11-16 13:40:38] [6394f795723b5675987dce90464253e0]
-   PD          [T-Tests] [graph 1] [2011-01-21 23:38:13] [1a8e34d31778cea87d7e7a201d42c24e]
-   PD          [T-Tests] [graph 2] [2011-01-21 23:43:26] [1a8e34d31778cea87d7e7a201d42c24e]
-             [T-Tests] [scenario 1] [2010-11-13 14:52:17] [0c548e6e127736a7951d896609232775]
-             [T-Tests] [T-Test Pregnancy] [2010-11-13 18:04:22] [05f6bac91e3f566f17ccf54f910765b8]
-               [T-Tests] [Pregnancy Boxplot] [2010-11-13 19:32:01] [05f6bac91e3f566f17ccf54f910765b8]
-   P         [T-Tests] [] [2010-11-13 18:16:27] [74be16979710d4c4e7c6647856088456]
-             [T-Tests] [scenario1] [2010-11-13 18:11:48] [61f503b2177bafdabe2572a488e9c39b]
-   P         [T-Tests] [] [2010-11-13 20:46:12] [5f3db3d90d126a95d54183950148004f]

[Truncated]
Feedback Forum

Post a new message
Dataseries X:
68.95	70.18
70.84	69.94
70.26	69.61
70.93	71.39
70.71	72.54
70.73	70.48
70.20	70.48
69.76	71.68
71.46	70.59
70.31	71.61
69.24	70.56
70.94	72.74
68.98	72.63
71.16	71.58
69.96	70.14
69.66	71.22
70.20	70.72
69.99	71.37
71.97	69.73
68.29	71.29
67.67	73.19
70.07	70.64
70.89	69.30
69.66	71.76
71.12	70.28
70.60	69.77
70.09	70.37
70.55	71.70
71.63	70.85
69.30	71.07




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=92921&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=92921&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=92921&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







T-Test
Mean170.204
Mean270.98033
T Statistic-3.08443
P-value0.00312
Lower Confidence Limit-1.28016
Upper Confidence Limit-0.27251

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 70.204 \tabularnewline
Mean2 & 70.98033 \tabularnewline
T Statistic & -3.08443 \tabularnewline
P-value & 0.00312 \tabularnewline
Lower Confidence Limit & -1.28016 \tabularnewline
Upper Confidence Limit & -0.27251 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=92921&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]70.204[/C][/ROW]
[ROW][C]Mean2[/C][C]70.98033[/C][/ROW]
[ROW][C]T Statistic[/C][C]-3.08443[/C][/ROW]
[ROW][C]P-value[/C][C]0.00312[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-1.28016[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]-0.27251[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=92921&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=92921&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

T-Test
Mean170.204
Mean270.98033
T Statistic-3.08443
P-value0.00312
Lower Confidence Limit-1.28016
Upper Confidence Limit-0.27251







Standard Deviations
Variable 10.96628
Variable 20.98326

\begin{tabular}{lllllllll}
\hline
Standard Deviations \tabularnewline
Variable 1 & 0.96628 \tabularnewline
Variable 2 & 0.98326 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=92921&T=2

[TABLE]
[ROW][C]Standard Deviations[/C][/ROW]
[ROW][C]Variable 1[/C][C]0.96628[/C][/ROW]
[ROW][C]Variable 2[/C][C]0.98326[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=92921&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=92921&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Standard Deviations
Variable 10.96628
Variable 20.98326



Parameters (Session):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = unpaired ; par6 = 0.0 ; par7 = .95 ; par8 = TRUE ;
Parameters (R input):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = unpaired ; par6 = 0.0 ; par7 = .95 ; par8 = TRUE ;
R code (references can be found in the software module):
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
par4 <- as.character(par4)
par5 <- as.character(par5)
par6 <- as.numeric(par6)
par7 <- as.numeric(par7)
par8 <- as.logical(par8)
if ( par5 == 'unpaired') paired <- FALSE else paired <- TRUE
x <- t(y)
if(par8){
bitmap(file='test1.png')
(r<-boxplot(x ,xlab=xlab,ylab=ylab,main=main,notch=FALSE,col=2))
dev.off()
}
load(file='createtable')
if( par4 == 'Wilcoxon-Mann_Whitney'){
a<-table.start()
a <- table.row.start(a)
a <- table.element(a,'Wilcoxon Test',3,TRUE)
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'',1,TRUE)
a <- table.element(a,'Statistic',1,TRUE)
a <- table.element(a,'P-value',1,TRUE)
a <- table.row.end(a)
W <- wilcox.test(x[,par2],x[,par3],alternative=par1, paired = paired)
a<-table.row.start(a)
a<-table.element(a,'Wilcoxon Test',1,TRUE)
a<-table.element(a,W$statistic[[1]])
a<-table.element(a,round(W$p.value, digits=5) )
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
}
if( par4 == 'T-Test')
{
T <- t.test(x[,par2],x[,par3],alternative=par1, paired=paired, mu=par6, conf.level=par7)
a<-table.start()
a <- table.row.start(a)
a <- table.element(a,'T-Test',3,TRUE)
a <- table.row.end(a)
if(paired){
a <- table.row.start(a)
a <- table.element(a,'Difference: Mean1 - Mean2',1,TRUE)
a<-table.element(a,round(T$estimate, digits=5) )
a <- table.row.end(a)
}
if(!paired){
a <- table.row.start(a)
a <- table.element(a,'Mean1',1,TRUE)
a<-table.element(a,round(T$estimate[1], digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Mean2',1,TRUE)
a<-table.element(a,round(T$estimate[2], digits=5) )
a <- table.row.end(a)
}
a <- table.row.start(a)
a <- table.element(a,'T Statistic',1,TRUE)
a<-table.element(a,round(T$statistic, digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'P-value',1,TRUE)
a<-table.element(a,round(T$p.value, digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Lower Confidence Limit',1,TRUE)
a<-table.element(a,round(T$conf.int[1], digits=5) )
a <- table.row.end(a)
a<-table.row.start(a)
a <- table.element(a,'Upper Confidence Limit',1,TRUE)
a<-table.element(a,round(T$conf.int[2], digits=5) )
a <- table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
}
a<-table.start()
a <- table.row.start(a)
a <- table.element(a,'Standard Deviations',3,TRUE)
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Variable 1',1,TRUE)
a<-table.element(a,round(sd(x[,par2]), digits=5) )
a <- table.row.end(a)
a <- table.row.start(a)
a <- table.element(a,'Variable 2',1,TRUE)
a<-table.element(a,round(sd(x[,par3]), digits=5) )
a <- table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')