R version 3.0.2 (2013-09-25) -- "Frisbee Sailing" Copyright (C) 2013 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-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 <- c(3167956.00 + ,3001753.00 + ,3571343.00 + ,3990145.00 + ,4472259.00 + ,4487988.00 + ,5021544.00 + ,4877589.00 + ,4563348.00 + ,4452338.00 + ,3535989.00 + ,3454304.00 + ,3331523.00 + ,3213977.00 + ,3896807.00 + ,4121803.00 + ,4566599.00 + ,4529566.00 + ,5172312.00 + ,5121598.00 + ,4713449.00 + ,4656638.00 + ,3647578.00 + ,3545823.00 + ,3388686.00 + ,3348700.00 + ,3973721.00 + ,4156519.00 + ,4713826.00 + ,4704148.00 + ,5175950.00 + ,5025767.00 + ,4600637.00 + ,4560314.00 + ,3443549.00 + ,3333873.00 + ,3072606.00 + ,2891262.00 + ,3390581.00 + ,3888685.00 + ,4173577.00 + ,4130139.00 + ,4851476.00 + ,4811406.00 + ,4322719.00 + ,4274814.00 + ,3355439.00 + ,3293039.00 + ,3114971.00 + ,3049444.00 + ,3697355.00 + ,3213665.00 + ,4447089.00 + ,4442139.00 + ,5119203.00 + ,5058056.00 + ,4623783.00 + ,4666071.00 + ,3719403.00 + ,3440349.00 + ,3466587.00 + ,3251624.00 + ,3921482.00 + ,4466794.00 + ,4916693.00 + ,4939490.00 + ,5627276.00 + ,5540569.00 + ,5128892.00 + ,5024163.00 + ,3807138.00 + ,3777434.00 + ,3675761.00 + ,3552136.00 + ,4177498.00 + ,4568847.00 + ,5027940.00 + ,5078079.00 + ,5759003.00 + ,5671424.00 + ,5239374.00 + ,5100023.00 + ,3944666.00 + ,3858569.00 + ,3670053.00 + ,3563751.00 + ,4341934.00 + ,4779391.00 + ,5440427.00 + ,5404974.00 + ,5934128.00 + ,5942981.00 + ,5477811.00 + ,5288928.00 + ,4099344.00 + ,4103791.00) > par1 = '52' > par1 <- '52' > #'GNU S' R Code compiled by R2WASP v. 1.2.291 () > #Author: root > #To cite this work: Wessa P., (2012), Mean Plot (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_meanplot.wasp/ > #Source of accompanying publication: Office for Research, Development, and Education > # > par1 <- as.numeric(par1) > (n <- length(x)) [1] 96 > (np <- floor(n / par1)) [1] 1 > arr <- array(NA,dim=c(par1,np+1)) > darr <- array(NA,dim=c(par1,np+1)) > ari <- array(0,dim=par1) > dx <- diff(x) > j <- 0 > for (i in 1:n) + { + j = j + 1 + ari[j] = ari[j] + 1 + arr[j,ari[j]] <- x[i] + darr[j,ari[j]] <- dx[i] + if (j == par1) j = 0 + } > ari [1] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 [39] 2 2 2 2 2 2 1 1 1 1 1 1 1 1 > arr [,1] [,2] [1,] 3167956 4447089 [2,] 3001753 4442139 [3,] 3571343 5119203 [4,] 3990145 5058056 [5,] 4472259 4623783 [6,] 4487988 4666071 [7,] 5021544 3719403 [8,] 4877589 3440349 [9,] 4563348 3466587 [10,] 4452338 3251624 [11,] 3535989 3921482 [12,] 3454304 4466794 [13,] 3331523 4916693 [14,] 3213977 4939490 [15,] 3896807 5627276 [16,] 4121803 5540569 [17,] 4566599 5128892 [18,] 4529566 5024163 [19,] 5172312 3807138 [20,] 5121598 3777434 [21,] 4713449 3675761 [22,] 4656638 3552136 [23,] 3647578 4177498 [24,] 3545823 4568847 [25,] 3388686 5027940 [26,] 3348700 5078079 [27,] 3973721 5759003 [28,] 4156519 5671424 [29,] 4713826 5239374 [30,] 4704148 5100023 [31,] 5175950 3944666 [32,] 5025767 3858569 [33,] 4600637 3670053 [34,] 4560314 3563751 [35,] 3443549 4341934 [36,] 3333873 4779391 [37,] 3072606 5440427 [38,] 2891262 5404974 [39,] 3390581 5934128 [40,] 3888685 5942981 [41,] 4173577 5477811 [42,] 4130139 5288928 [43,] 4851476 4099344 [44,] 4811406 4103791 [45,] 4322719 NA [46,] 4274814 NA [47,] 3355439 NA [48,] 3293039 NA [49,] 3114971 NA [50,] 3049444 NA [51,] 3697355 NA [52,] 3213665 NA > darr [,1] [,2] [1,] -166203 -4950 [2,] 569590 677064 [3,] 418802 -61147 [4,] 482114 -434273 [5,] 15729 42288 [6,] 533556 -946668 [7,] -143955 -279054 [8,] -314241 26238 [9,] -111010 -214963 [10,] -916349 669858 [11,] -81685 545312 [12,] -122781 449899 [13,] -117546 22797 [14,] 682830 687786 [15,] 224996 -86707 [16,] 444796 -411677 [17,] -37033 -104729 [18,] 642746 -1217025 [19,] -50714 -29704 [20,] -408149 -101673 [21,] -56811 -123625 [22,] -1009060 625362 [23,] -101755 391349 [24,] -157137 459093 [25,] -39986 50139 [26,] 625021 680924 [27,] 182798 -87579 [28,] 557307 -432050 [29,] -9678 -139351 [30,] 471802 -1155357 [31,] -150183 -86097 [32,] -425130 -188516 [33,] -40323 -106302 [34,] -1116765 778183 [35,] -109676 437457 [36,] -261267 661036 [37,] -181344 -35453 [38,] 499319 529154 [39,] 498104 8853 [40,] 284892 -465170 [41,] -43438 -188883 [42,] 721337 -1189584 [43,] -40070 4447 [44,] -488687 NA [45,] -47905 NA [46,] -919375 NA [47,] -62400 NA [48,] -178068 NA [49,] -65527 NA [50,] 647911 NA [51,] -483690 NA [52,] 1233424 NA > arr.mean <- array(NA,dim=par1) > arr.median <- array(NA,dim=par1) > arr.midrange <- array(NA,dim=par1) > for (j in 1:par1) + { + arr.mean[j] <- mean(arr[j,],na.rm=TRUE) + arr.median[j] <- median(arr[j,],na.rm=TRUE) + arr.midrange[j] <- (quantile(arr[j,],0.75,na.rm=TRUE) + quantile(arr[j,],0.25,na.rm=TRUE)) / 2 + } > overall.mean <- mean(x) > overall.median <- median(x) > overall.midrange <- (quantile(x,0.75) + quantile(x,0.25)) / 2 > postscript(file="/var/wessaorg/rcomp/tmp/1pke21424975976.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(arr.mean,type='b',ylab='mean',main='Mean Plot',xlab='Periodic Index') > mtext(paste('#blocks = ',np)) > abline(overall.mean,0) > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/2bsf71424975976.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(arr.median,type='b',ylab='median',main='Median Plot',xlab='Periodic Index') > mtext(paste('#blocks = ',np)) > abline(overall.median,0) > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/3j7ja1424975976.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(arr.midrange,type='b',ylab='midrange',main='Midrange Plot',xlab='Periodic Index') > mtext(paste('#blocks = ',np)) > abline(overall.midrange,0) > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/4hi671424975976.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > z <- data.frame(t(arr)) > names(z) <- c(1:par1) > (boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Periodic Subseries')) $stats [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [1,] 3167956 3001753 3571343 3990145 4472259 4487988 3719403 3440349 3466587 [2,] 3167956 3001753 3571343 3990145 4472259 4487988 3719403 3440349 3466587 [3,] 3807522 3721946 4345273 4524100 4548021 4577030 4370474 4158969 4014968 [4,] 4447089 4442139 5119203 5058056 4623783 4666071 5021544 4877589 4563348 [5,] 4447089 4442139 5119203 5058056 4623783 4666071 5021544 4877589 4563348 [,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18] [1,] 3251624 3535989 3454304 3331523 3213977 3896807 4121803 4566599 4529566 [2,] 3251624 3535989 3454304 3331523 3213977 3896807 4121803 4566599 4529566 [3,] 3851981 3728736 3960549 4124108 4076734 4762042 4831186 4847746 4776864 [4,] 4452338 3921482 4466794 4916693 4939490 5627276 5540569 5128892 5024163 [5,] 4452338 3921482 4466794 4916693 4939490 5627276 5540569 5128892 5024163 [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26] [,27] [1,] 3807138 3777434 3675761 3552136 3647578 3545823 3388686 3348700 3973721 [2,] 3807138 3777434 3675761 3552136 3647578 3545823 3388686 3348700 3973721 [3,] 4489725 4449516 4194605 4104387 3912538 4057335 4208313 4213390 4866362 [4,] 5172312 5121598 4713449 4656638 4177498 4568847 5027940 5078079 5759003 [5,] 5172312 5121598 4713449 4656638 4177498 4568847 5027940 5078079 5759003 [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [1,] 4156519 4713826 4704148 3944666 3858569 3670053 3563751 3443549 3333873 [2,] 4156519 4713826 4704148 3944666 3858569 3670053 3563751 3443549 3333873 [3,] 4913972 4976600 4902086 4560308 4442168 4135345 4062032 3892742 4056632 [4,] 5671424 5239374 5100023 5175950 5025767 4600637 4560314 4341934 4779391 [5,] 5671424 5239374 5100023 5175950 5025767 4600637 4560314 4341934 4779391 [,37] [,38] [,39] [,40] [,41] [,42] [,43] [,44] [,45] [1,] 3072606 2891262 3390581 3888685 4173577 4130139 4099344 4103791 4322719 [2,] 3072606 2891262 3390581 3888685 4173577 4130139 4099344 4103791 4322719 [3,] 4256516 4148118 4662354 4915833 4825694 4709534 4475410 4457598 4322719 [4,] 5440427 5404974 5934128 5942981 5477811 5288928 4851476 4811406 4322719 [5,] 5440427 5404974 5934128 5942981 5477811 5288928 4851476 4811406 4322719 [,46] [,47] [,48] [,49] [,50] [,51] [,52] [1,] 4274814 3355439 3293039 3114971 3049444 3697355 3213665 [2,] 4274814 3355439 3293039 3114971 3049444 3697355 3213665 [3,] 4274814 3355439 3293039 3114971 3049444 3697355 3213665 [4,] 4274814 3355439 3293039 3114971 3049444 3697355 3213665 [5,] 4274814 3355439 3293039 3114971 3049444 3697355 3213665 $n [1] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 [39] 2 2 2 2 2 2 1 1 1 1 1 1 1 1 $conf [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [1,] 2378438 2112705 2615959 3331000 4378734 4378070 2915684 2553243 2789635 [2,] 5236607 5331187 6074587 5717201 4717308 4775989 5825263 5764695 5240300 [,10] [,11] [,12] [,13] [,14] [,15] [,16] [,17] [,18] [1,] 2510509 3298052 2829366 2353111 2148941 2828712 3246100 4219536 4224287 [2,] 5193453 4159419 5091732 5895105 6004526 6695371 6416272 5475955 5329442 [,19] [,20] [,21] [,22] [,23] [,24] [,25] [,26] [,27] [1,] 2964513 2947777 3035270 2870406 3320496 2914383 2376891 2281278 2871794 [2,] 6014937 5951255 5353940 5338368 4504580 5200287 6039735 6145501 6860930 [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [1,] 3221476 4389443 4459803 3184682 3138141 3095670 2948644 2889040 2441658 [2,] 6606467 5563757 5344368 5935934 5746195 5175020 5175421 4896443 5671606 [,37] [,38] [,39] [,40] [,41] [,42] [,43] [,44] [,45] [1,] 1611119 1339727 1820631 2620715 3368566 3414901 3635107 3667031 4322719 [2,] 6901914 6956509 7504078 7210951 6282822 6004166 5315713 5248166 4322719 [,46] [,47] [,48] [,49] [,50] [,51] [,52] [1,] 4274814 3355439 3293039 3114971 3049444 3697355 3213665 [2,] 4274814 3355439 3293039 3114971 3049444 3697355 3213665 $out numeric(0) $group numeric(0) $names [1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" [16] "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" [31] "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" [46] "46" "47" "48" "49" "50" "51" "52" Warning message: In bxp(list(stats = c(3167956, 3167956, 3807522.5, 4447089, 4447089, : some notches went outside hinges ('box'): maybe set notch=FALSE > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/5fcso1424975976.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > z <- data.frame(t(darr)) > names(z) <- c(1:par1) > (boxplot(z,notch=TRUE,col='grey',xlab='Periodic Index',ylab='Value',main='Notched Box Plots - Differenced Periodic Subseries')) $stats [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [1,] -166203.0 569590 -61147.0 -434273.0 15729.0 -946668 -279054.0 -314241.0 [2,] -166203.0 569590 -61147.0 -434273.0 15729.0 -946668 -279054.0 -314241.0 [3,] -85576.5 623327 178827.5 23920.5 29008.5 -206556 -211504.5 -144001.5 [4,] -4950.0 677064 418802.0 482114.0 42288.0 533556 -143955.0 26238.0 [5,] -4950.0 677064 418802.0 482114.0 42288.0 533556 -143955.0 26238.0 [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16] [1,] -214963.0 -916349.0 -81685.0 -122781 -117546.0 682830 -86707.0 -411677.0 [2,] -214963.0 -916349.0 -81685.0 -122781 -117546.0 682830 -86707.0 -411677.0 [3,] -162986.5 -123245.5 231813.5 163559 -47374.5 685308 69144.5 16559.5 [4,] -111010.0 669858.0 545312.0 449899 22797.0 687786 224996.0 444796.0 [5,] -111010.0 669858.0 545312.0 449899 22797.0 687786 224996.0 444796.0 [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [1,] -104729 -1217025.0 -50714 -408149 -123625 -1009060 -101755 -157137 [2,] -104729 -1217025.0 -50714 -408149 -123625 -1009060 -101755 -157137 [3,] -70881 -287139.5 -40209 -254911 -90218 -191849 144797 150978 [4,] -37033 642746.0 -29704 -101673 -56811 625362 391349 459093 [5,] -37033 642746.0 -29704 -101673 -56811 625362 391349 459093 [,25] [,26] [,27] [,28] [,29] [,30] [,31] [,32] [1,] -39986.0 625021.0 -87579.0 -432050.0 -139351.0 -1155357.0 -150183 -425130 [2,] -39986.0 625021.0 -87579.0 -432050.0 -139351.0 -1155357.0 -150183 -425130 [3,] 5076.5 652972.5 47609.5 62628.5 -74514.5 -341777.5 -118140 -306823 [4,] 50139.0 680924.0 182798.0 557307.0 -9678.0 471802.0 -86097 -188516 [5,] 50139.0 680924.0 182798.0 557307.0 -9678.0 471802.0 -86097 -188516 [,33] [,34] [,35] [,36] [,37] [,38] [,39] [,40] [1,] -106302.0 -1116765 -109676.0 -261267.0 -181344.0 499319.0 8853.0 -465170 [2,] -106302.0 -1116765 -109676.0 -261267.0 -181344.0 499319.0 8853.0 -465170 [3,] -73312.5 -169291 163890.5 199884.5 -108398.5 514236.5 253478.5 -90139 [4,] -40323.0 778183 437457.0 661036.0 -35453.0 529154.0 498104.0 284892 [5,] -40323.0 778183 437457.0 661036.0 -35453.0 529154.0 498104.0 284892 [,41] [,42] [,43] [,44] [,45] [,46] [,47] [,48] [,49] [1,] -188883.0 -1189584.0 -40070.0 -488687 -47905 -919375 -62400 -178068 -65527 [2,] -188883.0 -1189584.0 -40070.0 -488687 -47905 -919375 -62400 -178068 -65527 [3,] -116160.5 -234123.5 -17811.5 -488687 -47905 -919375 -62400 -178068 -65527 [4,] -43438.0 721337.0 4447.0 -488687 -47905 -919375 -62400 -178068 -65527 [5,] -43438.0 721337.0 4447.0 -488687 -47905 -919375 -62400 -178068 -65527 [,50] [,51] [,52] [1,] 647911 -483690 1233424 [2,] 647911 -483690 1233424 [3,] 647911 -483690 1233424 [4,] 647911 -483690 1233424 [5,] 647911 -483690 1233424 $n [1] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 [39] 2 2 2 2 2 1 1 1 1 1 1 1 1 1 $conf [,1] [,2] [,3] [,4] [,5] [,6] [,7] [1,] -265732.98 503254 -357385.3 -999893.4 -663.9774 -1860305 -362440.98 [2,] 94579.98 743400 715040.3 1047734.4 58680.9774 1447193 -60568.02 [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [1,] -524394.4 -279125.78 -1895402 -468685.6 -476255.5 -204169.7 679771 -279099 [2,] 236391.4 -46847.22 1648911 932312.6 803373.5 109420.7 690845 417388 [,16] [,17] [,18] [,19] [,20] [,21] [,22] [1,] -940316.7 -146512.915 -2364929 -63681.98 -597314.79 -164864.52 -2017872 [2,] 973435.7 4750.915 1790650 -16736.02 87492.79 -15571.48 1634174 [,23] [,24] [,25] [,26] [,27] [,28] [,29] [1,] -406112.9 -537491.9 -95613.74 590516.1 -254463.4 -1042710 -219388.9 [2,] 695706.9 839447.9 105766.74 715428.9 349682.4 1167967 70359.9 [,30] [,31] [,32] [,33] [,34] [,35] [,36] [1,] -2159686 -189738.72 -571174.95 -147026.1333 -2286381 -447382.2 -830538.9 [2,] 1476131 -46541.28 -42471.05 401.1333 1947799 775163.2 1230307.9 [,37] [,38] [,39] [,40] [,41] [,42] [,43] [1,] -271392.11 480904 -293126.8 -928129.8 -278655.83 -2369059 -67547.17 [2,] 54595.11 547569 800083.8 747851.8 46334.83 1900812 31924.17 [,44] [,45] [,46] [,47] [,48] [,49] [,50] [,51] [,52] [1,] -488687 -47905 -919375 -62400 -178068 -65527 647911 -483690 1233424 [2,] -488687 -47905 -919375 -62400 -178068 -65527 647911 -483690 1233424 $out numeric(0) $group numeric(0) $names [1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" [16] "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" [31] "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" [46] "46" "47" "48" "49" "50" "51" "52" Warning message: In bxp(list(stats = c(-166203, -166203, -85576.5, -4950, -4950, : some notches went outside hinges ('box'): maybe set notch=FALSE > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/6yti41424975976.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > z <- data.frame(arr) > names(z) <- c(1:np) > (boxplot(z,notch=TRUE,col='grey',xlab='Block Index',ylab='Value',main='Notched Box Plots - Sequential Blocks')) $stats [,1] [,2] [1,] 2891262 3251624 [2,] 3372062 3890026 [3,] 4055974 4644927 [4,] 4583618 5184133 [5,] 5175950 5942981 $n [1] 52 44 $conf [,1] [,2] [1,] 3790514 4336678 [2,] 4321434 4953176 $out numeric(0) $group numeric(0) $names [1] "1" NA > dev.off() null device 1 > postscript(file="/var/wessaorg/rcomp/tmp/7oxd81424975976.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > z <- data.frame(cbind(arr.mean,arr.median,arr.midrange)) > names(z) <- list('mean','median','midrange') > (boxplot(z,notch=TRUE,col='grey',ylab='Overall Central Tendency',main='Notched Box Plots')) $stats [,1] [,2] [,3] [1,] 3213665 3213665 3213665 [2,] 3987758 3987758 3987758 [3,] 4234953 4234953 4234953 [4,] 4568669 4568669 4568669 [5,] 4976600 4976600 4976600 $n [1] 52 52 52 $conf [,1] [,2] [,3] [1,] 4107672 4107672 4107672 [2,] 4362234 4362234 4362234 $out [1] 3114971 3049444 3114971 3049444 3114971 3049444 $group [1] 1 1 2 2 3 3 $names [1] "mean" "median" "midrange" > dev.off() null device 1 > > try(system("convert tmp/1pke21424975976.ps tmp/1pke21424975976.png",intern=TRUE)) character(0) > try(system("convert tmp/2bsf71424975976.ps tmp/2bsf71424975976.png",intern=TRUE)) character(0) > try(system("convert tmp/3j7ja1424975976.ps tmp/3j7ja1424975976.png",intern=TRUE)) character(0) > try(system("convert tmp/4hi671424975976.ps tmp/4hi671424975976.png",intern=TRUE)) character(0) > try(system("convert tmp/5fcso1424975976.ps tmp/5fcso1424975976.png",intern=TRUE)) character(0) > try(system("convert tmp/6yti41424975976.ps tmp/6yti41424975976.png",intern=TRUE)) character(0) > try(system("convert tmp/7oxd81424975976.ps tmp/7oxd81424975976.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 2.575 0.452 3.054