R version 2.12.0 (2010-10-15) Copyright (C) 2010 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i486-pc-linux-gnu (32-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- array(list(210907 + ,1418 + ,30 + ,94 + ,120982 + ,869 + ,28 + ,103 + ,176508 + ,1530 + ,38 + ,93 + ,179321 + ,2172 + ,30 + ,103 + ,123185 + ,901 + ,22 + ,51 + ,52746 + ,463 + ,26 + ,70 + ,385534 + ,3201 + ,25 + ,91 + ,33170 + ,371 + ,18 + ,22 + ,101645 + ,1192 + ,11 + ,38 + ,149061 + ,1583 + ,26 + ,93 + ,165446 + ,1439 + ,25 + ,60 + ,237213 + ,1764 + ,38 + ,123 + ,173326 + ,1495 + ,44 + ,148 + ,133131 + ,1373 + ,30 + ,90 + ,258873 + ,2187 + ,40 + ,124 + ,180083 + ,1491 + ,34 + ,70 + ,324799 + ,4041 + ,47 + ,168 + ,230964 + ,1706 + ,30 + ,115 + ,236785 + ,2152 + ,31 + ,71 + ,135473 + ,1036 + ,23 + ,66 + ,202925 + ,1882 + ,36 + ,134 + ,215147 + ,1929 + ,36 + ,117 + ,344297 + ,2242 + ,30 + ,108 + ,153935 + ,1220 + ,25 + ,84 + ,132943 + ,1289 + ,39 + ,156 + ,174724 + ,2515 + ,34 + ,120 + ,174415 + ,2147 + ,31 + ,114 + ,225548 + ,2352 + ,31 + ,94 + ,223632 + ,1638 + ,33 + ,120 + ,124817 + ,1222 + ,25 + ,81 + ,221698 + ,1812 + ,33 + ,110 + ,210767 + ,1677 + ,35 + ,133 + ,170266 + ,1579 + ,42 + ,122 + ,260561 + ,1731 + ,43 + ,158 + ,84853 + ,807 + ,30 + ,109 + ,294424 + ,2452 + ,33 + ,124 + ,101011 + ,829 + ,13 + ,39 + ,215641 + ,1940 + ,32 + ,92 + ,325107 + ,2662 + ,36 + ,126 + ,7176 + ,186 + ,0 + ,0 + ,167542 + ,1499 + ,28 + ,70 + ,106408 + ,865 + ,14 + ,37 + ,96560 + ,1793 + ,17 + ,38 + ,265769 + ,2527 + ,32 + ,120 + ,269651 + ,2747 + ,30 + ,93 + ,149112 + ,1324 + ,35 + ,95 + ,175824 + ,2702 + ,20 + ,77 + ,152871 + ,1383 + ,28 + ,90 + ,111665 + ,1179 + ,28 + ,80 + ,116408 + ,2099 + ,39 + ,31 + ,362301 + ,4308 + ,34 + ,110 + ,78800 + ,918 + ,26 + ,66 + ,183167 + ,1831 + ,39 + ,138 + ,277965 + ,3373 + ,39 + ,133 + ,150629 + ,1713 + ,33 + ,113 + ,168809 + ,1438 + ,28 + ,100 + ,24188 + ,496 + ,4 + ,7 + ,329267 + ,2253 + ,39 + ,140 + ,65029 + ,744 + ,18 + ,61 + ,101097 + ,1161 + ,14 + ,41 + ,218946 + ,2352 + ,29 + ,96 + ,244052 + ,2144 + ,44 + ,164 + ,341570 + ,4691 + ,21 + ,78 + ,103597 + ,1112 + ,16 + ,49 + ,233328 + ,2694 + ,28 + ,102 + ,256462 + ,1973 + ,35 + ,124 + ,206161 + ,1769 + ,28 + ,99 + ,311473 + ,3148 + ,38 + ,129 + ,235800 + ,2474 + ,23 + ,62 + ,177939 + ,2084 + ,36 + ,73 + ,207176 + ,1954 + ,32 + ,114 + ,196553 + ,1226 + ,29 + ,99 + ,174184 + ,1389 + ,25 + ,70 + ,143246 + ,1496 + ,27 + ,104 + ,187559 + ,2269 + ,36 + ,116 + ,187681 + ,1833 + ,28 + ,91 + ,119016 + ,1268 + ,23 + ,74 + ,182192 + ,1943 + ,40 + ,138 + ,73566 + ,893 + ,23 + ,67 + ,194979 + ,1762 + ,40 + ,151 + ,167488 + ,1403 + ,28 + ,72 + ,143756 + ,1425 + ,34 + ,120 + ,275541 + ,1857 + ,33 + ,115 + ,243199 + ,1840 + ,28 + ,105 + ,182999 + ,1502 + ,34 + ,104 + ,135649 + ,1441 + ,30 + ,108 + ,152299 + ,1420 + ,33 + ,98 + ,120221 + ,1416 + ,22 + ,69 + ,346485 + ,2970 + ,38 + ,111 + ,145790 + ,1317 + ,26 + ,99 + ,193339 + ,1644 + ,35 + ,71 + ,80953 + ,870 + ,8 + ,27 + ,122774 + ,1654 + ,24 + ,69 + ,130585 + ,1054 + ,29 + ,107 + ,112611 + ,937 + ,20 + ,73 + ,286468 + ,3004 + ,29 + ,107 + ,241066 + ,2008 + ,45 + ,93 + ,148446 + ,2547 + ,37 + ,129 + ,204713 + ,1885 + ,33 + ,69 + ,182079 + ,1626 + ,33 + ,118 + ,140344 + ,1468 + ,25 + ,73 + ,220516 + ,2445 + ,32 + ,119 + ,243060 + ,1964 + ,29 + ,104 + ,162765 + ,1381 + ,28 + ,107 + ,182613 + ,1369 + ,28 + ,99 + ,232138 + ,1659 + ,31 + ,90 + ,265318 + ,2888 + ,52 + ,197 + ,85574 + ,1290 + ,21 + ,36 + ,310839 + ,2845 + ,24 + ,85 + ,225060 + ,1982 + ,41 + ,139 + ,232317 + ,1904 + ,33 + ,106 + ,144966 + ,1391 + ,32 + ,50 + ,43287 + ,602 + ,19 + ,64 + ,155754 + ,1743 + ,20 + ,31 + ,164709 + ,1559 + ,31 + ,63 + ,201940 + ,2014 + ,31 + ,92 + ,235454 + ,2143 + ,32 + ,106 + ,220801 + ,2146 + ,18 + ,63 + ,99466 + ,874 + ,23 + ,69 + ,92661 + ,1590 + ,17 + ,41 + ,133328 + ,1590 + ,20 + ,56 + ,61361 + ,1210 + ,12 + ,25 + ,125930 + ,2072 + ,17 + ,65 + ,100750 + ,1281 + ,30 + ,93 + ,224549 + ,1401 + ,31 + ,114 + ,82316 + ,834 + ,10 + ,38 + ,102010 + ,1105 + ,13 + ,44 + ,101523 + ,1272 + ,22 + ,87 + ,243511 + ,1944 + ,42 + ,110 + ,22938 + ,391 + ,1 + ,0 + ,41566 + ,761 + ,9 + ,27 + ,152474 + ,1605 + ,32 + ,83 + ,61857 + ,530 + ,11 + ,30 + ,99923 + ,1988 + ,25 + ,80 + ,132487 + ,1386 + ,36 + ,98 + ,317394 + ,2395 + ,31 + ,82 + ,21054 + ,387 + ,0 + ,0 + ,209641 + ,1742 + ,24 + ,60 + ,22648 + ,620 + ,13 + ,28 + ,31414 + ,449 + ,8 + ,9 + ,46698 + ,800 + ,13 + ,33 + ,131698 + ,1684 + ,19 + ,59 + ,91735 + ,1050 + ,18 + ,49 + ,244749 + ,2699 + ,33 + ,115 + ,184510 + ,1606 + ,40 + ,140 + ,79863 + ,1502 + ,22 + ,49 + ,128423 + ,1204 + ,38 + ,120 + ,97839 + ,1138 + ,24 + ,66 + ,38214 + ,568 + ,8 + ,21 + ,151101 + ,1459 + ,35 + ,124 + ,272458 + ,2158 + ,43 + ,152 + ,172494 + ,1111 + ,43 + ,139 + ,108043 + ,1421 + ,14 + ,38 + ,328107 + ,2833 + ,41 + ,144 + ,250579 + ,1955 + ,38 + ,120 + ,351067 + ,2922 + ,45 + ,160 + ,158015 + ,1002 + ,31 + ,114 + ,98866 + ,1060 + ,13 + ,39 + ,85439 + ,956 + ,28 + ,78 + ,229242 + ,2186 + ,31 + ,119 + ,351619 + ,3604 + ,40 + ,141 + ,84207 + ,1035 + ,30 + ,101 + ,120445 + ,1417 + ,16 + ,56 + ,324598 + ,3261 + ,37 + ,133 + ,131069 + ,1587 + ,30 + ,83 + ,204271 + ,1424 + ,35 + ,116 + ,165543 + ,1701 + ,32 + ,90 + ,141722 + ,1249 + ,27 + ,36 + ,116048 + ,946 + ,20 + ,50 + ,250047 + ,1926 + ,18 + ,61 + ,299775 + ,3352 + ,31 + ,97 + ,195838 + ,1641 + ,31 + ,98 + ,173260 + ,2035 + ,21 + ,78 + ,254488 + ,2312 + ,39 + ,117 + ,104389 + ,1369 + ,41 + ,148 + ,136084 + ,1577 + ,13 + ,41 + ,199476 + ,2201 + ,32 + ,105 + ,92499 + ,961 + ,18 + ,55 + ,224330 + ,1900 + ,39 + ,132 + ,135781 + ,1254 + ,14 + ,44 + ,74408 + ,1335 + ,7 + ,21 + ,81240 + ,1597 + ,17 + ,50 + ,14688 + ,207 + ,0 + ,0 + ,181633 + ,1645 + ,30 + ,73 + ,271856 + ,2429 + ,37 + ,86 + ,7199 + ,151 + ,0 + ,0 + ,46660 + ,474 + ,5 + ,13 + ,17547 + ,141 + ,1 + ,4 + ,133368 + ,1639 + ,16 + ,57 + ,95227 + ,872 + ,32 + ,48 + ,152601 + ,1318 + ,24 + ,46 + ,98146 + ,1018 + ,17 + ,48 + ,79619 + ,1383 + ,11 + ,32 + ,59194 + ,1314 + ,24 + ,68 + ,139942 + ,1335 + ,22 + ,87 + ,118612 + ,1403 + ,12 + ,43 + ,72880 + ,910 + ,19 + ,67 + ,65475 + ,616 + ,13 + ,46 + ,99643 + ,1407 + ,17 + ,46 + ,71965 + ,771 + ,15 + ,56 + ,77272 + ,766 + ,16 + ,48 + ,49289 + ,473 + ,24 + ,44 + ,135131 + ,1376 + ,15 + ,60 + ,108446 + ,1232 + ,17 + ,65 + ,89746 + ,1521 + ,18 + ,55 + ,44296 + ,572 + ,20 + ,38 + ,77648 + ,1059 + ,16 + ,52 + ,181528 + ,1544 + ,16 + ,60 + ,134019 + ,1230 + ,18 + ,54 + ,124064 + ,1206 + ,22 + ,86 + ,92630 + ,1205 + ,8 + ,24 + ,121848 + ,1255 + ,17 + ,52 + ,52915 + ,613 + ,18 + ,49 + ,81872 + ,721 + ,16 + ,61 + ,58981 + ,1109 + ,23 + ,61 + ,53515 + ,740 + ,22 + ,81 + ,60812 + ,1126 + ,13 + ,43 + ,56375 + ,728 + ,13 + ,40 + ,65490 + ,689 + ,16 + ,40 + ,80949 + ,592 + ,16 + ,56 + ,76302 + ,995 + ,20 + ,68 + ,104011 + ,1613 + ,22 + ,79 + ,98104 + ,2048 + ,17 + ,47 + ,67989 + ,705 + ,18 + ,57 + ,30989 + ,301 + ,17 + ,41 + ,135458 + ,1803 + ,12 + ,29 + ,73504 + ,799 + ,7 + ,3 + ,63123 + ,861 + ,17 + ,60 + ,61254 + ,1186 + ,14 + ,30 + ,74914 + ,1451 + ,23 + ,79 + ,31774 + ,628 + ,17 + ,47 + ,81437 + ,1161 + ,14 + ,40 + ,87186 + ,1463 + ,15 + ,48 + ,50090 + ,742 + ,17 + ,36 + ,65745 + ,979 + ,21 + ,42 + ,56653 + ,675 + ,18 + ,49 + ,158399 + ,1241 + ,18 + ,57 + ,46455 + ,676 + ,17 + ,12 + ,73624 + ,1049 + ,17 + ,40 + ,38395 + ,620 + ,16 + ,43 + ,91899 + ,1081 + ,15 + ,33 + ,139526 + ,1688 + ,21 + ,77 + ,52164 + ,736 + ,16 + ,43 + ,51567 + ,617 + ,14 + ,45 + ,70551 + ,812 + ,15 + ,47 + ,84856 + ,1051 + ,17 + ,43 + ,102538 + ,1656 + ,15 + ,45 + ,86678 + ,705 + ,15 + ,50 + ,85709 + ,945 + ,10 + ,35 + ,34662 + ,554 + ,6 + ,7 + ,150580 + ,1597 + ,22 + ,71 + ,99611 + ,982 + ,21 + ,67 + ,19349 + ,222 + ,1 + ,0 + ,99373 + ,1212 + ,18 + ,62 + ,86230 + ,1143 + ,17 + ,54 + ,30837 + ,435 + ,4 + ,4 + ,31706 + ,532 + ,10 + ,25 + ,89806 + ,882 + ,16 + ,40 + ,62088 + ,608 + ,16 + ,38 + ,40151 + ,459 + ,9 + ,19 + ,27634 + ,578 + ,16 + ,17 + ,76990 + ,826 + ,17 + ,67 + ,37460 + ,509 + ,7 + ,14 + ,54157 + ,717 + ,15 + ,30 + ,49862 + ,637 + ,14 + ,54 + ,84337 + ,857 + ,14 + ,35 + ,64175 + ,830 + ,18 + ,59 + ,59382 + ,652 + ,12 + ,24 + ,119308 + ,707 + ,16 + ,58 + ,76702 + ,954 + ,21 + ,42 + ,103425 + ,1461 + ,19 + ,46 + ,70344 + ,672 + ,16 + ,61 + ,43410 + ,778 + ,1 + ,3 + ,104838 + ,1141 + ,16 + ,52 + ,62215 + ,680 + ,10 + ,25 + ,69304 + ,1090 + ,19 + ,40 + ,53117 + ,616 + ,12 + ,32 + ,19764 + ,285 + ,2 + ,4 + ,86680 + ,1145 + ,14 + ,49 + ,84105 + ,733 + ,17 + ,63 + ,77945 + ,888 + ,19 + ,67 + ,89113 + ,849 + ,14 + ,32 + ,91005 + ,1182 + ,11 + ,23 + ,40248 + ,528 + ,4 + ,7 + ,64187 + ,642 + ,16 + ,54 + ,50857 + ,947 + ,20 + ,37 + ,56613 + ,819 + ,12 + ,35 + ,62792 + ,757 + ,15 + ,51 + ,72535 + ,894 + ,16 + ,39) + ,dim=c(4 + ,289) + ,dimnames=list(c('time_in_rfc' + ,'pageviews' + ,'compendiums_reviewed' + ,'feedback_messages_p120 ') + ,1:289)) > y <- array(NA,dim=c(4,289),dimnames=list(c('time_in_rfc','pageviews','compendiums_reviewed','feedback_messages_p120 '),1:289)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } > par1 = 'kendall' > main = 'Correlation Matrix' > #'GNU S' R Code compiled by R2WASP v. 1.0.44 () > #Author: Dr. Ian E. Holliday > #To cite this work: Ian E. Holliday, 2009, YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/ > #Source of accompanying publication: > #Technical description: > 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', ...) + } > postscript(file="/var/www/rcomp/tmp/1evf91324666904.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main) Warning messages: 1: In strwidth(labels, "user") : font width unknown for character 0xd 2: In text.default(x, y, txt, cex = cex, font = font) : font width unknown for character 0xd 3: In text.default(x, y, txt, cex = cex, font = font) : font metrics unknown for character 0xd > dev.off() null device 1 > > #Note: the /var/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/rcomp/createtable") > > n <- length(y[,1]) > n [1] 4 > 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="/var/www/rcomp/tmp/2e0tp1324666904.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) Kendall's rank correlation tau data: y[1, ] and y[2, ] z = 18.7212, p-value < 2.2e-16 alternative hypothesis: true tau is not equal to 0 sample estimates: tau 0.7387167 > 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) + } + } Warning messages: 1: In cor.test.default(y[i, ], y[j, ], method = "spearman") : Cannot compute exact p-values with ties 2: In cor.test.default(y[i, ], y[j, ], method = "spearman") : Cannot compute exact p-values with ties 3: In cor.test.default(y[i, ], y[j, ], method = "spearman") : Cannot compute exact p-values with ties 4: In cor.test.default(y[i, ], y[j, ], method = "spearman") : Cannot compute exact p-values with ties 5: In cor.test.default(y[i, ], y[j, ], method = "spearman") : Cannot compute exact p-values with ties 6: In cor.test.default(y[i, ], y[j, ], method = "spearman") : Cannot compute exact p-values with ties > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/3n36v1324666904.tab") > > try(system("convert tmp/1evf91324666904.ps tmp/1evf91324666904.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 1.330 0.050 1.383