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(16.1418121776
+ ,12.1941619945
+ ,12.3825102592
+ ,13.4825521406
+ ,12.7604174232
+ ,13.0626982951
+ ,12.6352542803
+ ,12.6184471619
+ ,12.5978984937
+ ,12.1837452336
+ ,11.9553523264
+ ,11.8587254908
+ ,12.4921534366
+ ,12.6872140192
+ ,12.5298937646
+ ,12.1784958778
+ ,12.0962577795
+ ,12.0374172795
+ ,11.8066691288
+ ,11.7105952987
+ ,12.5662614088
+ ,12.5298937646
+ ,12.0672702426
+ ,12.0066456208
+ ,11.8731142282
+ ,11.8218209338
+ ,11.7189635484
+ ,11.7021564301
+ ,12.631915379
+ ,12.5769187032
+ ,12.2974478206
+ ,12.2297891721
+ ,12.1299688369
+ ,12.0374172795
+ ,11.9940668386
+ ,11.8731142282
+ ,11.7105952987
+ ,11.6136030327
+ ,11.3134984403
+ ,11.1941516826
+ ,11.4312814759
+ ,11.0258163678
+ ,10.7381342954
+ ,10.6203512597
+ ,10.4279793671
+ ,10.2273086716
+ ,10.3326691873
+ ,9.7040605278
+ ,10.9017637192
+ ,10.5149907441
+ ,9.4163784554
+ ,9.1286963829
+ ,8.8773819547
+ ,8.3177661667
+ ,7.6246189862
+ ,6.8801785112
+ ,6.7689528761
+ ,6.8036384341
+ ,6.7207507743
+ ,6.9214214697
+ ,7.1625835266
+ ,6.8502617502
+ ,6.8081735893
+ ,6.5295005867
+ ,6.6517579028
+ ,6.5545941543
+ ,5.710691883
+ ,5.5958705588
+ ,5.5805445883
+ ,5.3564353199
+ ,5.1770081211
+ ,5.2222135579
+ ,5.0209288004
+ ,4.972476417
+ ,5.054154448
+ ,4.8277375714
+ ,4.7944011511
+ ,4.7944011511
+ ,4.6681074258
+ ,4.7241968924
+ ,4.6681074258
+ ,4.6486893399
+ ,4.6388370435
+ ,4.60459402
+ ,4.4710626274
+ ,4.4057431613
+ ,4.6388370435
+ ,4.6168141314
+ ,4.5994579019
+ ,4.5807463373
+ ,4.5573907109
+ ,4.5796964684
+ ,4.5627469101
+ ,4.4815461247
+ ,4.4533421401
+ ,4.3868151514
+ ,4.3829861742
+ ,4.4745693522
+ ,4.4734018098
+ ,4.3318274783
+ ,4.1362283928
+ ,4.3701159836
+ ,4.3583894649
+ ,4.2209184743
+ ,4.2179064238
+ ,4.179469717
+ ,4.3465238016
+ ,4.3169119476
+ ,4.2148852735
+ ,4.1652626903
+ ,4.1063258326
+ ,4.4255457886
+ ,4.2534657258
+ ,4.2148852735
+ ,4.0995576173
+ ,4.1263598917
+ ,4.1345903908
+ ,4.0033981805
+ ,4.0328662428
+ ,4.102947451
+ ,4.0436966736
+ ,3.9902277173
+ ,3.9807128977
+ ,3.9807128977
+ ,4.0237504094
+ ,3.8610159858
+ ,3.9730353168
+ ,3.9417216037
+ ,3.9749602452
+ ,3.8823387553
+ ,3.892832031
+ ,3.7755707799
+ ,3.7872395237
+ ,3.6533766211
+ ,3.6210287872
+ ,3.4479791812
+ ,3.5675702087
+ ,3.541214364
+ ,3.4956829792
+ ,3.4925725568
+ ,3.4737040724
+ ,3.4705244195
+ ,3.4114908879
+ ,3.3665783313
+ ,3.4987837568
+ ,3.3415322993
+ ,3.3232502545
+ ,3.2223896442
+ ,3.3840919138
+ ,3.33425954
+ ,3.2932854658
+ ,2.9414872587
+ ,3.0729895671
+ ,3.0490076024
+ ,3.0144362583
+ ,3.1327774855
+ ,3.0729895671
+ ,3.0490076024
+ ,3.0490076024
+ ,2.9414872587
+ ,3.1283032051
+ ,3.11475898
+ ,3.0824235993
+ ,3.0824235993
+ ,2.9360671912
+ ,2.8744230281
+ ,2.8510301485
+ ,2.8270769075
+ ,2.8148816344
+ ,2.7317667277
+ ,2.98214032
+ ,2.8249439526
+ ,2.8231630082
+ ,2.8189950951
+ ,2.817203515
+ ,2.8003254772
+ ,2.7612749623
+ ,2.76000994
+ ,2.7369615446
+ ,2.6595599919
+ ,2.4807312784
+ ,2.750470917
+ ,2.7120422224
+ ,2.7006898467
+ ,2.6892071133
+ ,2.6796507266
+ ,2.6623552418
+ ,2.6595599919
+ ,2.6304489551
+ ,2.6246685922
+ ,2.6122732457
+ ,2.6004649904
+ ,2.5610957881
+ ,2.5447466501
+ ,2.5289235352
+ ,2.5241273629
+ ,2.4689466302
+ ,2.7226103524
+ ,2.5071572587
+ ,2.4423470354
+ ,2.6789646202
+ ,2.5193080765
+ ,2.4194788445
+ ,2.3085671647
+ ,2.3896797998
+ ,2.3813962734
+ ,2.3427668826
+ ,2.2246235515
+ ,2.0819384219
+ ,2.4423470354
+ ,2.3085671647
+ ,2.259677592
+ ,2.2126603855
+ ,2.1905355892
+ ,2.0082140324
+ ,1.9837562915
+ ,1.9837562915
+ ,1.9657127764
+ ,2.0643279039
+ ,1.9810014689
+ ,1.9315214116
+ ,1.9892432738
+ ,1.9823798288
+ ,1.9227877316
+ ,2.012232792
+ ,1.8687205104
+ ,1.7439688054
+ ,1.9198594719
+ ,1.880990603
+ ,1.8702625307
+ ,1.7698546338
+ ,1.8453002362
+ ,1.8453002362
+ ,1.7491998548
+ ,1.4838746895
+ ,1.0952733874
+ ,1.5195132049
+ ,1.4609379041
+ ,1.3110318766
+ ,0.97455964
+ ,1.0577902941
+ ,1.3190856114
+ ,0.9516578757
+ ,0.7275486073
+ ,0.9516578757
+ ,1.0577902941
+ ,0.9516578757
+ ,0.9858167945
+ ,0.9477893989
+ ,0.4121096508
+ ,0.6575200029
+ ,0.5766133643
+ ,0.476234179
+ ,0.4121096508
+ ,0.3506568716
+ ,0.3293037471
+ ,0.6626879731
+ ,0.6626879731
+ ,0.5306282511
+ ,0.4510756194
+ ,0.3435897044
+ ,0.3220834992
+ ,0.2151113796
+ ,0.1988508587
+ ,0.1397619424
+ ,0.2151113796
+ ,0.1906203596
+ ,0.1823215568
+ ,-0.398986142
+ ,-0.514164525
+ ,-0.3298939213
+ ,-0.3298939213
+ ,-0.3298939213
+ ,-0.5533852382
+ ,-0.514164525
+ ,-0.8533159327
+ ,-0.8891620645
+ ,-0.9755100915
+ ,-0.9915532164
+ ,-1.0023934309
+ ,-1.0498221245
+ ,-1.099612789
+ ,-1.184170177
+ ,-1.1973282616
+ ,-1.2482730632
+ ,-1.8078888512
+ ,-2.009915479
+ ,-2.3979952778
+ ,-2.676551534
+ ,-2.1628231506
+ ,-2.1803674603
+ ,-2.4998172625)
> x <- c(10240000
+ ,197632
+ ,238592
+ ,716800
+ ,348160
+ ,471040
+ ,307200
+ ,302080
+ ,295936
+ ,195584
+ ,155648
+ ,141312
+ ,266240
+ ,323584
+ ,276480
+ ,194560
+ ,179200
+ ,168960
+ ,134144
+ ,121856
+ ,286720
+ ,276480
+ ,174080
+ ,163840
+ ,143360
+ ,136192
+ ,122880
+ ,120832
+ ,306176
+ ,289792
+ ,219136
+ ,204800
+ ,185344
+ ,168960
+ ,161792
+ ,143360
+ ,121856
+ ,110592
+ ,81920
+ ,72704
+ ,92160
+ ,61440
+ ,46080
+ ,40960
+ ,33792
+ ,27648
+ ,30720
+ ,16384
+ ,54272
+ ,36864
+ ,12288
+ ,9216
+ ,7168
+ ,4096
+ ,2048
+ ,972.8
+ ,870.4
+ ,901.12
+ ,829.44
+ ,1013.76
+ ,1290.24
+ ,944.128
+ ,905.216
+ ,685.056
+ ,774.144
+ ,702.464
+ ,302.08
+ ,269.312
+ ,265.216
+ ,211.968
+ ,177.152
+ ,185.344
+ ,151.552
+ ,144.384
+ ,156.672
+ ,124.928
+ ,120.832
+ ,120.832
+ ,106.496
+ ,112.64
+ ,106.496
+ ,104.448
+ ,103.424
+ ,99.9424
+ ,87.4496
+ ,81.92
+ ,103.424
+ ,101.1712
+ ,99.4304
+ ,97.5872
+ ,95.3344
+ ,97.4848
+ ,95.8464
+ ,88.3712
+ ,85.9136
+ ,80.384
+ ,80.0768
+ ,87.7568
+ ,87.6544
+ ,76.0832
+ ,62.5664
+ ,79.0528
+ ,78.1312
+ ,68.096
+ ,67.8912
+ ,65.3312
+ ,77.2096
+ ,74.9568
+ ,67.6864
+ ,64.4096
+ ,60.7232
+ ,83.5584
+ ,70.3488
+ ,67.6864
+ ,60.3136
+ ,61.952
+ ,62.464
+ ,54.784
+ ,56.4224
+ ,60.5184
+ ,57.0368
+ ,54.0672
+ ,53.5552
+ ,53.5552
+ ,55.9104
+ ,47.5136
+ ,53.1456
+ ,51.5072
+ ,53.248
+ ,48.5376
+ ,49.0496
+ ,43.6224
+ ,44.1344
+ ,38.6048
+ ,37.376
+ ,31.4368
+ ,35.4304
+ ,34.5088
+ ,32.9728
+ ,32.8704
+ ,32.256
+ ,32.1536
+ ,30.3104
+ ,28.9792
+ ,33.0752
+ ,28.2624
+ ,27.7504
+ ,25.088
+ ,29.4912
+ ,28.0576
+ ,26.9312
+ ,18.944
+ ,21.6064
+ ,21.0944
+ ,20.3776
+ ,22.9376
+ ,21.6064
+ ,21.0944
+ ,21.0944
+ ,18.944
+ ,22.8352
+ ,22.528
+ ,21.8112
+ ,21.8112
+ ,18.8416
+ ,17.7152
+ ,17.3056
+ ,16.896
+ ,16.6912
+ ,15.36
+ ,19.73
+ ,16.86
+ ,16.83
+ ,16.76
+ ,16.73
+ ,16.45
+ ,15.82
+ ,15.8
+ ,15.44
+ ,14.29
+ ,11.95
+ ,15.65
+ ,15.06
+ ,14.89
+ ,14.72
+ ,14.58
+ ,14.33
+ ,14.29
+ ,13.88
+ ,13.8
+ ,13.63
+ ,13.47
+ ,12.95
+ ,12.74
+ ,12.54
+ ,12.48
+ ,11.81
+ ,15.22
+ ,12.27
+ ,11.5
+ ,14.57
+ ,12.42
+ ,11.24
+ ,10.06
+ ,10.91
+ ,10.82
+ ,10.41
+ ,9.25
+ ,8.02
+ ,11.5
+ ,10.06
+ ,9.58
+ ,9.14
+ ,8.94
+ ,7.45
+ ,7.27
+ ,7.27
+ ,7.14
+ ,7.88
+ ,7.25
+ ,6.9
+ ,7.31
+ ,7.26
+ ,6.84
+ ,7.48
+ ,6.48
+ ,5.72
+ ,6.82
+ ,6.56
+ ,6.49
+ ,5.87
+ ,6.33
+ ,6.33
+ ,5.75
+ ,4.41
+ ,2.99
+ ,4.57
+ ,4.31
+ ,3.71
+ ,2.65
+ ,2.88
+ ,3.74
+ ,2.59
+ ,2.07
+ ,2.59
+ ,2.88
+ ,2.59
+ ,2.68
+ ,2.58
+ ,1.51
+ ,1.93
+ ,1.78
+ ,1.61
+ ,1.51
+ ,1.42
+ ,1.39
+ ,1.94
+ ,1.94
+ ,1.7
+ ,1.57
+ ,1.41
+ ,1.38
+ ,1.24
+ ,1.22
+ ,1.15
+ ,1.24
+ ,1.21
+ ,1.2
+ ,0.671
+ ,0.598
+ ,0.719
+ ,0.719
+ ,0.719
+ ,0.575
+ ,0.598
+ ,0.426
+ ,0.411
+ ,0.377
+ ,0.371
+ ,0.367
+ ,0.35
+ ,0.333
+ ,0.306
+ ,0.302
+ ,0.287
+ ,0.164
+ ,0.134
+ ,0.0909
+ ,0.0688
+ ,0.115
+ ,0.113
+ ,0.0821)
> par6 = 'Ln(USD per Gigabyte): 1956-2010'
> par5 = 'various sources'
> par4 = 'Ln Cost / GB'
> par3 = 'USD per Gigabyte: 1956-2010'
> par2 = 'various sources'
> par1 = 'Cost / GB'
> ylab = 'cost'
> xlab = 'time (1956-2010)'
> #'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!)
> postscript(file="/var/wessaorg/rcomp/tmp/12k651331989221.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> op <- par(mfrow=c(2,2))
> plot(x,type='b',main='Plot of x',xlab=xlab,ylab=ylab)
> plot(y,type='b',main='Plot of y',xlab=xlab,ylab=ylab)
> hist(x)
> hist(y)
> 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,'Bivariate Dataseries',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Name of dataseries x',header=TRUE)
> a<-table.element(a,par1)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Source of x',header=TRUE)
> a<-table.element(a,par2)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Description of x',header=TRUE)
> a<-table.element(a,par3)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Name of dataseries y',header=TRUE)
> a<-table.element(a,par4)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Source of y',header=TRUE)
> a<-table.element(a,par5)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Description of y',header=TRUE)
> a<-table.element(a,par6)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Number of observations',header=TRUE)
> a<-table.element(a,length(x))
> a<-table.row.end(a)
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/2nqke1331989221.tab") 
> 
> try(system("convert tmp/12k651331989221.ps tmp/12k651331989221.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.623   0.118   0.841