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 09:26:06 -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/t12583888608srore4byszgf2w.htm/, Retrieved Thu, 06 Oct 2022 12:59:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57341, Retrieved Thu, 06 Oct 2022 12:59:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsPY2224 Aston Univesity Workshop. Artifical data concerning t-test on drug effect
Estimated Impact292
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] [d41d8cd98f00b204e9800998ecf8427e] [Current]
- R       [Aston University Statistical Software] [Morning Sickness ...] [2009-11-16 17:22:16] [74be16979710d4c4e7c6647856088456]
-   P       [Aston University Statistical Software] [Scenario 1] [2009-11-19 12:01:07] [5dc7005d34a73335c134f60a027c81b1]
-   P       [Aston University Statistical Software] [week 7 scenario 1] [2009-11-19 12:24:14] [a2ec18f77143ca7c2255feafca790c81]
-   P       [Aston University Statistical Software] [Workshop 7 Drug t...] [2009-11-19 12:24:58] [74c3e16d305231b554ac00a07222fb5c]
-   P       [Aston University Statistical Software] [Morning sickness ...] [2009-11-19 12:29:46] [7b5e237c5dc223226d9c139a76db490f]
-             [Aston University Statistical Software] [comp7] [2009-11-23 20:38:57] [d5ced5f570beeeb823add0810690c151]
-   P       [Aston University Statistical Software] [Aston 1 - Compend...] [2009-11-19 12:33:01] [805bb075a206a46de48cd5a4e54bab5d]
-   P       [Aston University Statistical Software] [Aston 1 Compendium 7] [2009-11-19 12:32:56] [31938d087c55cf67127a01ef1e8f38ba]
-   P       [Aston University Statistical Software] [] [2009-11-19 12:28:34] [d67ed87d94f8374cf5eb71740c29a070]
-   P       [Aston University Statistical Software] [pregnant women] [2009-11-19 12:34:46] [7d07ebb7f3978280240b500f174a2af2]
-   P       [Aston University Statistical Software] [Drug/no drug boxplot] [2009-11-19 12:47:14] [c92a6f82e2c829eb84d446c49982f3a5]
-   P       [Aston University Statistical Software] [scenario 1] [2009-11-19 12:57:53] [ace3ddd242f59ba51a4e2f7ba8ca9d22]
-   P       [Aston University Statistical Software] [Compendium 7 Morn...] [2009-11-19 13:01:04] [da8ef2b5f272f3481b509cba20833cef]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:14:08] [cefd16489930d37792a2dfe143e1dd64]
-   P       [Aston University Statistical Software] [Compendium 7 Morn...] [2009-11-19 13:21:36] [da8ef2b5f272f3481b509cba20833cef]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:23:52] [21e0dc66e9338653c0fd8541e5a86956]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:22:25] [5767bd6424518d00d47b9a54e25f82fa]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:28:10] [a120050d9c71216a504f7d26958aa6f2]
-    D        [T-Tests] [] [2010-06-02 10:12:14] [74be16979710d4c4e7c6647856088456]
-    D          [T-Tests] [] [2010-09-01 14:26:32] [d2db1c86d0f5afc23d9384801205d08d]
-   P       [Aston University Statistical Software] [scenario1] [2009-11-19 13:22:42] [e50002609a86c8cc3f92b69a15f3a57a]
-   P       [Aston University Statistical Software] [scen1comp7] [2009-11-19 13:20:47] [6754037f2a7547483397efade45eb176]
- R PD        [Aston University Statistical Software] [scen1comp7] [2009-11-20 09:11:07] [6754037f2a7547483397efade45eb176]
-   P       [Aston University Statistical Software] [Scenario 1] [2009-11-19 13:29:04] [cf93fcabe70097db6e8467c3ff511999]
-   P       [Aston University Statistical Software] [Scenario 1 - work...] [2009-11-19 13:30:35] [cb1b5098fbe5e6779d164349741d91ea]
-             [Aston University Statistical Software] [Scenario 1 - comp...] [2009-11-20 09:24:10] [cb1b5098fbe5e6779d164349741d91ea]
-   P       [Aston University Statistical Software] [Stats week7] [2009-11-19 13:34:44] [66f61a2d5ef80b1eafe31e5651ad0889]
-   PD        [Aston University Statistical Software] [L&Canalysisa] [2009-11-19 22:46:22] [66f61a2d5ef80b1eafe31e5651ad0889]
-   P       [Aston University Statistical Software] [Drug v placebo] [2009-11-19 13:33:01] [c92a6f82e2c829eb84d446c49982f3a5]
-   P       [Aston University Statistical Software] [Workshop 7 - t test] [2009-11-19 13:31:34] [d595051388917a71ceadb6354fdcb637]
-   P       [Aston University Statistical Software] [Wk 7 WShop T-Test...] [2009-11-19 13:38:48] [c519646407a489a26f129bdc22b2e203]
-   P       [Aston University Statistical Software] [Scenario1] [2009-11-19 13:38:36] [68b4a0d51ad214b1a79d67393064cb7e]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:39:26] [6a948b41dd90750e8d6215decf7967af]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:39:26] [e9dbed8f63950395c9f0d093d021a3af]
-   P       [Aston University Statistical Software] [Morning Sickness] [2009-11-19 13:41:19] [226e457c23f16abdaf22fe48e6e411fd]
-   P       [Aston University Statistical Software] [] [2009-11-19 13:39:03] [bc03f19b1cbb14de25d671293ac6c773]
-   P       [Aston University Statistical Software] [] [2009-11-19 15:57:39] [13acda3448ed8cf54a30798510df96c6]
- R PD      [Aston University Statistical Software] [scenario 1] [2009-11-19 16:31:49] [19a2c65e68e6122b331d75519d2b8dfb]
-   P       [Aston University Statistical Software] [Workshop 7] [2009-11-19 17:09:45] [c0fd4f9a7f3faddc4844dbb572f0833e]
-   P       [Aston University Statistical Software] [a-081403196] [2009-11-19 18:03:05] [869dc8c90da15910a169a569d8b6a5c9]
-   PD        [Aston University Statistical Software] [a-081403196] [2009-11-29 00:58:48] [869dc8c90da15910a169a569d8b6a5c9]
-    D          [Aston University Statistical Software] [a-081403196] [2009-11-29 01:02:42] [869dc8c90da15910a169a569d8b6a5c9]
-   P       [Aston University Statistical Software] [compendium week 7.1] [2009-11-19 18:10:23] [305912f4b3b721b49db101304fd686ce]
-   P       [Aston University Statistical Software] [Wk7 scenario 1] [2009-11-19 20:24:06] [f0a7b9ce333a507984a56d87311bd9a6]
-   P       [Aston University Statistical Software] [wk7 scen1] [2009-11-19 20:37:21] [f0a7b9ce333a507984a56d87311bd9a6]
-   P       [Aston University Statistical Software] [comp 1] [2009-11-20 10:31:57] [e8bb49267f0b4e611f4778412d0811f2]
-   P       [Aston University Statistical Software] [comp 2] [2009-11-20 10:33:55] [e8bb49267f0b4e611f4778412d0811f2]
-   P       [Aston University Statistical Software] [Placebo Vs Drug i...] [2009-11-20 11:22:36] [7756e15f439c0db38d660c862abbb747]

[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=57341&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=57341&T=0

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

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



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')
}