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.

> y <- c(213008
+ ,120982
+ ,176537
+ ,184969
+ ,128552
+ ,52746
+ ,385534
+ ,33170
+ ,149061
+ ,165446
+ ,255558
+ ,180915
+ ,138816
+ ,279314
+ ,185362
+ ,330754
+ ,242201
+ ,248074
+ ,137731
+ ,217015
+ ,238060
+ ,352819
+ ,153935
+ ,132943
+ ,176297
+ ,174415
+ ,227308
+ ,223632
+ ,128603
+ ,238315
+ ,220067
+ ,171645
+ ,269655
+ ,84853
+ ,319589
+ ,215641
+ ,331650
+ ,167548
+ ,114673
+ ,275650
+ ,275861
+ ,155363
+ ,155774
+ ,128649
+ ,129301
+ ,368166
+ ,78800
+ ,183167
+ ,289575
+ ,154368
+ ,168809
+ ,24188
+ ,329267
+ ,65029
+ ,101097
+ ,223355
+ ,256087
+ ,248342
+ ,269536
+ ,214872
+ ,324427
+ ,254411
+ ,184360
+ ,214011
+ ,196553
+ ,178886
+ ,143250
+ ,189237
+ ,187681
+ ,120478
+ ,182192
+ ,73566
+ ,194979
+ ,167488
+ ,147958
+ ,289924
+ ,251351
+ ,185082
+ ,138570
+ ,152450
+ ,123905
+ ,364565
+ ,145790
+ ,201714
+ ,80953
+ ,122774
+ ,130585
+ ,298851
+ ,255899
+ ,148553
+ ,211322
+ ,187632
+ ,149018
+ ,220959
+ ,247964
+ ,162765
+ ,200476
+ ,232138
+ ,290838
+ ,315389
+ ,233269
+ ,232317
+ ,151811
+ ,43287
+ ,157799
+ ,168180
+ ,220195
+ ,252225
+ ,99466
+ ,100750
+ ,230772
+ ,262070
+ ,22938
+ ,152474
+ ,61857
+ ,132487
+ ,317394
+ ,21054
+ ,209641
+ ,31414
+ ,249237
+ ,184528
+ ,140189
+ ,112178
+ ,38214
+ ,158671
+ ,287703
+ ,172558
+ ,340803
+ ,253210
+ ,352257
+ ,158015
+ ,85439
+ ,236202
+ ,366492
+ ,84925
+ ,331866
+ ,131069
+ ,211775
+ ,170863
+ ,157949
+ ,314332
+ ,202656
+ ,173260
+ ,268676
+ ,112739
+ ,200511
+ ,228606
+ ,1
+ ,14688
+ ,98
+ ,455
+ ,0
+ ,0
+ ,184207
+ ,293412
+ ,0
+ ,203
+ ,7199
+ ,46660
+ ,17547
+ ,95227
+ ,969
+ ,156828)
> x <- c(1431,869,1536,2216,933,463,3202,372,1584,1440,1837,1549,1431,2274,1556,4120,1766,2251,1061,1955,2080,2294,1220,1290,2557,2148,2381,1639,1247,1897,1768,1592,1786,807,2600,1941,2733,1502,917,2620,2802,1413,1408,1363,2190,4398,918,1831,3558,1792,1438,496,2259,744,1161,2385,2207,2955,2064,1863,3336,2664,2130,2033,1227,1441,1499,2280,1834,1286,1944,893,1763,1403,1455,1930,1900,1546,1466,1431,1465,3176,1317,1761,870,1654,1054,3107,2105,2564,1939,1684,1499,2484,2016,1382,1445,1659,3096,2896,2071,1904,1475,602,1799,1617,2162,2279,874,1282,1446,2049,392,1605,530,1386,2395,387,1743,449,2724,1613,1271,1253,568,1512,2252,1123,2990,2023,2933,1002,956,2306,3744,1107,3351,1588,1474,1760,1374,3494,1695,2035,2468,1477,2211,1962,2,207,5,8,0,0,1678,2544,0,4,151,474,141,873,29,1370)
> ylab = 'Y'
> xlab = 'X'
> #'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: 
> k <- cor.test(x,y,method='spearman')
Warning message:
In cor.test.default(x, y, method = "spearman") :
  Cannot compute exact p-values with ties
> postscript(file="/var/wessaorg/rcomp/tmp/14sag1323126593.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab)
> grid()
> dev.off()
null device 
          1 
> postscript(file="/var/wessaorg/rcomp/tmp/23rfl1323126593.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(rank(x),rank(y),main='Scatterplot of Ranks',xlab=xlab,ylab=ylab)
> grid()
> 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")
> 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Spearman Rank Correlation',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'rho',header=TRUE)
> a<-table.element(a,k$estimate)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'2-sided p-value',header=TRUE)
> a<-table.element(a,k$p.value)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'S',header=TRUE)
> a<-table.element(a,k$statistic)
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/3ckfy1323126593.tab") 
> 
> try(system("convert tmp/14sag1323126593.ps tmp/14sag1323126593.png",intern=TRUE))
character(0)
> try(system("convert tmp/23rfl1323126593.ps tmp/23rfl1323126593.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.715   0.146   0.953