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 <- c(107.5782
+ ,115.419
+ ,121.9325
+ ,125.0329
+ ,127.5917
+ ,124.8716
+ ,113.1062
+ ,118.1464
+ ,122.7418
+ ,127.8783
+ ,128.7307
+ ,128.7402
+ ,132.1612
+ ,139.9136
+ ,140.8988
+ ,141.1288
+ ,146.0204
+ ,142.6923
+ ,134.7466
+ ,138.1469
+ ,142.3523
+ ,146.7751
+ ,147.5108
+ ,147.8689
+ ,147.1165
+ ,149.9963
+ ,148.4957
+ ,152.9951
+ ,154.2078
+ ,153.026
+ ,141.7506
+ ,139.0946
+ ,145.3026
+ ,148.4278
+ ,138.7252
+ ,124.8708
+ ,126.5044
+ ,129.4193
+ ,126.8772
+ ,121.2261
+ ,111.0964
+ ,109.4497
+ ,99.8797
+ ,102.2442
+ ,109.0158
+ ,107.6825
+ ,105.7008
+ ,103.3342
+ ,108.6264
+ ,119.2349
+ ,122.9301
+ ,126.8326
+ ,128.7295
+ ,128.6718
+ ,119.9257
+ ,118.4163
+ ,119.6482
+ ,117.4811
+ ,113.955
+ ,110.839
+ ,108.6457
+ ,115.3441
+ ,125.9004
+ ,130.2944
+ ,133.0337
+ ,129.8502
+ ,114.516
+ ,117.0289
+ ,117.4909
+ ,121.1071
+ ,118.9835
+ ,116.6892
+ ,117.2748
+ ,119.1382
+ ,122.9743
+ ,129.6526
+ ,134.4261
+ ,133.1987
+ ,124.2831
+ ,127.4366
+ ,132.0281
+ ,134.412
+ ,133.6329
+ ,132.8197
+ ,125.7772
+ ,133.3933
+ ,139.5733
+ ,139.62
+ ,140.3962
+ ,140.0918
+ ,129.9507
+ ,126.3704
+ ,126.1894
+ ,127.2721
+ ,125.5555
+ ,122.3896
+ ,125.1663
+ ,128.9894
+ ,136.784
+ ,130.3536
+ ,116.6201
+ ,107.2805
+ ,91.5959
+ ,94.9011
+ ,101.2529
+ ,112.474
+ ,119.0385
+ ,119.277
+ ,118.7104
+ ,125.3436
+ ,128.6749
+ ,126.6482
+ ,124.2435
+ ,120.2679
+ ,112.1874
+ ,115.1962
+ ,114.171
+ ,106.5837
+ ,99.0213
+ ,94.4431
+ ,94.003
+ ,95.7002
+ ,96.3067
+ ,89.5788
+ ,85.1631
+ ,83.1879
+ ,76.9291
+ ,76.3372
+ ,77.8465
+ ,71.9234
+ ,65.8501
+ ,65.711
+ ,72.5313
+ ,79.8388
+ ,85.6327
+ ,84.9675
+ ,86.4615
+ ,85.3544
+ ,78.6698
+ ,82.5787
+ ,86.739
+ ,90.0854
+ ,85.6208
+ ,83.4826
+ ,87.5268
+ ,97.8729
+ ,100.395
+ ,99.9875
+ ,101.5446
+ ,96.1784
+ ,90.0061
+ ,88.8268
+ ,85.3736
+ ,86.2969
+ ,83.7266
+ ,80.9809
+ ,84.1616
+ ,88.9306
+ ,91.1515
+ ,90.8157
+ ,86.678
+ ,86.2099
+ ,78.8383
+ ,80.8457
+ ,83.1145
+ ,81.8023
+ ,81.0414
+ ,81.3447
+ ,84.7579
+ ,89.5939
+ ,89.256
+ ,91.0502
+ ,87.6635
+ ,81.956
+ ,78.2142
+ ,77.6401
+ ,80.5219
+ ,80.4039
+ ,80.3524
+ ,76.9004
+ ,76.7483
+ ,85.3415
+ ,87.4312
+ ,90.2525
+ ,90.1555
+ ,91.1994
+ ,84.4334
+ ,88.0348
+ ,91.7444
+ ,96.2188
+ ,95.6247
+ ,98.8159
+ ,97.6384
+ ,102.1267
+ ,102.8357
+ ,103.2903
+ ,103.4318
+ ,99.7095
+ ,96.6808
+ ,97.1045
+ ,102.4542
+ ,100.5037
+ ,99.7279
+ ,96.646
+ ,104.5409
+ ,100.1334
+ ,102.9358
+ ,104.437
+ ,100.7815
+ ,98.9579
+ ,93.7254
+ ,95.1819
+ ,96.6954
+ ,97.4383
+ ,92.4346
+ ,87.8559
+ ,93.1788
+ ,96.3858
+ ,98.3874
+ ,99.6965
+ ,98.7674
+ ,99.8057
+ ,91.906
+ ,99.9586
+ ,100.4053
+ ,97.4149
+ ,95.7986
+ ,88.6245
+ ,88.7233
+ ,91.9441
+ ,87.6443
+ ,92.3349
+ ,86.7446
+ ,90.4944
+ ,90.0456
+ ,90.2818
+ ,95.7701
+ ,94.2684
+ ,92.6972
+ ,88.3027
+ ,92.262
+ ,95.3634
+ ,97.9526
+ ,95.5567
+ ,94.2145
+ ,94.6263
+ ,90.8046
+ ,91.1568
+ ,90.99
+ ,93.2625
+ ,92.6989
+ ,87.1384
+ ,94.8365
+ ,99.3737
+ ,98.8442
+ ,98.1394
+ ,96.5231
+ ,99.9541
+ ,92.8272
+ ,96.4591
+ ,99.2824
+ ,97.5254
+ ,98.1819
+ ,97.8293
+ ,99.0573
+ ,105.7607
+ ,105.4583
+ ,107.8701
+ ,107.5543
+ ,104.2246
+ ,101.322
+ ,100.3369
+ ,106.9387
+ ,108.0687
+ ,106.1259
+ ,105.9
+ ,109.7624
+ ,111.8431
+ ,110.758
+ ,108.6872
+ ,106.4739
+ ,105.1487
+ ,98.9033
+ ,101.3615
+ ,107.2762
+ ,104.6946
+ ,106.2082
+ ,101.3239
+ ,104.4424
+ ,109.3094
+ ,111.2448
+ ,109.5258
+ ,108.7586
+ ,110.5274
+ ,103.8671
+ ,107.5262
+ ,111.9439
+ ,111.1229
+ ,108.9967
+ ,106.3266
+ ,108.2032
+ ,113.2489
+ ,111.7137
+ ,114.5292
+ ,112.929
+ ,113.5863
+ ,109.3104
+ ,111.9001
+ ,115.933
+ ,116.7931
+ ,117.3815
+ ,113.611
+ ,118.6602
+ ,122.1817
+ ,121.3766
+ ,120.0426
+ ,118.4398
+ ,113.2562
+ ,112.2103
+ ,113.1869
+ ,111.7074
+ ,113.3666
+ ,110.0396
+ ,108.6138
+ ,113.7757
+ ,112.877
+ ,118.8821
+ ,116.3368
+ ,115.0203
+ ,116.3392
+ ,111.7357
+ ,116.0837
+ ,115.7889
+ ,116.3827
+ ,115.2033999999
+ ,112.7070999999
+ ,116.9666
+ ,116.8738
+ ,120.9579
+ ,116.8976
+ ,114.8312
+ ,114.4839
+ ,108.1031
+ ,108.1362
+ ,110.8142
+ ,105.9801
+ ,102.768
+ ,100.3191
+ ,103.0646
+ ,102.4613
+ ,101.7155
+ ,104.1287
+ ,102.4822
+ ,103.6174
+ ,99.4313
+ ,99.1941
+ ,100.2775
+ ,95.9201
+ ,94.0369
+ ,87.1354
+ ,95.6393
+ ,98.4924
+ ,101.3487
+ ,101.4783
+ ,102.5654
+ ,103.6864
+ ,97.6996
+ ,103.1182
+ ,101.8334
+ ,101.9955
+ ,99.9495
+ ,92.1933
+ ,99.9421
+ ,100.845
+ ,97.5287
+ ,97.2274
+ ,95.9961
+ ,101.2783
+ ,94.4869
+ ,96.8702
+ ,96.7873
+ ,102.1831
+ ,102.4352
+ ,103.0496
+ ,101.1553
+ ,108.5302
+ ,111.1225
+ ,108.5107
+ ,110.2667
+ ,111.4111
+ ,111.514
+ ,111.2975
+ ,113.5365
+ ,115.1053
+ ,111.6279
+ ,106.2738
+ ,109.1115
+ ,112.6679
+ ,113.773
+ ,107.798
+ ,105.6234
+ ,103.1695
+ ,99.4931
+ ,104.4827
+ ,109.9956
+ ,112.9805
+ ,109.7836
+ ,106.818
+ ,113.4553
+ ,117.9007
+ ,117.3923
+ ,113.801
+ ,117.1563
+ ,118.3615
+ ,112.0152
+ ,112.1051
+ ,113.2674
+ ,111.5291
+ ,104.4914
+ ,99.6554
+ ,107.2469
+ ,112.9007
+ ,113.7515
+ ,110.8698
+ ,111.4336
+ ,110.2557
+ ,109.2531
+ ,109.7769
+ ,109.0024
+ ,111.2263
+ ,108.1685
+ ,106.4422
+ ,112.1741
+ ,116.3536
+ ,113.8996
+ ,110.2039
+ ,108.4641
+ ,108.6928
+ ,107.9572
+ ,107.8885
+ ,102.7871
+ ,93.6655
+ ,78.3943
+ ,67.884
+ ,66.7458
+ ,66.3011
+ ,61.939
+ ,59.697
+ ,59.5934
+ ,61.506
+ ,65.8851
+ ,67.5482)
> par3 = 'Industrial Production Index: Primary metal NAICS=331; 2002=100; NSA'
> par2 = 'http://economagic.com/em-cgi/data.exe/frbg17/G331_ipnsa'
> par1 = 'Industrial Production Index: Primary metal NAICS=331; 2002=100; NSA'
> ylab = 'value'
> xlab = 'index'
> main = 'Industrial Production Index: Primary met'
> #'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/www/html/rcomp/tmp/1ifax1255460207.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab)
> 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,'Univariate Dataseries',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Name of dataseries',header=TRUE)
> a<-table.element(a,par1)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Source',header=TRUE)
> a<-table.element(a,par2)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Description',header=TRUE)
> a<-table.element(a,par3)
> 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/www/html/rcomp/tmp/27jti1255460207.tab") 
> 
> system("convert tmp/1ifax1255460207.ps tmp/1ifax1255460207.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.467   0.219   0.541