Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software ModuleIan.Hollidayrwasp_Tests to Compare Two Means.wasp
Title produced by softwareAston University Statistical Software
Date of computationMon, 16 Nov 2009 10:19:28 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/16/t1258392053wwy8lde46se9nxp.htm/, Retrieved Fri, 02 Dec 2022 10:35:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57345, Retrieved Fri, 02 Dec 2022 10:35:57 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsAston university PY2224 artificial data example on pilot training
Estimated Impact535
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Aston University Statistical Software] [Pilot Training Study] [2009-11-16 16:36:04] [74be16979710d4c4e7c6647856088456]
- R       [Aston University Statistical Software] [Pilot Training Study] [2009-11-16 17:19:28] [d41d8cd98f00b204e9800998ecf8427e] [Current]
-           [Aston University Statistical Software] [Week 7 workshop p...] [2009-11-19 13:10:47] [74c3e16d305231b554ac00a07222fb5c]
-   P       [Aston University Statistical Software] [Scenario 2] [2009-11-19 13:34:16] [cf93fcabe70097db6e8467c3ff511999]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:36:26] [5767bd6424518d00d47b9a54e25f82fa]
-   P       [Aston University Statistical Software] [Pilot Training - ...] [2009-11-19 13:38:20] [226e457c23f16abdaf22fe48e6e411fd]
-   P       [Aston University Statistical Software] [Scenario 2 - work...] [2009-11-19 13:39:46] [cb1b5098fbe5e6779d164349741d91ea]
-             [Aston University Statistical Software] [Scenario 2 - comp...] [2009-11-20 09:26:49] [cb1b5098fbe5e6779d164349741d91ea]
-   P       [Aston University Statistical Software] [StatsW7W7] [2009-11-19 13:43:31] [66f61a2d5ef80b1eafe31e5651ad0889]
-   P       [Aston University Statistical Software] [scenario2] [2009-11-19 13:43:35] [e50002609a86c8cc3f92b69a15f3a57a]
-   P       [Aston University Statistical Software] [Scen2comp7] [2009-11-19 13:43:35] [6754037f2a7547483397efade45eb176]
-           [Aston University Statistical Software] [] [2009-11-19 13:44:35] [cefd16489930d37792a2dfe143e1dd64]
-   P       [Aston University Statistical Software] [Scenario2] [2009-11-19 13:47:37] [68b4a0d51ad214b1a79d67393064cb7e]
-   P       [Aston University Statistical Software] [scenario 2] [2009-11-19 13:48:59] [21e0dc66e9338653c0fd8541e5a86956]
-   P       [Aston University Statistical Software] [standard v new me...] [2009-11-19 13:50:48] [c92a6f82e2c829eb84d446c49982f3a5]
-           [Aston University Statistical Software] [Compendium 7 Pilots] [2009-11-19 16:36:42] [da8ef2b5f272f3481b509cba20833cef]
-   P       [Aston University Statistical Software] [Compendium 7 Pilo...] [2009-11-19 17:03:41] [da8ef2b5f272f3481b509cba20833cef]
-           [Aston University Statistical Software] [] [2009-11-19 17:06:07] [13acda3448ed8cf54a30798510df96c6]
-   P       [Aston University Statistical Software] [] [2009-11-19 17:07:18] [13acda3448ed8cf54a30798510df96c6]
-   P       [Aston University Statistical Software] [week 7 scanario 2] [2009-11-19 17:43:29] [a2ec18f77143ca7c2255feafca790c81]
-   P       [Aston University Statistical Software] [Compendium week 7.2] [2009-11-19 18:14:37] [305912f4b3b721b49db101304fd686ce]
-   P       [Aston University Statistical Software] [] [2009-11-19 18:20:23] [a120050d9c71216a504f7d26958aa6f2]
-   P       [Aston University Statistical Software] [Aston 1 - Compend...] [2009-11-19 18:55:40] [805bb075a206a46de48cd5a4e54bab5d]
-   P       [Aston University Statistical Software] [a-081403196] [2009-11-19 20:34:01] [869dc8c90da15910a169a569d8b6a5c9]
-   P       [Aston University Statistical Software] [wk7 scen 2] [2009-11-19 23:23:04] [f0a7b9ce333a507984a56d87311bd9a6]
-   P       [Aston University Statistical Software] [Pilot training test] [2009-11-20 10:12:45] [7b5e237c5dc223226d9c139a76db490f]
-             [Aston University Statistical Software] [comp7pilot] [2009-11-23 20:52:31] [d5ced5f570beeeb823add0810690c151]
-   P       [Aston University Statistical Software] [comp 3] [2009-11-20 10:36:56] [e8bb49267f0b4e611f4778412d0811f2]
-           [Aston University Statistical Software] [comp 4] [2009-11-20 10:37:58] [e8bb49267f0b4e611f4778412d0811f2]
-   P       [Aston University Statistical Software] [Pilot Training Sc...] [2009-11-20 11:35:11] [7756e15f439c0db38d660c862abbb747]
-   P       [Aston University Statistical Software] [Scenario 2] [2009-11-20 17:32:27] [c7d0e78e2fa8da0e0b2bee0011c20ac0]
-   P       [Aston University Statistical Software] [week 7 scanario 2] [2009-11-20 18:34:34] [a2ec18f77143ca7c2255feafca790c81]
-           [Aston University Statistical Software] [week 7] [2009-11-20 21:23:13] [106fd92ebdfc37d50078b47c695098c5]
- R PD      [Aston University Statistical Software] [scenario 2] [2009-11-20 23:35:12] [19a2c65e68e6122b331d75519d2b8dfb]
-   P       [Aston University Statistical Software] [Miss] [2009-11-21 15:43:06] [5f1089851b4a8c80374f11242163d001]
-   P       [Aston University Statistical Software] [Pilot Training Task] [2009-11-21 17:14:15] [9ec8625bcd2de623b0f5cf28f1a68bfc]
-           [Aston University Statistical Software] [Pilot Study] [2009-11-21 17:24:48] [9ec8625bcd2de623b0f5cf28f1a68bfc]
-           [Aston University Statistical Software] [scenario 2] [2009-11-21 17:42:46] [885328d98a95a442af53d0763bccf325]
-   P       [Aston University Statistical Software] [Scenario 2] [2009-11-21 19:30:52] [86e2607fe3e679f5e9134bea06e96cc2]
-   P       [Aston University Statistical Software] [workshop] [2009-11-21 19:41:38] [7ee8584ae92dbbc2a823887b8397aaa8]
- R PD      [Aston University Statistical Software] [compendium 7] [2009-11-21 20:43:08] [0dff2a868db4b5bcbf64703b84410784]
-   P       [Aston University Statistical Software] [] [2009-11-21 23:05:28] [152c647ef1b3fcda6f0c96fe997a4323]
- R PD      [Aston University Statistical Software] [] [2009-11-22 14:04:19] [bc03f19b1cbb14de25d671293ac6c773]
-   P       [Aston University Statistical Software] [Scenario 2] [2009-11-22 15:04:07] [012a64ac316c94a67eaef3285dac2cf7]
-   P       [Aston University Statistical Software] [Scenario 2] [2009-11-22 15:33:32] [012a64ac316c94a67eaef3285dac2cf7]
-   P       [Aston University Statistical Software] [Scenario 2] [2009-11-22 16:56:48] [74be16979710d4c4e7c6647856088456]
-   P       [Aston University Statistical Software] [scenario 2] [2009-11-22 18:42:54] [5dc7005d34a73335c134f60a027c81b1]
-             [Aston University Statistical Software] [pilots test] [2009-11-23 16:50:51] [7d07ebb7f3978280240b500f174a2af2]
-           [Aston University Statistical Software] [scenario two] [2009-11-22 20:29:26] [bcdd3a0c82f5258468053a42cfd4486b]
-           [Aston University Statistical Software] [senario 2 ] [2009-11-22 20:29:08] [ca384074e13d8ac77eea5bf691c887ff]

