Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
26 NA 20 NA 19 NA NA 19 20 NA 25 NA NA 25 22 NA 26 NA 22 NA NA 17 NA 22 19 NA 24 NA 26 NA NA 21 13 NA NA 26 NA 20 22 NA NA 14 21 NA 7 NA NA 23 17 NA 25 NA 25 NA 19 NA NA 20 23 NA NA 22 22 NA 21 NA NA 15 NA 20 NA 22 18 NA NA 20 NA 28 22 NA 18 NA 23 NA 20 NA NA 25 NA 26 15 NA NA 17 NA 23 21 NA NA 13 18 NA 19 NA 22 NA 16 NA NA 24 18 NA 20 NA 24 NA NA 14 NA 22 24 NA 18 NA 21 NA NA 23 17 NA NA 22 NA 24 NA 21 22 NA 16 NA 21 NA NA 23 NA 22 24 NA 24 NA 16 NA 16 NA NA 21 NA 26 NA 15 NA 25 18 NA NA NA 20 NA NA 17 NA 25 24 NA 17 NA 19 NA 20 NA 15 NA NA 27 22 NA 23 NA 16 NA 19 NA NA 25 19 NA NA 19 NA 26 21 NA NA 20 24 NA 22 NA NA 20 18 NA NA 18 24 NA 24 NA 22 NA 23 NA 22 NA 20 NA 18 NA 25 NA NA 18 16 NA 20 NA NA 19 15 NA 19 NA 19 NA 16 NA 17 NA 28 NA NA 23 25 NA 20 NA NA 17 NA 23 16 NA NA 23 NA 11 NA 18 NA 24 23 NA 21 NA NA 16 NA 24 23 NA 18 NA 20 NA 9 NA NA 24 25 NA 20 NA NA 21 NA 25 NA 22 NA 21 21 NA 22 NA 27 NA NA 24 NA 24 NA 21 18 NA 16 NA 22 NA 20 NA NA 18 20 NA
Confidence
(?)
Null Hypothesis
R Code
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'#
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation