R version 2.9.0 (2009-04-17) Copyright (C) 2009 The R Foundation for Statistical Computing ISBN 3-900051-07-0 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(0.122359934 + ,0.358589807 + ,0.931905548 + ,4.214511881 + ,-0.055775589 + ,0.420547929 + ,1.468985837 + ,3.033704781 + ,1.055123159 + ,-0.56052437 + ,0.944996502 + ,-2.838342909 + ,1.068458953 + ,-3.59195797 + ,0.316141818 + ,-6.503810163 + ,0.760538937 + ,5.033758581 + ,-2.20217258 + ,1.822352229 + ,-0.131541265 + ,-1.643968707 + ,-0.532224765 + ,4.637069866 + ,-1.741321669 + ,2.605785323 + ,0.204726282 + ,2.374789523 + ,-0.147865278 + ,-0.774121623 + ,1.396025769 + ,-0.18761552 + ,0.162345476 + ,-5.476045205 + ,0.015665853 + ,1.447158493 + ,0.217672981 + ,-5.204314911 + ,-0.917486426 + ,-2.825441851 + ,-0.903483082 + ,-2.981766221 + ,0.37057944 + ,3.477155845 + ,-1.528186024 + ,-0.074804163 + ,1.425442977 + ,-0.747083419 + ,0.823776349 + ,0.087556846 + ,1.16416148 + ,1.717535987 + ,0.548322968 + ,0.265092469 + ,-0.145197568 + ,0.981838958 + ,0.144016721 + ,0.684387041 + ,-0.008729414 + ,0.745580981 + ,-0.044488825 + ,-7.057264511 + ,2.265085141 + ,-1.339602775 + ,-2.30024615 + ,6.03224455 + ,-0.802974595 + ,3.333000547 + ,1.905081291 + ,0.387430727 + ,0.141275448 + ,-0.492571244 + ,-0.274557318 + ,-1.114554463 + ,-1.089390275 + ,0.986362193 + ,-0.106056668 + ,-4.178129754 + ,0.153839662 + ,0.909776697 + ,1.378581549 + ,-7.566372304 + ,0.984071836 + ,3.040076348 + ,-1.093840675 + ,-8.618545405 + ,-2.335855288 + ,-4.975483225 + ,0.019620673 + ,0.269474159 + ,-0.773231639 + ,-3.502271034 + ,0.531269746 + ,1.756026214 + ,-3.130460456 + ,1.961162274 + ,-1.063832741 + ,-10.19663213 + ,1.864410977 + ,3.866961067 + ,-1.765416679 + ,2.959241025 + ,-0.680077954 + ,5.786212324 + ,-0.465236897 + ,-6.26689154 + ,2.087199736 + ,-0.665419672 + ,-3.08370281 + ,0.355327246 + ,-0.865874128 + ,-4.465315313 + ,0.852274105 + ,-3.636530751 + ,-2.170886194 + ,0.916132779 + ,-0.42542584 + ,5.892284803 + ,-6.885803565 + ,2.819396501 + ,0.797287754 + ,1.358031711 + ,2.743745431 + ,3.472312894 + ,-1.351253289 + ,-0.798747936 + ,2.723775248 + ,2.201569021 + ,-0.265752017 + ,-2.740539939 + ,0.628595851 + ,-8.425176128 + ,1.685366026 + ,4.576725209 + ,-3.512413068 + ,-0.163276651 + ,0.213871684 + ,5.096224222 + ,3.188286472 + ,1.272592869 + ,0.271504185 + ,5.100785917 + ,-0.398480607 + ,-4.457886388 + ,-0.968286123 + ,-0.340800482 + ,-0.812342823 + ,-8.220223643 + ,1.714817333 + ,-2.805502328 + ,-2.910379004 + ,2.246491982 + ,-0.863810554 + ,0.143995451 + ,-0.211153485 + ,3.294160473 + ,-1.471741777 + ,1.000168003 + ,1.321517564 + ,-1.032622833 + ,0.2632073 + ,9.151328623 + ,-3.586108009 + ,1.90221947 + ,3.524638387 + ,-3.883571884 + ,2.073869999 + ,-0.163667593 + ,-1.349714486 + ,-1.799971377 + ,0.647566188 + ,-0.773225401 + ,1.610373405 + ,1.292136516 + ,-0.205131216 + ,1.430141163 + ,3.117976023 + ,-2.042196108 + ,1.983811507 + ,3.366728864 + ,-0.574764692 + ,2.244260398 + ,2.005568836 + ,-0.331813788 + ,1.261019639 + ,0.865535035 + ,-0.024939629 + ,3.650254091 + ,-0.237549844 + ,1.90654942 + ,0.211769735 + ,2.797597632 + ,-0.068297898 + ,-1.73372425 + ,0.020923687 + ,-3.761268377 + ,-0.049292778 + ,2.152813415 + ,-0.046741439 + ,-3.723793261 + ,-0.199106019 + ,-1.190889523 + ,-1.867970158 + ,-0.97549975 + ,-1.910721422 + ,-1.917168484 + ,1.572336912 + ,-8.371650271 + ,0.278963542 + ,1.29636821 + ,-3.002324916 + ,0.862891059 + ,-0.429296011 + ,0.45714904 + ,-0.360255949 + ,-2.135685819 + ,-1.54444216 + ,2.370873598 + ,2.074267337 + ,1.420567252 + ,2.268283466 + ,1.11247933 + ,0.470843123 + ,0.750168076 + ,0.612020641 + ,-7.550796046 + ,0.088859022 + ,-2.09736341 + ,-0.741154231 + ,-3.029848055 + ,-1.702438454 + ,2.222742419 + ,-0.701120629 + ,-11.39124599 + ,0.848785545 + ,-3.448975351 + ,-3.118553809 + ,-6.991908479 + ,-0.340791363 + ,-2.137404059 + ,-2.084450156 + ,6.27314404 + ,-2.657138582 + ,-1.787735714 + ,2.483969208 + ,-3.374998736 + ,1.092183998 + ,0.043628003 + ,0.214914883 + ,-5.666504925 + ,-2.252556302 + ,-2.686506291 + ,0.081923776 + ,-7.06566099 + ,-1.090016937 + ,-1.646318617 + ,0.091750747 + ,4.993320585 + ,-0.302970612 + ,-5.827222717 + ,3.266721419 + ,2.661738145 + ,0.272181497 + ,10.7248933 + ,-1.509282405 + ,3.431334526 + ,3.118010252 + ,5.392091551 + ,0.709336134 + ,-0.718006171 + ,0.797929557 + ,-4.146751437 + ,0.024987012 + ,5.332315454 + ,-0.510022678 + ,6.684877836 + ,1.672039447 + ,1.503336896 + ,1.17811794 + ,1.35993339 + ,-0.195060587 + ,-7.866389577 + ,2.003888686 + ,0.524195986 + ,-1.991462706 + ,1.220770483 + ,-3.780993951 + ,0.559816644 + ,-2.94306251 + ,-3.548850602 + ,-2.755028972 + ,0.128191337 + ,-1.547870074 + ,0.074370732 + ,-1.464063034 + ,3.106940383 + ,-0.355532874 + ,5.515200278 + ,2.484192802 + ,-4.139564796 + ,0.128414605 + ,-3.087731061 + ,-0.645552653 + ,-1.970674609 + ,0.493284806 + ,-6.731845195 + ,2.155227331 + ,-1.35644177 + ,0.842823637 + ,-9.693524485 + ,-3.609266334 + ,-0.294281856 + ,-3.02895622 + ,-5.999112686 + ,0.253120657 + ,4.007826455 + ,0.469936281 + ,1.198314989 + ,-2.414708957 + ,-4.129254019 + ,-0.332056481 + ,-0.073248977 + ,0.021684517 + ,-7.642882768 + ,-0.723477195 + ,-0.295355602 + ,-4.492503369 + ,-9.561506792 + ,1.736091775 + ,-1.976380846 + ,0.568687819 + ,0.508446603 + ,-2.86646043 + ,-3.818072105 + ,-7.457541952 + ,5.882141871 + ,-0.113160554 + ,1.580746623 + ,2.050205993 + ,-2.665063328 + ,5.688886915 + ,1.734601575 + ,-2.789870757 + ,2.581488384 + ,1.853018343 + ,-0.660619869 + ,0.587478284 + ,3.902118748 + ,1.425740928 + ,4.439133346 + ,0.245486658 + ,-1.301320618 + ,2.215449812 + ,-6.604744216 + ,0.30622077 + ,-4.582537935 + ,-4.486786168 + ,3.80404284 + ,-1.245225426 + ,0.808798701 + ,-2.081228135 + ,2.595458525 + ,-0.102782372 + ,0.247289549 + ,-0.231228849 + ,4.887764022 + ,-1.155245505 + ,-4.001119943 + ,3.839469939 + ,-1.927549528 + ,0.756141264 + ,-0.564184003 + ,-0.334519186 + ,-1.558046047 + ,1.501938513 + ,3.972283676 + ,-3.503251683 + ,-5.519802454 + ,2.545822843 + ,0.82316399 + ,-0.249882715 + ,3.427488076 + ,1.826897295 + ,2.74903243 + ,1.183288155 + ,-3.860963592 + ,2.178453894 + ,-4.58611395 + ,0.982882224 + ,-9.451774044 + ,0.192963833 + ,-2.802976135 + ,-4.748270493 + ,-2.752721635 + ,-1.546278111 + ,0.957363779 + ,-0.957344137 + ,-7.556242767 + ,2.771841656 + ,-3.96799907 + ,0.988637626 + ,-1.639954959 + ,0.046130644 + ,0.035474496 + ,0.058911763 + ,0.093061831 + ,-1.613053267 + ,0.037236475 + ,-2.827962948 + ,0.744184164 + ,-0.409646709 + ,-11.0956289 + ,-3.472100215 + ,9.414640904 + ,-2.67352482 + ,-5.909305325 + ,3.739603344 + ,9.372040194 + ,0.940575248 + ,3.247696555 + ,2.715238152 + ,2.859199301 + ,1.590584938 + ,-4.966832825 + ,-1.901196912 + ,-4.749458918 + ,2.168241623 + ,-3.292214504 + ,-3.291258516 + ,12.68155326 + ,2.431989331 + ,2.8534252 + ,1.379624088 + ,2.041548827 + ,1.660957909 + ,-1.886714277 + ,0.803376279 + ,0.742218458 + ,0.635350876 + ,-1.20572167 + ,-1.935088352 + ,-3.501715932 + ,-1.364117462 + ,0.372089171 + ,-1.288076636 + ,-6.273171509 + ,2.763030557 + ,-2.237638513 + ,-1.850948021 + ,0.92103917 + ,-0.426026229 + ,4.644240063 + ,1.416557529 + ,2.009379362 + ,1.054518042 + ,8.699163619 + ,0.100735979 + ,-1.502056368 + ,3.01821026 + ,-3.219268656 + ,-0.582956862 + ,0.304121669 + ,-0.465121784 + ,4.75949758 + ,-1.278449674 + ,4.256396557 + ,3.852168919 + ,1.074037275 + ,1.516127833 + ,-0.766333759 + ,0.679014194 + ,-0.223483754 + ,-1.187703382 + ,8.589799811 + ,1.025403734 + ,-0.301460196 + ,0.921134292 + ,1.607870846 + ,0.473279558 + ,-2.235564155 + ,1.218773055 + ,0.715144187 + ,-1.967712268 + ,-2.09909075 + ,-0.284285615 + ,1.594136105 + ,-0.739335622 + ,0.486504166 + ,0.177297096 + ,1.991971338 + ,0.617738343 + ,3.319154359 + ,1.963704879 + ,0.434992231 + ,1.770795897 + ,1.162593872 + ,0.862954668 + ,-4.52972192 + ,0.736632082 + ,-8.078465542 + ,-1.57670801 + ,-0.823293999 + ,-0.757226618 + ,-4.901134696 + ,0.459526319 + ,-0.751130487 + ,-2.740544672 + ,1.527788823 + ,0.642873603 + ,4.05085425 + ,-1.942390074 + ,4.2824586 + ,0.969546937 + ,1.640060334 + ,2.916260999 + ,-2.101083111 + ,2.804886635 + ,-1.214666919 + ,-1.177267984 + ,-0.637682257 + ,1.442031421 + ,3.978448436 + ,-1.008279712 + ,-10.72567317 + ,1.685048733 + ,-2.101259655 + ,-3.575122053 + ,1.713390308 + ,-3.36169991 + ,-3.88710559 + ,0.544584549 + ,1.583213838 + ,-3.812968258 + ,5.524375994 + ,-0.255478375 + ,1.873810753 + ,2.36107515 + ,-3.052256271 + ,0.231398527 + ,-3.897953357 + ,0.961587017 + ,-0.113383516 + ,-2.766406177 + ,-7.863392352 + ,-1.889330686 + ,1.35133195 + ,-1.722863291 + ,-3.598381738 + ,-0.492311851 + ,2.121311848 + ,-0.378296018 + ,-10.88682204 + ,-0.661148328 + ,-2.919019597 + ,-0.391163065 + ,-1.397866414 + ,-0.147328808 + ,1.201275948 + ,-0.155178326 + ,-6.937555068 + ,-1.410346167 + ,1.17353998 + ,-1.656752775 + ,-0.076365731 + ,-0.498316342 + ,-1.292450094 + ,0.635940123 + ,3.264912799 + ,-2.533052084 + ,-5.68478447 + ,0.066688919 + ,0.019122498 + ,0.010332456 + ,-5.278888259 + ,0.100325395 + ,-2.312827397 + ,-0.159212102 + ,-5.325033478 + ,-1.118768301 + ,7.10070413 + ,-0.360506506 + ,3.182965683 + ,-0.794671339 + ,2.189477739 + ,-1.82637031 + ,0.362991691 + ,0.020284413 + ,3.340000229 + ,2.059692348 + ,3.607943398 + ,1.01468765 + ,-4.729776906 + ,3.219689867 + ,0.120200269 + ,-2.433588329 + ,-6.316271831 + ,-2.372306799 + ,6.823797583 + ,-0.37056341 + ,6.542616296 + ,1.266050442 + ,-1.768356553 + ,0.824592148 + ,-1.649476676 + ,-1.852999286 + ,-4.447415993 + ,-3.161642025 + ,7.304278393 + ,0.442927211 + ,4.086279897 + ,-0.428942112 + ,-1.995853872 + ,-1.310961025 + ,10.55148248 + ,1.014820082 + ,4.342309702 + ,-0.305111502 + ,0.820747831 + ,0.018050147 + ,-0.02219925 + ,-2.696506438 + ,0.779630544 + ,-1.10764417 + ,4.577799942 + ,1.141463332 + ,-2.959278774 + ,0.159323081 + ,-2.907498454 + ,-2.055277082 + ,0.388597756 + ,0.202725995 + ,-1.288827183 + ,-0.3671714 + ,3.788144408 + ,-0.056145558 + ,-4.005747329 + ,-0.897022272 + ,2.955089726 + ,-0.261083776 + ,1.431933215 + ,-0.651847454 + ,4.746211331 + ,-0.339317343 + ,-2.89379125 + ,3.954885606 + ,1.945065692 + ,-2.972657905 + ,-1.090372906 + ,0.291575514 + ,0.548505612 + ,0.387896939 + ,-7.153270644 + ,0.061920658 + ,1.910464401 + ,-4.019270705 + ,5.70114848 + ,2.799936975 + ,-6.495441014 + ,-0.961852566 + ,2.451315442 + ,-0.689420887 + ,6.05434482 + ,-0.528085855 + ,-1.301082342 + ,0.088821319 + ,-14.12580881 + ,-3.596177355 + ,1.600115691 + ,-1.464790191 + ,-14.45720158 + ,0.759085451 + ,5.189001697 + ,-3.392063692 + ,11.41150416 + ,2.383755557 + ,-9.741078015 + ,3.773197159 + ,-8.033645437 + ,0.17271416 + ,-3.083064113 + ,-1.373664483 + ,4.63268051 + ,-0.554515625 + ,2.180441382 + ,-0.616708159 + ,-19.31722406 + ,0.338243237 + ,14.55493563 + ,-4.969501265 + ,1.753334117 + ,-1.459226067 + ,-5.143655248 + ,-3.458393406 + ,-6.606571354 + ,-0.708571911 + ,-6.873940749 + ,-0.967100647 + ,-18.09612055 + ,-2.764883729 + ,-6.553098356 + ,-6.358399349 + ,-19.83898763 + ,-1.216802997 + ,-5.613221572 + ,-7.378604269 + ,19.76716126 + ,6.326253049 + ,5.539571391 + ,2.244553469 + ,-17.73727592 + ,1.064937768 + ,5.112775749 + ,-5.865037234 + ,-1.170409363 + ,-2.548316402 + ,15.46394847 + ,1.936100071 + ,-3.104504085 + ,-0.678052689 + ,-9.306840473 + ,-0.197814711 + ,-1.143217009 + ,-2.763460164 + ,-5.15672845 + ,-0.426954939 + ,-4.144767241 + ,-6.333456722 + ,16.24951853 + ,2.598460922 + ,-0.420879069 + ,0.687911291 + ,9.561730297 + ,5.047098676 + ,0.966510929 + ,-1.221070779 + ,5.538032148 + ,-1.439614033 + ,6.959315205 + ,8.787590818 + ,-12.08226563 + ,-2.386724461 + ,-10.02744433 + ,0.539774275 + ,2.338430654 + ,0.369474032 + ,-2.161762843 + ,-2.149167875 + ,-0.27772769 + ,0.01933409 + ,-12.64200255 + ,1.016870414 + ,11.17846411 + ,-5.485951805 + ,-9.623626657 + ,0.506223899 + ,-5.570543494 + ,-1.934614759 + ,-1.2993576 + ,-0.521110536 + ,-12.88991529 + ,0.055716282 + ,-15.83247655 + ,-3.494650335 + ,7.479555319 + ,-0.275822553 + ,9.995240341 + ,2.610696262 + ,2.868494632 + ,-0.486156759 + ,9.339104123 + ,-0.247611741 + ,2.234894013 + ,1.077841547 + ,7.254333611 + ,1.091540085 + ,-17.90490929 + ,-3.133113963 + ,1.605067053 + ,-0.451612277 + ,3.881734698 + ,0.819605096 + ,-4.591986798 + ,-0.476518511 + ,6.65707929 + ,-0.344000554 + ,5.74510677 + ,2.175325119 + ,-2.04022682 + ,0.390570472 + ,-2.024511127) + ,dim=c(2 + ,395) + ,dimnames=list(c('AsianTres' + ,'ArabiaTres') + ,1:395)) > y <- array(NA,dim=c(2,395),dimnames=list(c('AsianTres','ArabiaTres'),1:395)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } > main = 'Kendall tau Correlation Plot' > #'GNU S' R Code compiled by R2WASP v. 1.0.44 () > #Author: Prof. Dr. P. Wessa > #To cite this work: AUTHOR(S), (YEAR), 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: Office for Research, Development, and Education > #Technical description: Write here your technical program description (don't use hard returns!) > 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='kendall') + 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/html/rcomp/tmp/1rupu1261132548.ps",horizontal=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/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/html/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Kendall tau rank correlations for all pairs of data series',3,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'pair',1,TRUE) > a<-table.element(a,'tau',1,TRUE) > a<-table.element(a,'p-value',1,TRUE) > a<-table.row.end(a) > n <- length(y[,1]) > n [1] 2 > cor.test(y[1,],y[2,],method='kendall') Kendall's rank correlation tau data: y[1, ] and y[2, ] z = -0.7937, p-value = 0.4273 alternative hypothesis: true tau is not equal to 0 sample estimates: tau -0.02674292 > for (i in 1:(n-1)) + { + for (j in (i+1):n) + { + a<-table.row.start(a) + dum <- paste('tau(',dimnames(t(x))[[2]][i]) + dum <- paste(dum,',') + dum <- paste(dum,dimnames(t(x))[[2]][j]) + dum <- paste(dum,')') + a<-table.element(a,dum,header=TRUE) + r <- cor.test(y[i,],y[j,],method='kendall') + a<-table.element(a,r$estimate) + a<-table.element(a,r$p.value) + a<-table.row.end(a) + } + } > a<-table.end(a) > table.save(a,file="/var/www/html/rcomp/tmp/2fmgn1261132548.tab") > > try(system("convert tmp/1rupu1261132548.ps tmp/1rupu1261132548.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 0.727 0.267 1.715