Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2.59999449829348e-05 -2.85934907267594 -0.649147924253459 0.687942947998471 4.41367305458936 0.703339476768331 4.24638256769752 -0.21031024094761 -2.33429839080062 2.31222134046954 3.40165387709617 -8.26737579359373 1.11431688566685 -0.896703867832951 -13.0495075867037 -2.75089595181093 3.57020443154211 3.7574055113659 -1.21788217614298 2.88867284762329 1.59781992526686 1.00314712784885 -1.73721942289088 2.05601650683604 -1.99067699305524 3.03551740874876 -0.116987418658215 -4.51696342873869 1.06611474455578 -2.27975907041329 -0.973045894225907 1.71073449608984 -3.98154642886929 -1.79893253335613 -0.306712700875914 3.60800356989344 3.89232227923729 -1.35160545174532 1.73129042444531 -2.46556929491593 2.47177109164695 -3.57443578331029 1.45909757196057 3.95065370123303 4.34895107689336 -2.90118520309096 -2.8729126504271 -1.66760279022191 -0.0112094278202873 3.89914107395326 -2.63000567859723 -0.395056334182254 0.101751857439638 -4.69361536985854 2.02745050761376 2.65773331930163 -3.54595603574777 -0.51537429539434 -1.03553894638054 1.02295222491643 4.04383594665179 2.47508651949828 -0.941773426557631 4.8476970695209 4.74951891290952 3.44236783510802 4.67122940572583 3.73269214331178 1.94496151991533 -0.107335570699707 6.36111670027364 -2.54684223521272 1.55112357904505 -4.10530256705307 -0.45235015185568 -1.05910330146752 -4.0163355218457 -3.32246785457466 6.9331722028669 4.36185747181973 0.682239507818242 -3.11566034613615 3.22999788042059 1.02894155501679 3.47395118690476 -1.34399446866298 0.644993473163829 -10.5366449635885 4.53073123449612 -1.14799436980038 0.786329128536949 1.66500234160534 6.74668421373588 -1.49039188289985 -3.02587179236191 2.06911535064507 -0.143928297716738 0.204595718772791
Confidence
(?)
Null Hypothesis
R Code
par2 <- '15' par1 <- '0.95' 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