Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
50 47 50 55 52 51 47 45 39 41 52 52 45 45 59 59 52 51 44 44 55 55 59 59 53 50 50 49 53 54 51 52 54 55 75 75 63 64 56 53 59 55 53 52 51 51 58 51 63 59 56 57 52 57 58 60 54 53 60 59 57 59 57 56 56 57 47 47 45 45 53 51 53 53 52 53 47 47 48 44 51 50 54 54 63 59 56 56 52 52 64 62 50 50 56 56 62 61 57 56 56 57 64 63 55 54 61 60 60 55 55 55 59 55 62 62 55 55 62 61 53 55 57 55 64 64 65 66 62 62 50 50 71 71 56 54 53 53 50 50 64 64 76 77 55 55 57 58 57 56 66 66 59 59 58 54 54 59 63 61 64 62 63 62 60 55 78 75 68 68 61 61 68 63 56 56 70 67 61 61 62 61 55 57 64 66 59 58 54 56 62 63 53 52 68 68 54 55 56 58 76 76 76 77 68 69 75 76 69 73 54 58 76 75 66 67 62 64 75 70 65 64 66 70 74 73 57 58 71 71 55 56 70 68 61 61 69 69 79 79 65 64 65 66 79 76 68 68 70 70 89 86 70 75 69 68 68 70 71 71 75 73 64 65 88 86 85 82 71 76 80 76 66 66 62 66 63 63 78 77 83 84 66 68 81 82 80 78 74 71 119 124 80 80 65 66 71 68 90 91 79 81 67 67 77 77 69 73 101 100 78 80 73 74 69 70 69 71 76 75 83 80 83 83 103 101 82 85 69 70 59 61 84 86 84 90 96 94 88 86 92 101 102 107 97 98 88 87 87 89 90 91 65 67 85 83 96 95 88 93 76 75
Sample Range:
(leave blank to include all observations)
From:
To:
Number of Bins
(?)
Chart options
Title:
Label x-axis:
R Code
bitmap(file='test1.png') par1 <- as.numeric(par1) myhist<-hist(x, breaks=par1, col=2, xlab=xlab, main=main) dev.off() bitmap(file='test2.png') qqnorm(x) qqline(x, col=2) dev.off() bitmap(file='test3.png') plot(density(x), xlab=xlab, main=main) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Descriptive Statistics',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'mean',header=TRUE) a<-table.element(a,signif(mean(x), 6)) a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm','formula','click to see the formula')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'standard deviation',header=TRUE) a<-table.element(a,signif(sd(x), 6)) a<-table.element(a,hyperlink('http://www.xycoon.com/unbiased1.htm','formula','click to see the formula')) 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