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 computationFri, 12 Nov 2010 07:45:51 +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/Nov/12/t12895478873kemsll75ao1bux.htm/, Retrieved Tue, 30 Apr 2024 20:34:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=93976, Retrieved Tue, 30 Apr 2024 20:34:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact148
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] [] [2010-10-22 10:07:01] [8a9a6f7c332640af31ddca253a8ded58]
-    D  [Testing Mean with unknown Variance - Critical Value] [] [2010-10-25 17:55:27] [504b6ff240ec7a3fcbc007044ae7a0bb]
F R         [Testing Mean with unknown Variance - Critical Value] [] [2010-11-12 07:45:51] [d1991ab4912b5ede0ff54c26afa5d84c] [Current]
Feedback Forum
2010-11-13 10:04:47 [Hans Tierens] [reply
Er zit een fout in je gegevens en daardoor krijg je geen output te zien. Bovendien heb je de verkeerde gegevens geselecteerd.
De eenvoudigste manier om deze fout te vermijden in rechtstreeks de gegevens van excel in de software tool te plakken (Copy+Paste).
Ik vraag me af hoe je een conclusie kon trekken.

Indien je de correcte gegevens (Post 1 scores van respondenten met S-treatment) had gebruikt zou je een tweezijdig (je moet nl. testen op 'dicht bij nul', en dit kan je van 2 kanten benaderen... ik bedoel weinig onder nul of weinig boven nul) betrouwbaarheidsinterval van [0,3400... , 0,688...]. Je ziet dat nul niet in dit 95%-betrouwbaarheidsinterval ligt en dus wordt de nul-hypothese verworpen.

Post a new message
Dataseries X:
2
1
4
0
4
0
0
0
5
1
0
4
4
1
1
1
4
1
3
1
5
4
0
1
4
0
-1
2
1
1
0
4
4




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132
R Engine error message
Error in len - 1 : non-numeric argument to binary operator
Execution halted

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
R Engine error message & 
Error in len - 1 : non-numeric argument to binary operator
Execution halted
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=93976&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[ROW][C]R Engine error message[/C][C]
Error in len - 1 : non-numeric argument to binary operator
Execution halted
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=93976&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=93976&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'George Udny Yule' @ 72.249.76.132
R Engine error message
Error in len - 1 : non-numeric argument to binary operator
Execution halted



Parameters (Session):
par1 = 0.95 ; par2 = 0 ;
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'#