Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_hypothesismeanu.wasp
Title produced by softwareTesting Mean with unknown Variance - Critical Value
Date of computationSun, 14 Dec 2014 13:25:29 +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/14/t1418563637hf8jkrscbrbixpb.htm/, Retrieved Thu, 31 Oct 2024 23:43:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267562, Retrieved Thu, 31 Oct 2024 23:43:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact99
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Testing Mean with unknown Variance - Critical Value] [] [2014-12-14 13:25:29] [0a6fc2c777821367d2239c664b701a36] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.294153
2.97156
-2.71955
-2.10608
5.15598
3.88145
3.48012
-0.793748
0.0474647
0.949459
1.70415
3.53959
-3.16424
2.70588
2.45478
0.885167
0.432262
1.36526
-1.255
2.42932
2.88737
-2.42299
-0.36997
-1.32201
1.79733
-6.83795
1.13673
0.968342
1.29799
-2.62899
0.532419
0.742768
2.12812
-0.0241935
0.256096
0.854528
-1.36766
0.889595
1.90098
-2.04375
-0.553176
2.57853
0.103225
-0.921825
0.567044
-2.36129
-0.183641
0.333117
3.66465
-1.59683
0.909003
0.806532
-0.386175
-1.39188
-1.72474
1.63465
1.91825
-0.283804
-3.07451
-1.19565
-2.36197
-1.51284
-3.52005
1.12206
1.48021
-5.05159
-1.57071
-2.46861
1.56108
1.43552
0.719528
3.42149
0.566379
-0.363746
-1.9214
-0.056789
3.01548
0.632589
1.37487
-2.02638
0.115316
-0.491874
1.71652
0.792612
-0.0500028
1.06084
-0.257791
0.293489
-3.39489
3.46282
0.104144
0.834079
0.760705
-0.886211
0.991821
-0.812128
-0.861605
2.03306
0.0326958
1.75233
-0.919433
0.872158
-3.38395
1.95822
-2.34112
1.01075
2.0363
-2.8444
0.975645
1.16927
-2.19003
-2.24943
1.93964
3.96052
0.344235
1.01153
0.283773
-1.06596
0.296354
-0.483775
0.441724
0.121994
-1.00658
0.382647
-1.80252
0.786913
1.54651
4.15924
1.47515
-1.67088
-1.41748
-0.355202
2.53319
0.754977
2.30513
1.73636
0.713535
-0.826256
0.873435
-0.698291
0.318378
2.25138
-0.706501
0.692002
1.48385
1.44925
-2.39905
-2.72706
-2.40806
1.89067
0.355387
0.489124
-2.45246
-2.4997
1.47025
0.104144
0.770858
4.15924
-2.73299
0.0487413
0.520571
0.817289
0.750211
4.29504
-2.03717
2.04186
-0.19388
-0.864039
-3.7685
-3.03779
0.446489
1.59975
-5.15257
1.75479
2.51998
-2.48453
-3.35533
0.512109
1.30535
-2.29359
-0.352145
-1.80944
0.0351127
-1.20099
2.02659
1.20875
0.216629
0.686974
0.498628
0.817199
-1.94897
-1.28106
2.27819
-1.65853
1.7838
-2.26586
2.1398
0.426097
-3.24974
-0.945592
-3.29269
1.12158
2.78591
0.297647
0.379211
1.07392
-0.692765
3.21317
-0.0115483
1.49078
-2.81386
1.25588
-1.34621
-3.96611
-1.36908
1.58447
1.86706
-0.45464
-2.05585
1.21455
-3.09837
2.11414
-2.31201
0.0218416
-0.877228
1.63328
4.97042
-1.91696
-1.51227
-2.50048
0.0158494
-3.08591
-0.165203
0.240808
0.874019
-1.99099
0.755342
-0.0764699
-4.61544
-2.70354
-2.92081
-2.85065
0.241454
-0.409056
1.2673
0.219823
0.100763
5.08859
-0.195174
0.358255
2.02625
1.07606
-1.31709
-0.952895
0.0362316
-0.868792
-2.06858
-2.59497
2.19119
-4.78671
0.0887831
1.2742
-2.92786
-0.0466467




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267562&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267562&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267562&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Hypothesis Test about the Mean - Confidence Interval
Sample size264
Sample standard deviation1.99421395596962
Confidence0.95
Null hypothesis0
Sample Mean4.54545454548631e-08
2-sided Confidence Interval[ -0.241668991977005 , 0.241669082886096 ]
Left-sided Confidence Interval[ -0.202595327881257 , +inf ]
Right-sided Confidence Interval[ -inf, 0.202595418790348 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 264 \tabularnewline
Sample standard deviation & 1.99421395596962 \tabularnewline
Confidence & 0.95 \tabularnewline
Null hypothesis & 0 \tabularnewline
Sample Mean & 4.54545454548631e-08 \tabularnewline
2-sided Confidence Interval & [ -0.241668991977005 , 0.241669082886096 ] \tabularnewline
Left-sided Confidence Interval & [ -0.202595327881257 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  0.202595418790348 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267562&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]264[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]1.99421395596962[/C][/ROW]
[ROW][C]Confidence[/C][C]0.95[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]0[/C][/ROW]
[ROW][C]Sample Mean[/C][C]4.54545454548631e-08[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ -0.241668991977005 , 0.241669082886096 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ -0.202595327881257 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  0.202595418790348 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267562&T=1

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

As an alternative you can also use a QR Code:  

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

Hypothesis Test about the Mean - Confidence Interval
Sample size264
Sample standard deviation1.99421395596962
Confidence0.95
Null hypothesis0
Sample Mean4.54545454548631e-08
2-sided Confidence Interval[ -0.241668991977005 , 0.241669082886096 ]
Left-sided Confidence Interval[ -0.202595327881257 , +inf ]
Right-sided Confidence Interval[ -inf, 0.202595418790348 ]



Parameters (Session):
par1 = 1 ; par2 = 2 ; par3 = Pearson Chi-Squared ;
Parameters (R input):
par1 = 0.95 ; par2 = 0 ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
par2 <- as.numeric(par2)
len <- length(x)
df <- len - 1
sd <- sd(x)
mx <- mean(x)
load(file='createtable')
delta2 <- abs(qt((1-par1)/2,df)) * sd / sqrt(len)
delta1 <- abs(qt((1-par1),df)) * sd / sqrt(len)
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Hypothesis Test about the Mean - Confidence Interval',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample size',header=TRUE)
a<-table.element(a,len)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Sample standard deviation',header=TRUE)
a<-table.element(a,sd)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Confidence',header=TRUE)
a<-table.element(a,par1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Null hypothesis',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,mx)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'2-sided Confidence Interval',header=TRUE)
dum <- paste('[',mx-delta2)
dum <- paste(dum,',')
dum <- paste(dum,mx+delta2)
dum <- paste(dum,']')
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Left-sided Confidence Interval',header=TRUE)
dum <- paste('[',mx-delta1)
dum <- paste(dum,', +inf ]')
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Right-sided Confidence Interval',header=TRUE)
dum <- paste('[ -inf, ',mx+delta1)
dum <- paste(dum,']')
a<-table.element(a,dum)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')