Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
127476 20 17 59 18158 130358 38 17 50 30461 7215 0 0 0 1423 112861 49 22 51 25629 210171 74 30 112 48758 393802 104 31 118 129230 117604 37 19 59 27376 126029 53 25 90 26706 99729 42 30 50 26505 256310 62 26 79 49801 113066 50 20 49 46580 156212 65 25 74 48352 69952 28 15 32 13899 152673 48 22 82 39342 125841 42 12 43 27465 125769 47 19 65 55211 123467 71 28 111 74098 56232 0 12 36 13497 108244 50 28 89 38338 22762 12 13 28 52505 48554 16 14 35 10663 178697 76 27 78 74484 140857 29 25 67 28895 93773 38 30 61 32827 133398 50 21 58 36188 113933 33 17 49 28173 144781 45 22 77 54926 140711 59 28 71 38900 283337 49 25 82 88530 158146 40 16 53 35482 123344 40 23 71 26730 157640 51 20 58 29806 91279 41 11 25 41799 189374 73 20 59 54289 167915 43 21 77 36805 0 0 0 0 0 175403 46 27 75 33146 92342 44 14 39 23333 100023 31 29 83 47686 178277 71 31 123 77783 145062 61 19 67 36042 110980 28 30 105 34541 86039 21 23 76 75620 120821 42 20 54 60610 95535 44 22 82 55041 109894 34 19 57 32087 61554 15 32 57 16356 156520 46 18 72 40161 159121 43 26 94 55459 129362 47 25 72 36679 48188 12 22 39 22346 95461 46 19 60 27377 229864 56 24 84 50273 180317 41 26 69 32104 150640 48 27 102 27016 104416 30 10 28 19715 165098 44 26 65 33629 63205 25 23 67 27084 100056 42 21 80 32352 137214 28 34 79 51845 99630 33 29 107 26591 84557 32 18 57 29677 91199 28 16 44 54237 83419 31 23 59 20284 101723 13 22 80 22741 94982 38 29 89 34178 129700 39 31 115 69551 110708 68 21 59 29653 81518 32 21 66 38071 31970 5 21 42 4157 192268 53 15 35 28321 87611 33 9 3 40195 77890 48 21 68 48158 83261 36 18 38 13310 116290 52 31 107 78474 56544 0 25 73 6386 116173 52 24 80 31588 111488 45 22 69 61254 60138 16 21 46 21152 73422 33 26 52 41272 67751 48 22 58 34165 213351 33 26 85 37054 51185 24 20 13 12368 97181 37 25 61 23168 45100 17 19 49 16380 115801 32 22 47 41242 185664 55 25 93 48450 71960 39 22 65 20790 76441 29 21 64 34585 103613 26 20 64 35672 98707 37 23 57 52168 126527 58 22 61 53933 136781 35 21 71 34474 105863 24 12 43 43753 38775 18 9 18 36456 179984 37 32 103 51183 164808 86 24 76 52742 19349 13 1 0 3895 146824 20 24 83 37076 108660 32 22 70 24079 43803 8 4 4 2325 47062 38 15 41 29354 110845 45 21 57 30341 92517 24 23 52 18992 58660 23 12 24 15292 27676 2 16 17 5842 98550 52 24 89 28918 43284 5 9 20 3738 0 0 0 0 0 66016 43 22 45 95352 57359 18 17 63 37478 96933 41 18 48 26839 70369 45 21 70 26783 65494 29 17 32 33392 3616 0 0 0 0 0 0 0 0 0 143931 32 20 72 25446 109894 58 26 56 59847 122973 17 26 64 28162 84336 24 20 77 33298 43410 7 1 3 2781 136250 62 24 73 37121 79015 30 14 37 22698 92937 49 26 54 27615 57586 3 12 32 32689 19764 10 2 4 5752 105757 42 16 55 23164 97213 18 22 81 20304 113402 40 28 90 34409 11796 1 2 1 0 7627 0 0 0 0 121085 29 17 38 92538 6836 0 1 0 0 139563 46 17 36 46037 5118 5 0 0 0 40248 8 4 7 5444 0 0 0 0 0 95079 21 25 75 23924 80750 21 26 52 52230 7131 0 0 0 0 4194 0 0 0 0 60378 15 15 45 8019 96971 40 18 60 34542 83484 17 19 48 21157
Names of X columns:
Time Bloggings Reviews Feedbackm Characters
Type of Correlation
kendall
pearson
spearman
kendall
Chart options
Title:
R Code
panel.tau <- function(x, y, digits=2, prefix='', cex.cor) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(0, 1, 0, 1)) rr <- cor.test(x, y, method=par1) r <- round(rr$p.value,2) txt <- format(c(r, 0.123456789), digits=digits)[1] txt <- paste(prefix, txt, sep='') if(missing(cex.cor)) cex <- 0.5/strwidth(txt) text(0.5, 0.5, txt, cex = cex) } panel.hist <- function(x, ...) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(usr[1:2], 0, 1.5) ) h <- hist(x, plot = FALSE) breaks <- h$breaks; nB <- length(breaks) y <- h$counts; y <- y/max(y) rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...) } bitmap(file='test1.png') pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main) dev.off() load(file='createtable') n <- length(y[,1]) n a<-table.start() a<-table.row.start(a) a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,' ',header=TRUE) for (i in 1:n) { a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) } a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE) for (j in 1:n) { r <- cor.test(y[i,],y[j,],method=par1) a<-table.element(a,round(r$estimate,3)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'Pearson r',1,TRUE) a<-table.element(a,'Spearman rho',1,TRUE) a<-table.element(a,'Kendall tau',1,TRUE) a<-table.row.end(a) cor.test(y[1,],y[2,],method=par1) for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='') a<-table.element(a,dum,header=TRUE) rp <- cor.test(y[i,],y[j,],method='pearson') a<-table.element(a,round(rp$estimate,4)) rs <- cor.test(y[i,],y[j,],method='spearman') a<-table.element(a,round(rs$estimate,4)) rk <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,round(rk$estimate,4)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value',header=T) a<-table.element(a,paste('(',round(rp$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rs$p.value,4),')',sep='')) a<-table.element(a,paste('(',round(rk$p.value,4),')',sep='')) a<-table.row.end(a) } } a<-table.end(a) table.save(a,file='mytable1.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