FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_onesampletests_mean.wasp
Title produced by softwareOne Sample Tests about the Mean
Date of computationWed, 29 Dec 2010 23:39:33 +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/Dec/30/t1293666031rulyiwul6d6kw3p.htm/, Retrieved Fri, 03 May 2024 04:14:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=117202, Retrieved Fri, 03 May 2024 04:14:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact203

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [One Sample Tests about the Mean] [] [2010-12-29 23:39:33] [393d554610c677f923bed472882d0fdb] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
175
190
150
90
90
120
90
100
100
100
90
97
100
100
90
110
150
110
120
110
100
150
150
90
95
150
80
90
91
95
78
103
67
83
113
110
110
110
175
110
150
105
225
225
155
155
80
165
110
105
84
165
90
125
180
92
105
145
90
150
130
145
88
88
88
130
100
130
100
140
52
68
63
70
110
90
115
110
150
165
165
220
145
95
125
150
170
145
145
110
100
105
105
100
90
72
75
72
90
60
145
200
82
190
92
85
150
215
190
69
97
100
65
65
65
132
65
67
97
92
92
94
97
61
97
120
70
67
70
70
88
88
84
92
110
90
110
100
170
84
79
105
75
80
80
80
83
150
150
150
150
210
150
140
140
180
145
75
84
135
90
75
76
75
49
86
69
67
167
170
142
65
65
130
215
88
85
88
88
92
66
139
153
153
198
137
152
140
140
140
98
78
88
112
158
148
129
72
88
85
81
88
86
129
89
97
85
83
80
72
86
86
79
149
140
88
193
72
75
68
68
97
53
67
67
60
67
53
60
75
65
90
75
74
65
68
68
68
52
110
100
97
77
67
120
86
107
130
138
70
208
198
72
139
85
85
88
85
105
110
90
110
160
180
115
85
180
81
90
75
78
70
88
88
87
71
87
80
133
160
96
64
70
170
95
95
95
95
150
150
215
150
150
70
63
63
70
84
84
105
150
105
150
105
105
100
95
100
100
150
78
175
225
170
175
100
230
180
85
115
90
90
105
175
88
110
69
83
58
95
115
110
115
93
67
67
67
88
96
95
75
75
75
75
70
65
65
88
75
60
96
95
95
52
95
90
95
116
108
122
58
62
97
88
62
46
76
71
67
78
74
60
70
71
78
48
74
71
46
54
112
112
98
102
125
76
48
52
70
76
48
71

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 3 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=117202&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=117202&T=0

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

As an alternative you can also use a QR Code:  
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 time3 seconds
R Server'George Udny Yule' @ 72.249.76.132






One Sample t-test
H0100
Alternativetwo.sided
CI0.95
Sample Mean104.469387755102
T-Test2.29895287793867
DF391
P-Value0.0220342135880367

\begin{tabular}{lllllllll}
\hline
One Sample t-test \tabularnewline
H0 & 100 \tabularnewline
Alternative & two.sided \tabularnewline
CI & 0.95 \tabularnewline
Sample Mean & 104.469387755102 \tabularnewline
T-Test & 2.29895287793867 \tabularnewline
DF & 391 \tabularnewline
P-Value & 0.0220342135880367 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=117202&T=1

[TABLE]
[ROW][C]One Sample t-test[/C][/ROW]
[ROW][C]H0[/C][C]100[/C][/ROW]
[ROW][C]Alternative[/C][C]two.sided[/C][/ROW]
[ROW][C]CI[/C][C]0.95[/C][/ROW]
[ROW][C]Sample Mean[/C][C]104.469387755102[/C][/ROW]
[ROW][C]T-Test[/C][C]2.29895287793867[/C][/ROW]
[ROW][C]DF[/C][C]391[/C][/ROW]
[ROW][C]P-Value[/C][C]0.0220342135880367[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=117202&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

One Sample t-test
H0100
Alternativetwo.sided
CI0.95
Sample Mean104.469387755102
T-Test2.29895287793867
DF391
P-Value0.0220342135880367


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = two.sided ; par2 = 0.95 ; par3 = 100 ;
Parameters (R input):
par1 = two.sided ; par2 = 0.95 ; par3 = 100 ;
R code (references can be found in the software module):
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
(tt <- t.test(x,mu=par3,alternative=par1,conf.level=par2))
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'One Sample t-test',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'H0',header=TRUE)
a<-table.element(a,tt$null.value)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Alternative',header=TRUE)
a<-table.element(a,tt$alternative)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'CI',header=TRUE)
a<-table.element(a,par2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample Mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'T-Test',header=TRUE)
a<-table.element(a,tt$statistic)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'DF',header=TRUE)
a<-table.element(a,tt$parameter)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'P-Value',header=TRUE)
a<-table.element(a,tt$p.value)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')