[Truncated]
Feedback Forum

Post a new message
Dataseries X:
41.81	46.12
40.25	50.90
50.37	47.32
43.12	47.05
40.46	49.55
42.89	48.33
54.29	44.49
56.13	51.64
51.76	46.55
42.92	54.79
45.58	47.51
47.37	50.83
48.27	48.41
47.02	53.83
52.23	52.95
64.02	56.88
52.36	48.50
53.97	53.29
60.45	54.06
47.76	56.66
47.44	48.88
48.35	44.46
49.21	49.63
52.12	49.12
44.39	56.88
48.89	46.89
54.04	55.97
40.31	50.42
50.51	52.67
52.33	51.28
44.52	55.89
55.59	54.55
54.27	48.80
49.18	52.39
40.75	56.80
45.36	46.69
43.54	44.01
48.82	50.51
54.05	56.01
57.47	61.45




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57345&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]2 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=57345&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57345&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







T-Test
Mean149.10425
Mean251.074
T Statistic-1.76752
P-value0.08143
Lower Confidence Limit-4.19175
Upper Confidence Limit0.25225

\begin{tabular}{lllllllll}
\hline
T-Test \tabularnewline
Mean1 & 49.10425 \tabularnewline
Mean2 & 51.074 \tabularnewline
T Statistic & -1.76752 \tabularnewline
P-value & 0.08143 \tabularnewline
Lower Confidence Limit & -4.19175 \tabularnewline
Upper Confidence Limit & 0.25225 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57345&T=1

[TABLE]
[ROW][C]T-Test[/C][/ROW]
[ROW][C]Mean1[/C][C]49.10425[/C][/ROW]
[ROW][C]Mean2[/C][C]51.074[/C][/ROW]
[ROW][C]T Statistic[/C][C]-1.76752[/C][/ROW]
[ROW][C]P-value[/C][C]0.08143[/C][/ROW]
[ROW][C]Lower Confidence Limit[/C][C]-4.19175[/C][/ROW]
[ROW][C]Upper Confidence Limit[/C][C]0.25225[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=57345&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57345&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
Mean149.10425
Mean251.074
T Statistic-1.76752
P-value0.08143
Lower Confidence Limit-4.19175
Upper Confidence Limit0.25225







Standard Deviations
Variable 15.70493
Variable 24.1389

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57345&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 15.70493
Variable 24.1389



Parameters (Session):
par1 = two.sided ; par2 = 1 ; par3 = 2 ; par4 = T-Test ; par5 = paired ; 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')