Free Statistics

of Irreproducible Research!

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 computationThu, 18 Dec 2014 16:11:28 +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/2014/Dec/18/t1418919104vqwepz87cgjk9ax.htm/, Retrieved Fri, 17 May 2024 13:28:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271110, Retrieved Fri, 17 May 2024 13:28:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact65
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [One Sample Tests about the Mean] [] [2014-12-18 16:11:28] [feba87b71495ef91d18b6c2716812399] [Current]
Feedback Forum

Post a new message
Dataseries X:
46.0103
47.2762
48.7416
57.2474
48.5508
52.3204
57.7244
46.2415
66.7589
45.663
55.1422
54.0582
56.755
59.4615
53.0157
55.8398
55.5253
55.9292
50.6171
58.764
59.1769
57.1291
59.8202
53.4479
56.2873
55.1302
56.4179
51.9748
55.4863
59.7713
53.6045
52.5642
57.7218
56.4254
57.1891
47.8893
48.7382
53.6967
50.8428
56.1378
47.3478
49.4691
57.1465
60.6822
52.7239
50.5788
50.4681
54.4613
51.641
51.2286
57.5534
48.9253
52.4118
61.0455
55.5074
56.1166
58.2033
51.3119
44.941
54.6426
55.3856
53.8266
52.8402
53.8801
49.9287
48.712
56.9993
52.5052
53.0255
52.5301
54.468
52.1475
47.6021
44.8687
51.9856
54.383
48.9545
54.6473
51.5833
57.4746
53.0259
53.7795
57.0955
54.0606
49.8597
54.1311
53.3733
54.6747
52.5868
54.4433
49.0547
50.9452
58.3716
52.5673
49.054
56.9231
54.7207
52.5299
47.6977
53.412
55.2626
58.5687
47.8438
58.5668
51.4814
51.332
44.1542
54.733
49.8231
48.1393
54.9947
46.8999
47.3116
49.3573
55.9075
57.6239
49.236
47.9471
51.0088
53.8803
56.4595
50.471
41.6773
58.9314
52.4539
56.066
54.1699
56.3505
57.8747
54.7785
52.9057
55.4505
54.6337
55.5319
51.4607
51.594
54.3394
58.6249
56.2526
48.6667
41.3592
57.3217
54.3946
59.787
56.7086
45.6664
47.6006
51.098
49.3842
50.8981
59.1798
52.7154
53.5155
51.6277
52.9085
51.0385
56.5293
56.5397
51.9865
53.5255
54.8714
56.3882
50.4054
51.5554
43.3133
52.9323
57.7399
54.8381
49.9122
55.2419
63.0105
51.249
54.9303
52.1963
53.0755
57.2305
49.8326
48.9018
53.8827
47.4564
47.1799
45.2156
56.4016
56.6583
51.6684
52.9069
52.584
54.4376
52.1649
56.0293
51.3428
56.5501
48.0245
52.401
43.6702
47.3614
57.282
49.3129
49.0587
53.8267
36.5217
46.2038
53.811
56.4073
56.45
54.5178
56.2986
43.6637
46.9715
50.2644
54.9733
59.688
55.6512
52.3673
57.6659
44.55
50.4291
59.6866
55.5857
54.223
59.237
60.0824
53.151
53.585
57.1696
48.5399
52.9502
56.0253
61.2179
54.7061
50.9727
51.7253
61.8135
58.6976
54.8131
51.9548
51.1797
55.5327
34.6953
56.812
56.5764
61.7636
53.484
47.7091
48.1141
58.8341
53.4226
49.6443
54.4766
54.8219
58.1616
53.5262
55.2212
51.1761
53.2677
54.8555
58.3382
60.3642
51.8477
48.6336
45.4594
54.9362
46.6126
53.484
53.2957
48.6313
45.4804
59.3188
56.4204
57.4386
55.8582
61.9254
51.6854
56.9379
53.9808
50.3844
54.0585
46.918




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net

\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 & 0 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271110&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271110&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271110&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 time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







One Sample t-test
H050
Alternativegreater
CI0.95
Sample Mean53.1474841726619
T-Test11.8507409415609
DF277
P-Value8.78968459806432e-27

\begin{tabular}{lllllllll}
\hline
One Sample t-test \tabularnewline
H0 & 50 \tabularnewline
Alternative & greater \tabularnewline
CI & 0.95 \tabularnewline
Sample Mean & 53.1474841726619 \tabularnewline
T-Test & 11.8507409415609 \tabularnewline
DF & 277 \tabularnewline
P-Value & 8.78968459806432e-27 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271110&T=1

[TABLE]
[ROW][C]One Sample t-test[/C][/ROW]
[ROW][C]H0[/C][C]50[/C][/ROW]
[ROW][C]Alternative[/C][C]greater[/C][/ROW]
[ROW][C]CI[/C][C]0.95[/C][/ROW]
[ROW][C]Sample Mean[/C][C]53.1474841726619[/C][/ROW]
[ROW][C]T-Test[/C][C]11.8507409415609[/C][/ROW]
[ROW][C]DF[/C][C]277[/C][/ROW]
[ROW][C]P-Value[/C][C]8.78968459806432e-27[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271110&T=1

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

As an alternative you can also use a QR Code:  

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

One Sample t-test
H050
Alternativegreater
CI0.95
Sample Mean53.1474841726619
T-Test11.8507409415609
DF277
P-Value8.78968459806432e-27



Parameters (Session):
par1 = greater ; par2 = 0.95 ; par3 = 50 ;
Parameters (R input):
par1 = greater ; par2 = 0.95 ; par3 = 50 ;
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')