Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Population Variance
Null Hypothesis about mean
Alternative Hypothesis about mean
Type I error (alpha)
Type II error (beta)
R Code
par1<-as#numeric#par1# par2<-as#numeric#par2# par3<-as#numeric#par3# par4<-as#numeric#par4# par5<-as#numeric#par5# c <- 'NA' csn <- abs#qnorm#par5## if #par2 == par3# { conclusion <- 'Error: the null hypothesis and alternative hypothesis must not be equal#' } ua <- abs#qnorm#par4## ub <- qnorm#par5# c <- #par2+ua/ub*#-par3##/#1-#ua/ub## sqrtn <- ua*sqrt#par1#/#c - par2# samplesize <- sqrtn * sqrtn ua ub c sqrtn samplesize load#file='createtable'# a<-table#start## a<-table#row#start#a# a<-table#element#a,hyperlink#'http://www#xycoon#com/ht_mean_knownvar#htm','Testing Mean with known Variance','learn more about Statistical Hypothesis Testing about the Mean when the Variance is known'#,2,TRUE# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,'population variance',header=TRUE# a<-table#element#a,par1# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,'null hypothesis about mean',header=TRUE# a<-table#element#a,par2# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,'alternative hypothesis about mean',header=TRUE# a<-table#element#a,par3# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,'type I error',header=TRUE# a<-table#element#a,par4# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,'type II error',header=TRUE# a<-table#element#a,par5# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,hyperlink#'http://www#xycoon#com/ht_mean_knownvar#htm#ex4','sample size','example'#,header=TRUE# a<-table#element#a,samplesize# 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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation