R version 2.13.0 (2011-04-13) Copyright (C) 2011 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 + ,30 + ,79 + ,-1 + ,0 + ,1 + ,120982 + ,28 + ,58 + ,NA + ,NA + ,NA + ,176508 + ,38 + ,60 + ,NA + ,NA + ,NA + ,179321 + ,30 + ,108 + ,-1 + ,1 + ,1 + ,123185 + ,22 + ,49 + ,NA + ,NA + ,NA + ,52746 + ,26 + ,0 + ,NA + ,NA + ,NA + ,385534 + ,25 + ,121 + ,NA + ,NA + ,NA + ,33170 + ,18 + ,1 + ,NA + ,NA + ,NA + ,101645 + ,11 + ,20 + ,NA + ,NA + ,NA + ,149061 + ,26 + ,43 + ,-1 + ,1 + ,-1 + ,165446 + ,25 + ,69 + ,NA + ,NA + ,NA + ,237213 + ,38 + ,78 + ,-1 + ,0 + ,-1 + ,173326 + ,44 + ,86 + ,-1 + ,-1 + ,1 + ,133131 + ,30 + ,44 + ,1 + ,-1 + ,1 + ,258873 + ,40 + ,104 + ,-1 + ,1 + ,1 + ,180083 + ,34 + ,63 + ,NA + ,NA + ,NA + ,324799 + ,47 + ,158 + ,-1 + ,1 + ,1 + ,230964 + ,30 + ,102 + ,-1 + ,0 + ,-1 + ,236785 + ,31 + ,77 + ,0 + ,0 + ,0 + ,135473 + ,23 + ,82 + ,NA + ,NA + ,NA + ,202925 + ,36 + ,115 + ,NA + ,NA + ,NA + ,215147 + ,36 + ,101 + ,NA + ,NA + ,NA + ,344297 + ,30 + ,80 + ,-1 + ,1 + ,-1 + ,153935 + ,25 + ,50 + ,NA + ,NA + ,NA + ,132943 + ,39 + ,83 + ,NA + ,NA + ,NA + ,174724 + ,34 + ,123 + ,-1 + ,1 + ,-1 + ,174415 + ,31 + ,73 + ,0 + ,1 + ,1 + ,225548 + ,31 + ,81 + ,NA + ,NA + ,NA + ,223632 + ,33 + ,105 + ,-1 + ,-1 + ,0 + ,124817 + ,25 + ,47 + ,NA + ,NA + ,NA + ,221698 + ,33 + ,105 + ,NA + ,NA + ,NA + ,210767 + ,35 + ,94 + ,NA + ,NA + ,NA + ,170266 + ,42 + ,44 + ,NA + ,NA + ,NA + ,260561 + ,43 + ,114 + ,NA + ,NA + ,NA + ,84853 + ,30 + ,38 + ,NA + ,NA + ,NA + ,294424 + ,33 + ,107 + ,-1 + ,1 + ,-1 + ,101011 + ,13 + ,30 + ,NA + ,NA + ,NA + ,215641 + ,32 + ,71 + ,NA + ,NA + ,NA + ,325107 + ,36 + ,84 + ,0 + ,1 + ,-1 + ,7176 + ,0 + ,0 + ,NA + ,NA + ,NA + ,167542 + ,28 + ,59 + ,NA + ,NA + ,NA + ,106408 + ,14 + ,33 + ,0 + ,1 + ,1 + ,96560 + ,17 + ,42 + ,-1 + ,0 + ,-1 + ,265769 + ,32 + ,96 + ,-1 + ,1 + ,-1 + ,269651 + ,30 + ,106 + ,-1 + ,-1 + ,-1 + ,149112 + ,35 + ,56 + ,-1 + ,-1 + ,-1 + ,175824 + ,20 + ,57 + ,NA + ,NA + ,NA + ,152871 + ,28 + ,59 + ,-1 + ,1 + ,-1 + ,111665 + ,28 + ,39 + ,NA + ,NA + ,NA + ,116408 + ,39 + ,34 + ,NA + ,NA + ,NA + ,362301 + ,34 + ,76 + ,-1 + ,-1 + ,-1 + ,78800 + ,26 + ,20 + ,NA + ,NA + ,NA + ,183167 + ,39 + ,91 + ,-1 + ,-1 + ,1 + ,277965 + ,39 + ,115 + ,1 + ,1 + ,-1 + ,150629 + ,33 + ,85 + ,NA + ,NA + ,NA + ,168809 + ,28 + ,76 + ,NA + ,NA + ,NA + ,24188 + ,4 + ,8 + ,NA + ,NA + ,NA + ,329267 + ,39 + ,79 + ,NA + ,NA + ,NA + ,65029 + ,18 + ,21 + ,NA + ,NA + ,NA + ,101097 + ,14 + ,30 + ,NA + ,NA + ,NA + ,218946 + ,29 + ,76 + ,-1 + ,1 + ,-1 + ,244052 + ,44 + ,101 + ,-1 + ,1 + ,1 + ,341570 + ,21 + ,94 + ,-1 + ,-1 + ,-1 + ,103597 + ,16 + ,27 + ,NA + ,NA + ,NA + ,233328 + ,28 + ,92 + ,1 + ,1 + ,1 + ,256462 + ,35 + ,123 + ,NA + ,NA + ,NA + ,206161 + ,28 + ,75 + ,-1 + ,-1 + ,-1 + ,311473 + ,38 + ,128 + ,-1 + ,1 + ,1 + ,235800 + ,23 + ,105 + ,NA + ,NA + ,NA + ,177939 + ,36 + ,55 + ,NA + ,NA + ,NA + ,207176 + ,32 + ,56 + ,-1 + ,-1 + ,1 + ,196553 + ,29 + ,41 + ,-1 + ,1 + ,-1 + ,174184 + ,25 + ,72 + ,NA + ,NA + ,NA + ,143246 + ,27 + ,67 + ,-1 + ,1 + ,1 + ,187559 + ,36 + ,75 + ,NA + ,NA + ,NA + ,187681 + ,28 + ,114 + ,NA + ,NA + ,NA + ,119016 + ,23 + ,118 + ,NA + ,NA + ,NA + ,182192 + ,40 + ,77 + ,1 + ,-1 + ,1 + ,73566 + ,23 + ,22 + ,NA + ,NA + ,NA + ,194979 + ,40 + ,66 + ,1 + ,-1 + ,1 + ,167488 + ,28 + ,69 + ,-1 + ,1 + ,-1 + ,143756 + ,34 + ,105 + ,0 + ,1 + ,1 + ,275541 + ,33 + ,116 + ,-1 + ,1 + ,1 + ,243199 + ,28 + ,88 + ,NA + ,NA + ,NA + ,182999 + ,34 + ,73 + ,NA + ,NA + ,NA + ,135649 + ,30 + ,99 + ,NA + ,NA + ,NA + ,152299 + ,33 + ,62 + ,-1 + ,1 + ,0 + ,120221 + ,22 + ,53 + ,NA + ,NA + ,NA + ,346485 + ,38 + ,118 + ,NA + ,NA + ,NA + ,145790 + ,26 + ,30 + ,NA + ,NA + ,NA + ,193339 + ,35 + ,100 + ,-1 + ,-1 + ,1 + ,80953 + ,8 + ,49 + ,NA + ,NA + ,NA + ,122774 + ,24 + ,24 + ,NA + ,NA + ,NA + ,130585 + ,29 + ,67 + ,-1 + ,-1 + ,1 + ,112611 + ,20 + ,46 + ,-1 + ,-1 + ,1 + ,286468 + ,29 + ,57 + ,NA + ,NA + ,NA + ,241066 + ,45 + ,75 + ,NA + ,NA + ,NA + ,148446 + ,37 + ,135 + ,-1 + ,1 + ,1 + ,204713 + ,33 + ,68 + ,NA + ,NA + ,NA + ,182079 + ,33 + ,124 + ,-1 + ,1 + ,1 + ,140344 + ,25 + ,33 + ,NA + ,NA + ,NA + ,220516 + ,32 + ,98 + ,NA + ,NA + ,NA + ,243060 + ,29 + ,58 + ,-1 + ,1 + ,-1 + ,162765 + ,28 + ,68 + ,-1 + ,1 + ,-1 + ,182613 + ,28 + ,81 + ,NA + ,NA + ,NA + ,232138 + ,31 + ,131 + ,NA + ,NA + ,NA + ,265318 + ,52 + ,110 + ,NA + ,NA + ,NA + ,85574 + ,21 + ,37 + ,-1 + ,1 + ,-1 + ,310839 + ,24 + ,130 + ,NA + ,NA + ,NA + ,225060 + ,41 + ,93 + ,-1 + ,-1 + ,-1 + ,232317 + ,33 + ,118 + ,NA + ,NA + ,NA + ,144966 + ,32 + ,39 + ,NA + ,NA + ,NA + ,43287 + ,19 + ,13 + ,NA + ,NA + ,NA + ,155754 + ,20 + ,74 + ,NA + ,NA + ,NA + ,164709 + ,31 + ,81 + ,NA + ,NA + ,NA + ,201940 + ,31 + ,109 + ,NA + ,NA + ,NA + ,235454 + ,32 + ,151 + ,NA + ,NA + ,NA + ,220801 + ,18 + ,51 + ,NA + ,NA + ,NA + ,99466 + ,23 + ,28 + ,NA + ,NA + ,NA + ,92661 + ,17 + ,40 + ,NA + ,NA + ,NA + ,133328 + ,20 + ,56 + ,-1 + ,-1 + ,-1 + ,61361 + ,12 + ,27 + ,NA + ,NA + ,NA + ,125930 + ,17 + ,37 + ,NA + ,NA + ,NA + ,100750 + ,30 + ,83 + ,-1 + ,1 + ,1 + ,224549 + ,31 + ,54 + ,NA + ,NA + ,NA + ,82316 + ,10 + ,27 + ,NA + ,NA + ,NA + ,102010 + ,13 + ,28 + ,NA + ,NA + ,NA + ,101523 + ,22 + ,59 + ,-1 + ,-1 + ,-1 + ,243511 + ,42 + ,133 + ,-1 + ,-1 + ,-1 + ,22938 + ,1 + ,12 + ,NA + ,NA + ,NA + ,41566 + ,9 + ,0 + ,NA + ,NA + ,NA + ,152474 + ,32 + ,106 + ,0 + ,0 + ,0 + ,61857 + ,11 + ,23 + ,NA + ,NA + ,NA + ,99923 + ,25 + ,44 + ,NA + ,NA + ,NA + ,132487 + ,36 + ,71 + ,-1 + ,1 + ,-1 + ,317394 + ,31 + ,116 + ,-1 + ,-1 + ,-1 + ,21054 + ,0 + ,4 + ,NA + ,NA + ,NA + ,209641 + ,24 + ,62 + ,NA + ,NA + ,NA + ,22648 + ,13 + ,12 + ,NA + ,NA + ,NA + ,31414 + ,8 + ,18 + ,NA + ,NA + ,NA + ,46698 + ,13 + ,14 + ,NA + ,NA + ,NA + ,131698 + ,19 + ,60 + ,NA + ,NA + ,NA + ,91735 + ,18 + ,7 + ,NA + ,NA + ,NA + ,244749 + ,33 + ,98 + ,-1 + ,-1 + ,-1 + ,184510 + ,40 + ,64 + ,-1 + ,-1 + ,-1 + ,79863 + ,22 + ,29 + ,NA + ,NA + ,NA + ,128423 + ,38 + ,32 + ,-1 + ,1 + ,-1 + ,97839 + ,24 + ,25 + ,-1 + ,0 + ,0 + ,38214 + ,8 + ,16 + ,NA + ,NA + ,NA + ,151101 + ,35 + ,48 + ,NA + ,NA + ,NA + ,272458 + ,43 + ,100 + ,NA + ,NA + ,NA + ,172494 + ,43 + ,46 + ,-1 + ,1 + ,0 + ,108043 + ,14 + ,45 + ,NA + ,NA + ,NA + ,328107 + ,41 + ,129 + ,NA + ,NA + ,NA + ,250579 + ,38 + ,130 + ,NA + ,NA + ,NA + ,351067 + ,45 + ,136 + ,NA + ,NA + ,NA + ,158015 + ,31 + ,59 + ,NA + ,NA + ,NA + ,98866 + ,13 + ,25 + ,NA + ,NA + ,NA + ,85439 + ,28 + ,32 + ,NA + ,NA + ,NA + ,229242 + ,31 + ,63 + ,1 + ,-1 + ,-1 + ,351619 + ,40 + ,95 + ,1 + ,1 + ,1 + ,84207 + ,30 + ,14 + ,NA + ,NA + ,NA + ,120445 + ,16 + ,36 + ,NA + ,NA + ,NA + ,324598 + ,37 + ,113 + ,-1 + ,-1 + ,1 + ,131069 + ,30 + ,47 + ,NA + ,NA + ,NA + ,204271 + ,35 + ,92 + ,NA + ,NA + ,NA + ,165543 + ,32 + ,70 + ,NA + ,NA + ,NA + ,141722 + ,27 + ,19 + ,NA + ,NA + ,NA + ,116048 + ,20 + ,50 + ,NA + ,NA + ,NA + ,250047 + ,18 + ,41 + ,NA + ,NA + ,NA + ,299775 + ,31 + ,91 + ,NA + ,NA + ,NA + ,195838 + ,31 + ,111 + ,-1 + ,-1 + ,1 + ,173260 + ,21 + ,41 + ,NA + ,NA + ,NA + ,254488 + ,39 + ,120 + ,-1 + ,1 + ,-1 + ,104389 + ,41 + ,135 + ,NA + ,NA + ,NA + ,136084 + ,13 + ,27 + ,NA + ,NA + ,NA + ,199476 + ,32 + ,87 + ,-1 + ,1 + ,0 + ,92499 + ,18 + ,25 + ,0 + ,-1 + ,1 + ,224330 + ,39 + ,131 + ,-1 + ,-1 + ,-1 + ,135781 + ,14 + ,45 + ,NA + ,NA + ,NA + ,74408 + ,7 + ,29 + ,NA + ,NA + ,NA + ,81240 + ,17 + ,58 + ,NA + ,NA + ,NA + ,14688 + ,0 + ,4 + ,NA + ,NA + ,NA + ,181633 + ,30 + ,47 + ,-1 + ,1 + ,1 + ,271856 + ,37 + ,109 + ,-1 + ,-1 + ,-1 + ,7199 + ,0 + ,7 + ,NA + ,NA + ,NA + ,46660 + ,5 + ,12 + ,NA + ,NA + ,NA + ,17547 + ,1 + ,0 + ,NA + ,NA + ,NA + ,133368 + ,16 + ,37 + ,NA + ,NA + ,NA + ,95227 + ,32 + ,37 + ,0 + ,1 + ,0 + ,152601 + ,24 + ,46 + ,NA + ,NA + ,NA + ,98146 + ,17 + ,15 + ,-1 + ,-1 + ,0 + ,79619 + ,11 + ,42 + ,NA + ,NA + ,NA + ,59194 + ,24 + ,7 + ,NA + ,NA + ,NA + ,139942 + ,22 + ,54 + ,NA + ,NA + ,NA + ,118612 + ,12 + ,54 + ,-1 + ,1 + ,-1 + ,72880 + ,19 + ,14 + ,NA + ,NA + ,NA + ,65475 + ,13 + ,16 + ,-1 + ,1 + ,0 + ,99643 + ,17 + ,33 + ,NA + ,NA + ,NA + ,71965 + ,15 + ,32 + ,NA + ,NA + ,NA + ,77272 + ,16 + ,21 + ,NA + ,NA + ,NA + ,49289 + ,24 + ,15 + ,NA + ,NA + ,NA + ,135131 + ,15 + ,38 + ,NA + ,NA + ,NA + ,108446 + ,17 + ,22 + ,0 + ,0 + ,0 + ,89746 + ,18 + ,28 + ,NA + ,NA + ,NA + ,44296 + ,20 + ,10 + ,NA + ,NA + ,NA + ,77648 + ,16 + ,31 + ,NA + ,NA + ,NA + ,181528 + ,16 + ,32 + ,NA + ,NA + ,NA + ,134019 + ,18 + ,32 + ,NA + ,NA + ,NA + ,124064 + ,22 + ,43 + ,NA + ,NA + ,NA + ,92630 + ,8 + ,27 + ,NA + ,NA + ,NA + ,121848 + ,17 + ,37 + ,0 + ,0 + ,-1 + ,52915 + ,18 + ,20 + ,NA + ,NA + ,NA + ,81872 + ,16 + ,32 + ,NA + ,NA + ,NA + ,58981 + ,23 + ,0 + ,NA + ,NA + ,NA + ,53515 + ,22 + ,5 + ,NA + ,NA + ,NA + ,60812 + ,13 + ,26 + ,NA + ,NA + ,NA + ,56375 + ,13 + ,10 + ,NA + ,NA + ,NA + ,65490 + ,16 + ,27 + ,NA + ,NA + ,NA + ,80949 + ,16 + ,11 + ,NA + ,NA + ,NA + ,76302 + ,20 + ,29 + ,-1 + ,1 + ,0 + ,104011 + ,22 + ,25 + ,NA + ,NA + ,NA + ,98104 + ,17 + ,55 + ,-1 + ,1 + ,1 + ,67989 + ,18 + ,23 + ,NA + ,NA + ,NA + ,30989 + ,17 + ,5 + ,-1 + ,-1 + ,1 + ,135458 + ,12 + ,43 + ,NA + ,NA + ,NA + ,73504 + ,7 + ,23 + ,NA + ,NA + ,NA + ,63123 + ,17 + ,34 + ,NA + ,NA + ,NA + ,61254 + ,14 + ,36 + ,NA + ,NA + ,NA + ,74914 + ,23 + ,35 + ,NA + ,NA + ,NA + ,31774 + ,17 + ,0 + ,-1 + ,0 + ,1 + ,81437 + ,14 + ,37 + ,NA + ,NA + ,NA + ,87186 + ,15 + ,28 + ,NA + ,NA + ,NA + ,50090 + ,17 + ,16 + ,NA + ,NA + ,NA + ,65745 + ,21 + ,26 + ,NA + ,NA + ,NA + ,56653 + ,18 + ,38 + ,NA + ,NA + ,NA + ,158399 + ,18 + ,23 + ,NA + ,NA + ,NA + ,46455 + ,17 + ,22 + ,NA + ,NA + ,NA + ,73624 + ,17 + ,30 + ,NA + ,NA + ,NA + ,38395 + ,16 + ,16 + ,NA + ,NA + ,NA + ,91899 + ,15 + ,18 + ,NA + ,NA + ,NA + ,139526 + ,21 + ,28 + ,NA + ,NA + ,NA + ,52164 + ,16 + ,32 + ,NA + ,NA + ,NA + ,51567 + ,14 + ,21 + ,NA + ,NA + ,NA + ,70551 + ,15 + ,23 + ,NA + ,NA + ,NA + ,84856 + ,17 + ,29 + ,NA + ,NA + ,NA + ,102538 + ,15 + ,50 + ,NA + ,NA + ,NA + ,86678 + ,15 + ,12 + ,NA + ,NA + ,NA + ,85709 + ,10 + ,21 + ,NA + ,NA + ,NA + ,34662 + ,6 + ,18 + ,NA + ,NA + ,NA + ,150580 + ,22 + ,27 + ,-1 + ,-1 + ,0 + ,99611 + ,21 + ,41 + ,NA + ,NA + ,NA + ,19349 + ,1 + ,13 + ,NA + ,NA + ,NA + ,99373 + ,18 + ,12 + ,NA + ,NA + ,NA + ,86230 + ,17 + ,21 + ,NA + ,NA + ,NA + ,30837 + ,4 + ,8 + ,NA + ,NA + ,NA + ,31706 + ,10 + ,26 + ,NA + ,NA + ,NA + ,89806 + ,16 + ,27 + ,NA + ,NA + ,NA + ,62088 + ,16 + ,13 + ,NA + ,NA + ,NA + ,40151 + ,9 + ,16 + ,NA + ,NA + ,NA + ,27634 + ,16 + ,2 + ,NA + ,NA + ,NA + ,76990 + ,17 + ,42 + ,NA + ,NA + ,NA + ,37460 + ,7 + ,5 + ,NA + ,NA + ,NA + ,54157 + ,15 + ,37 + ,0 + ,1 + ,0 + ,49862 + ,14 + ,17 + ,NA + ,NA + ,NA + ,84337 + ,14 + ,38 + ,NA + ,NA + ,NA + ,64175 + ,18 + ,37 + ,NA + ,NA + ,NA + ,59382 + ,12 + ,29 + ,0 + ,1 + ,-1 + ,119308 + ,16 + ,32 + ,NA + ,NA + ,NA + ,76702 + ,21 + ,35 + ,NA + ,NA + ,NA + ,103425 + ,19 + ,17 + ,NA + ,NA + ,NA + ,70344 + ,16 + ,20 + ,NA + ,NA + ,NA + ,43410 + ,1 + ,7 + ,NA + ,NA + ,NA + ,104838 + ,16 + ,46 + ,NA + ,NA + ,NA + ,62215 + ,10 + ,24 + ,NA + ,NA + ,NA + ,69304 + ,19 + ,40 + ,NA + ,NA + ,NA + ,53117 + ,12 + ,3 + ,NA + ,NA + ,NA + ,19764 + ,2 + ,10 + ,NA + ,NA + ,NA + ,86680 + ,14 + ,37 + ,NA + ,NA + ,NA + ,84105 + ,17 + ,17 + ,-1 + ,-1 + ,-1 + ,77945 + ,19 + ,28 + ,NA + ,NA + ,NA + ,89113 + ,14 + ,19 + ,NA + ,NA + ,NA + ,91005 + ,11 + ,29 + ,NA + ,NA + ,NA + ,40248 + ,4 + ,8 + ,NA + ,NA + ,NA + ,64187 + ,16 + ,10 + ,NA + ,NA + ,NA + ,50857 + ,20 + ,15 + ,NA + ,NA + ,NA + ,56613 + ,12 + ,15 + ,NA + ,NA + ,NA + ,62792 + ,15 + ,28 + ,NA + ,NA + ,NA + ,72535 + ,16 + ,17 + ,NA + ,NA + ,NA) + ,dim=c(6 + ,289) + ,dimnames=list(c('TimeRFC' + ,'Reviewed' + ,'Blogged' + ,'Test1' + ,'Test2' + ,'Test3') + ,1:289)) > y <- array(NA,dim=c(6,289),dimnames=list(c('TimeRFC','Reviewed','Blogged','Test1','Test2','Test3'),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' > 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/wessaorg/rcomp/tmp/1xedr1323943896.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) > dev.off() null device 1 > > #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/wessaorg/rcomp/createtable") > > n <- length(y[,1]) > n [1] 6 > 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/wessaorg/rcomp/tmp/2e66r1323943896.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 = 14.7462, p-value < 2.2e-16 alternative hypothesis: true tau is not equal to 0 sample estimates: tau 0.5898575 > 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) + } + } There were 15 warnings (use warnings() to see them) > a<-table.end(a) > table.save(a,file="/var/wessaorg/rcomp/tmp/33ukv1323943896.tab") > > try(system("convert tmp/1xedr1323943896.ps tmp/1xedr1323943896.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 1.772 0.109 1.890