Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
68 13 13 20 0 17 26 27 28 0 1 0 0 0 0 114 37 37 40 0 95 47 39 60 0 148 80 99 60 1 56 21 21 44 0 26 36 33 52 0 63 35 36 60 0 96 40 44 52 1 74 35 33 24 1 65 46 47 64 0 40 20 19 26 0 173 24 41 48 4 28 19 22 36 3 55 15 17 40 3 58 48 46 64 0 25 0 0 20 4 103 38 31 79 0 29 12 20 16 0 31 10 10 52 0 43 51 55 52 0 74 4 6 44 0 99 24 17 29 1 25 39 33 40 1 69 19 33 28 0 62 23 32 49 0 25 39 37 60 0 38 37 44 52 0 57 20 22 28 0 52 20 15 56 0 91 41 18 35 2 48 26 25 12 4 52 0 7 32 0 35 31 35 48 1 0 0 0 0 0 31 8 14 48 0 107 35 31 31 3 242 3 9 64 4 41 47 59 72 0 57 42 62 36 1 32 11 12 56 0 17 10 23 28 2 36 26 31 52 1 29 27 57 44 1 22 0 23 44 2 21 15 14 55 1 41 32 31 36 0 64 13 17 48 1 71 24 24 44 0 28 10 11 66 0 36 14 16 40 0 45 24 32 44 0 22 29 36 48 0 27 40 37 68 1 38 22 25 24 3 26 27 30 32 0 41 8 10 44 0 21 27 16 52 0 28 0 3 56 4 36 0 0 68 0 58 17 17 32 0 65 7 9 34 4 29 18 22 36 3 21 7 5 34 0 19 24 23 56 0 55 18 16 64 4 119 39 53 52 2 34 17 23 48 0 25 0 0 40 0 113 39 51 36 2 46 20 25 10 0 28 29 51 48 1 63 27 46 25 0 52 23 16 68 0 35 0 0 36 1 32 31 25 32 0 45 19 34 36 0 42 12 14 43 0 28 23 32 17 0 32 33 24 52 0 32 21 16 56 0 27 17 19 40 0 69 27 27 48 0 30 14 24 40 0 48 12 12 48 0 57 21 43 68 0 36 14 13 44 0 20 14 19 40 2 54 22 24 40 0 26 25 27 28 0 58 36 26 40 1 35 10 14 44 0 28 16 26 20 0 8 12 15 22 0 96 20 30 56 0 50 38 33 52 0 15 13 14 2 0 65 12 11 52 0 33 11 12 30 0 7 8 8 3 0 17 22 22 20 0 55 14 12 48 0 32 7 6 32 1 22 14 10 36 0 41 2 1 45 0 50 35 31 40 0 7 5 5 8 0 0 0 0 0 0 26 34 35 32 0 22 12 15 28 0 26 34 36 44 0 37 30 27 56 0 29 21 36 13 0 0 0 0 0 0 0 0 0 0 0 42 28 29 52 0 51 16 19 51 0 77 12 16 52 1 32 14 15 48 0 63 7 1 3 0 50 41 36 48 1 18 21 22 24 0 37 28 16 37 0 23 1 1 32 3 19 10 10 8 1 39 31 31 44 2 38 7 22 48 0 55 26 22 56 0 22 1 0 8 0 7 0 0 0 0 21 12 10 25 0 5 0 0 4 0 21 17 9 12 0 1 5 0 0 0 22 4 0 6 1 0 0 0 0 0 31 6 7 48 0 25 0 2 52 0 0 0 0 0 1 4 0 0 0 0 20 15 16 12 1 29 0 25 28 0 33 12 6 40 0
Data Y:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
bitmap(file='test1.png') histx <- hist(x, plot=FALSE) histy <- hist(y, plot=FALSE) maxcounts <- max(c(histx$counts, histx$counts)) xrange <- c(min(x),max(x)) yrange <- c(min(y),max(y)) nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), c(3,1), c(1,3), TRUE) par(mar=c(4,4,1,1)) plot(x, y, xlim=xrange, ylim=yrange, xlab=xlab, ylab=ylab) par(mar=c(0,4,1,1)) barplot(histx$counts, axes=FALSE, ylim=c(0, maxcounts), space=0) par(mar=c(4,0,1,1)) barplot(histy$counts, axes=FALSE, xlim=c(0, maxcounts), space=0, horiz=TRUE) dev.off() lx = length(x) makebiased = (lx-1)/lx varx = var(x)*makebiased vary = var(y)*makebiased corxy <- cor.test(x,y,method='pearson') cxy <- as.matrix(corxy$estimate)[1,1] load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Pearson Product Moment Correlation - Ungrouped Data',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Statistic',1,TRUE) a<-table.element(a,'Variable X',1,TRUE) a<-table.element(a,'Variable Y',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm','Mean',''),header=TRUE) a<-table.element(a,mean(x)) a<-table.element(a,mean(y)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/biased.htm','Biased Variance',''),header=TRUE) a<-table.element(a,varx) a<-table.element(a,vary) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/biased1.htm','Biased Standard Deviation',''),header=TRUE) a<-table.element(a,sqrt(varx)) a<-table.element(a,sqrt(vary)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/covariance.htm','Covariance',''),header=TRUE) a<-table.element(a,cov(x,y),2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/pearson_correlation.htm','Correlation',''),header=TRUE) a<-table.element(a,cxy,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/coeff_of_determination.htm','Determination',''),header=TRUE) a<-table.element(a,cxy*cxy,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/ttest_statistic.htm','T-Test',''),header=TRUE) a<-table.element(a,as.matrix(corxy$statistic)[1,1],2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value (2 sided)',header=TRUE) a<-table.element(a,(p2 <- as.matrix(corxy$p.value)[1,1]),2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value (1 sided)',header=TRUE) a<-table.element(a,p2/2,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Degrees of Freedom',header=TRUE) a<-table.element(a,lx-2,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of Observations',header=TRUE) a<-table.element(a,lx,2) 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