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 computationThu, 01 Feb 2018 09:27:43 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Feb/01/t1517473671qr8rysz1j1uuyyn.htm/, Retrieved Sun, 28 Apr 2024 22:01:23 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=313558, Retrieved Sun, 28 Apr 2024 22:01:23 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact55
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] [] [2018-02-01 08:27:43] [b1f7c59fedc08def0443d20f9974e39d] [Current]
Feedback Forum

Post a new message
Dataseries X:
2.80030819572237
0.546110929167911
-1.08882457056234
1.85116612407754
1.81431171737364
1.10336738027983
-1.1245171435247
1.71646640041695
0.793858512491152
-1.07059339259452
1.37785351123131
-0.79301277417615
-0.213022653692917
0.325551388183876
-3.07152677312816
-1.6593526905903
-0.977898156347797
2.77746716194583
0.659684775709612
-0.399824712085136
-1.94483744059989
2.63902152884315
0.830351272801263
0.239452118133438
-1.98023780133566
-3.14893729642629
1.52344843344618
1.52324864513037
3.07560476768955
1.68333908953913
-0.0411419750371334
-1.42576307236563
0.603469563697563
-2.02817409689518
2.36128930601495
-4.84900520812879
-0.296289875821015
-0.273406341522266
-2.41797545929271
-0.735276518673968
-0.758208236878704
0.719357808400705
3.82579134038112
0.751147004565213
-0.686160672385733
2.7839041091014
-0.353356298124068
-1.19565368260915
1.51622971016679
0.687899021959271
-1.03746150319703
0.232258589016444
0.954677970598071
0.253726601750312
0.0906111040418593
-0.337464765144114
-0.146645835344418
-2.14580429676713
-2.64273856198557
-1.69885035349378
0.0886900288640063
2.94885012445766
2.74086814209461
-2.78292060200689
2.11354456172898
1.5019821601947
0.928451976610637
0.251386956762454
1.92686717410181
-0.637152825120997
-3.00404371957499
1.53170453971748
-0.46034424964922
-0.435142320623821
0.241189107006538
-0.439858435973453
-1.66304983417195
1.54593083942837
0.0543382827538832
-2.76444539571847
-1.5519700760652
1.99785210877644
1.02671169946072
0.965014171087942
0.833645548583962
-1.78443597034853
-1.35462195476152
0.0905629201358726
1.2672859043733
1.3367497955578
1.00922794934105
2.97970594008853
-0.0198870686489594
1.37558503989304
1.62130116503375
-0.380035665253275
0.140633397218948
1.088271459054
-4.14041609113554
-1.36191185169048
-3.501894103396
1.82567198282555
1.00217218900356
-1.70508751233354
-1.54985320913675
1.52749755170791
-1.11909042570084
0.782613205637535
0.394327211581645
1.03045019427192
-1.98850357932067
-2.3911175541089
-2.49477174792859
1.43479131886814
-0.23693199243609
1.54252687780381
0.753916630559178
-1.12999945988543
0.434385612031916
0.497954292194177
-0.415657064566058
1.25212054898028
0.538408325374887
0.363650201264021
-0.525700021635337
-1.63043333745253
0.651092396769283
0.605424752110409
1.27467788471578
-3.66701110704255
-1.09455091524368
-2.01546316552593
-0.129017313491364
1.80505691986507
-2.93931661204688
0.266590824347748
1.08312554226064
-0.0657619162545335
1.90954638692403
-1.52044597892013
0.720915677264753
-1.30223881899939
1.12662982290344
-0.651780253148442
0.873322331496494
-0.545999882625613
-0.386205647008669
2.73997287136118
-0.246626845056549
2.49376474567805
-2.78811070614103
-0.470542681359586
1.71855478201569
1.18881581030952
2.56216432022585
0.443671331515407
-1.46466491183079
-2.05654394411988
1.31101180554756
-1.38802306664201
-1.42282760393946
-0.770545943306666
0.204099941303661
-3.73653059676392
2.41609709604484
0.459211471769727
-1.95214272484412
-0.467671553906553
-2.54700443680883
0.530260345025432
2.59956805328044
-0.048523881273836
-1.31831688661928
1.0921477226447
1.49992331623734
-1.21692016754482
-0.350713444316563
-0.709451653003092
0.660733517233603




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=313558&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=313558&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313558&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center







Hypothesis Test about the Mean - Confidence Interval
Sample size179
Sample standard deviation1.64473729251483
Confidence0.99
Null hypothesis0
Sample Mean8.18627153184949e-17
2-sided Confidence Interval[ -0.320085645648633 , 0.320085645648633 ]
Left-sided Confidence Interval[ -0.288583717382219 , +inf ]
Right-sided Confidence Interval[ -inf, 0.288583717382219 ]

\begin{tabular}{lllllllll}
\hline
Hypothesis Test about the Mean - Confidence Interval \tabularnewline
Sample size & 179 \tabularnewline
Sample standard deviation & 1.64473729251483 \tabularnewline
Confidence & 0.99 \tabularnewline
Null hypothesis & 0 \tabularnewline
Sample Mean & 8.18627153184949e-17 \tabularnewline
2-sided Confidence Interval & [ -0.320085645648633 , 0.320085645648633 ] \tabularnewline
Left-sided Confidence Interval & [ -0.288583717382219 , +inf ] \tabularnewline
Right-sided Confidence Interval & [ -inf,  0.288583717382219 ] \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=313558&T=1

[TABLE]
[ROW][C]Hypothesis Test about the Mean - Confidence Interval[/C][/ROW]
[ROW][C]Sample size[/C][C]179[/C][/ROW]
[ROW][C]Sample standard deviation[/C][C]1.64473729251483[/C][/ROW]
[ROW][C]Confidence[/C][C]0.99[/C][/ROW]
[ROW][C]Null hypothesis[/C][C]0[/C][/ROW]
[ROW][C]Sample Mean[/C][C]8.18627153184949e-17[/C][/ROW]
[ROW][C]2-sided Confidence Interval[/C][C][ -0.320085645648633 , 0.320085645648633 ][/C][/ROW]
[ROW][C]Left-sided Confidence Interval[/C][C][ -0.288583717382219 , +inf ][/C][/ROW]
[ROW][C]Right-sided Confidence Interval[/C][C][ -inf,  0.288583717382219 ][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=313558&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313558&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 size179
Sample standard deviation1.64473729251483
Confidence0.99
Null hypothesis0
Sample Mean8.18627153184949e-17
2-sided Confidence Interval[ -0.320085645648633 , 0.320085645648633 ]
Left-sided Confidence Interval[ -0.288583717382219 , +inf ]
Right-sided Confidence Interval[ -inf, 0.288583717382219 ]



Parameters (Session):
Parameters (R input):
par1 = 0.99 ; 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')