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(62.9846
+ ,64.8697
+ ,64.9293
+ ,66.4526
+ ,67.446
+ ,69.0351
+ ,66.6857
+ ,66.1065
+ ,69.4037
+ ,70.1124
+ ,71.3412
+ ,74.3653
+ ,73.5055
+ ,75.877
+ ,76.8699
+ ,77.4494
+ ,78.2181
+ ,79.1176
+ ,77.2318
+ ,76.5864
+ ,80.4845
+ ,80.1555
+ ,80.9557
+ ,84.2142
+ ,82.6283
+ ,83.2131
+ ,84.3541
+ ,79.8139
+ ,83.2404
+ ,84.7588
+ ,80.1618
+ ,79.5015
+ ,83.2858
+ ,82.47669999999
+ ,81.7357
+ ,81.6231
+ ,77.7113
+ ,76.4616
+ ,74.5338
+ ,73.2785
+ ,70.2546
+ ,69.9169
+ ,67.142
+ ,67.2091
+ ,70.0708
+ ,69.8516
+ ,70.8732
+ ,72.8579
+ ,72.1483
+ ,73.5644
+ ,74.0606
+ ,72.518
+ ,74.595
+ ,75.5803
+ ,73.8494
+ ,73.753
+ ,76.4967
+ ,75.272
+ ,77.0785
+ ,79.2637
+ ,76.7797
+ ,79.5336
+ ,80.4485
+ ,80.2717
+ ,80.5049
+ ,81.9758
+ ,80.1549
+ ,80.5533
+ ,84.0601
+ ,83.7599
+ ,84.8787
+ ,88.1045
+ ,83.7538
+ ,86.2375
+ ,87.4487
+ ,87.8756
+ ,86.3761
+ ,89.0487
+ ,85.8132
+ ,85.411
+ ,89.0171
+ ,89.9593
+ ,90.842
+ ,95.2392
+ ,92.8353
+ ,95.0057
+ ,95.5651
+ ,91.4415
+ ,94.2596
+ ,96.0771
+ ,92.7267
+ ,90.1337
+ ,94.5005
+ ,91.0805
+ ,89.9682
+ ,92.7164
+ ,94.274
+ ,94.125
+ ,94.2123
+ ,91.8257
+ ,89.2372
+ ,87.1972
+ ,83.1833
+ ,81.7764
+ ,85.5372
+ ,85.2681
+ ,86.7726
+ ,89.0575
+ ,87.5553
+ ,87.3159
+ ,88.507
+ ,87.8265
+ ,88.498
+ ,89.5781
+ ,87.0805
+ ,85.7104
+ ,87.8424
+ ,87.6878
+ ,87.3245
+ ,87.4801
+ ,81.6228
+ ,85.4921
+ ,83.1152
+ ,80.3349
+ ,77.8939
+ ,75.0077
+ ,69.6122
+ ,66.0945
+ ,67.7718
+ ,65.8679
+ ,64.0179
+ ,63.7907
+ ,63.2011
+ ,62.9936
+ ,63.7676
+ ,63.9607
+ ,64.8684
+ ,66.2167
+ ,65.1905
+ ,63.5514
+ ,68.3809
+ ,69.843
+ ,70.4456
+ ,72.6987
+ ,73.2503
+ ,75.39
+ ,76.7653
+ ,78.1199
+ ,77.3497
+ ,79.2714
+ ,76.2054
+ ,75.3955
+ ,79.7612
+ ,79.2386
+ ,78.1645
+ ,78.9888
+ ,77.2839
+ ,77.4607
+ ,80.119
+ ,78.2463
+ ,78.7462
+ ,79.4238
+ ,75.414
+ ,74.8726
+ ,77.1615
+ ,77.3412
+ ,77.0865
+ ,77.89
+ ,77.6841
+ ,78.1148
+ ,79.1493
+ ,78.5283
+ ,77.5298
+ ,77.9514
+ ,73.6069
+ ,73.1158
+ ,75.1832
+ ,75.0664
+ ,74.0281
+ ,74.7019
+ ,73.735
+ ,77.3777
+ ,77.878
+ ,77.401
+ ,78.2675
+ ,79.5302
+ ,72.8207
+ ,74.0033
+ ,77.449
+ ,81.2804
+ ,81.4219
+ ,82.1758
+ ,82.8892
+ ,84.7337
+ ,87.3301
+ ,87.8216
+ ,85.4398
+ ,86.9063
+ ,80.5704
+ ,82.5019
+ ,86.59
+ ,88.633
+ ,87.7559
+ ,86.6434
+ ,90.1204
+ ,91.2213
+ ,90.4795
+ ,93.0381
+ ,88.7427
+ ,92.1139
+ ,83.8276
+ ,84.8992
+ ,88.8838
+ ,88.5976
+ ,87.5437
+ ,86.7091
+ ,89.7715
+ ,91.1737
+ ,91.6106
+ ,88.3626
+ ,89.7363
+ ,88.7189
+ ,81.4721
+ ,82.4016
+ ,86.0658
+ ,85.6953
+ ,83.9344
+ ,81.6215
+ ,82.3975
+ ,86.3819
+ ,86.1038
+ ,84.5059
+ ,82.7593
+ ,83.6718
+ ,74.8676
+ ,77.8998
+ ,81.6094
+ ,80.2569
+ ,78.934
+ ,76.8461
+ ,76.4379
+ ,83.14
+ ,84.6699
+ ,83.9001
+ ,84.4128
+ ,84.5982
+ ,76.5504
+ ,77.3826
+ ,80.4645
+ ,81.7259
+ ,81.1172
+ ,79.0921
+ ,82.5387
+ ,87.1251
+ ,89.2859
+ ,88.3042
+ ,89.4752
+ ,88.2355
+ ,81.8561
+ ,83.0776
+ ,87.1477
+ ,90.7124
+ ,89.762
+ ,88.3862
+ ,91.2844
+ ,94.0694
+ ,97.8276
+ ,96.8148
+ ,97.3319
+ ,98.5312
+ ,91.1703
+ ,91.3694
+ ,95.5428
+ ,97.6763
+ ,97.7141
+ ,96.3445
+ ,100.025
+ ,102.3597
+ ,105.204
+ ,102.4316
+ ,103.4731
+ ,104.1694
+ ,93.5787
+ ,99.1232
+ ,103.4544
+ ,105.7473
+ ,104.2672
+ ,103.1026
+ ,104.1296
+ ,108.4965
+ ,109.8198
+ ,107.6106
+ ,107.8281
+ ,109.7287
+ ,97.6251
+ ,103.0047
+ ,106.1376
+ ,105.9646
+ ,104.8394
+ ,104.2275
+ ,107.2308
+ ,111.2257
+ ,112.8528
+ ,113.3277
+ ,111.7505
+ ,113.8175
+ ,101.6558
+ ,110.6897
+ ,113.0814
+ ,115.8009
+ ,115.1707
+ ,112.6363
+ ,116.0443
+ ,118.0309
+ ,118.8054
+ ,115.4966
+ ,118.094
+ ,118.6035
+ ,107.4114
+ ,111.3856
+ ,112.5346
+ ,114.6943
+ ,112.6122
+ ,109.7866
+ ,110.4544
+ ,115.1139
+ ,115.6172
+ ,112.5556
+ ,114.1589
+ ,115.119
+ ,106.882
+ ,107.9909
+ ,110.4277
+ ,113.5898
+ ,112.0885
+ ,110.2452
+ ,114.3865
+ ,117.6803
+ ,121.578
+ ,120.3883
+ ,119.9315
+ ,122.5629
+ ,113.1804
+ ,116.3509
+ ,118.3224
+ ,120.2161
+ ,115.8601
+ ,111.9605
+ ,113.5343
+ ,117.011
+ ,118.0106
+ ,108.4076
+ ,107.3679
+ ,108.0767
+ ,96.193
+ ,99.545
+ ,99.4704
+ ,97.8261
+ ,94.4081
+ ,91.0333
+ ,94.633
+ ,98.3011
+ ,101.2542
+ ,101.943
+ ,101.4626
+ ,104.6361
+ ,95.4076
+ ,100.5585
+ ,102.4397
+ ,102.4682
+ ,100.5347
+ ,96.3614
+ ,98.1879
+ ,103.8705
+ ,106.9538
+ ,101.9913
+ ,101.1883
+ ,102.5391
+ ,92.5735
+ ,97.1734
+ ,98.9269
+ ,97.4649
+ ,99.3059
+ ,95.6932
+ ,98.3745
+ ,104.699
+ ,107.5364
+ ,105.4584
+ ,105.5292
+ ,107.5759
+ ,100.9253
+ ,102.2062
+ ,103.9621
+ ,105.8152
+ ,103.4771
+ ,99.3477
+ ,104.8433
+ ,109.1307
+ ,111.9788
+ ,113.4192
+ ,112.3856
+ ,115.1048
+ ,106.5391
+ ,107.1059
+ ,109.9143
+ ,113.2446
+ ,111.3802
+ ,107.9107
+ ,110.4635
+ ,113.5245
+ ,119.0838
+ ,116.748
+ ,115.7496
+ ,118.1148
+ ,113.841
+ ,116.8109
+ ,118.2177
+ ,116.2217
+ ,113.7052
+ ,113.2466
+ ,112.7474
+ ,115.4367
+ ,121.468
+ ,120.1442
+ ,119.4362
+ ,120.4465
+ ,114.0636
+ ,114.3524
+ ,117.9811
+ ,116.3073
+ ,113.2961
+ ,110.5361
+ ,112.2662
+ ,112.9306
+ ,118.1894
+ ,114.9061
+ ,111.9604
+ ,113.6805
+ ,106.0992
+ ,109.3849
+ ,107.7517
+ ,106.0548
+ ,102.6534
+ ,96.794
+ ,94.0817
+ ,93.4607
+ ,91.7029
+ ,87.1386
+ ,84.6498
+ ,84.2845
+ ,80.2547
+ ,82.4068)
> par3 = 'Industrial Production Index: Machinery NAICS=333; 2002=100; NSA'
> par2 = 'http://economagic.com/em-cgi/data.exe/frbg17/G333_ipnsa'
> par1 = 'Industrial Production Index: Machinery NAICS=333; 2002=100; NSA'
> ylab = 'value'
> xlab = 'index'
> main = 'Industrial Production Index: Machinery N'
> #'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/159gh1255461025.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/29dyp1255461025.tab") 
> 
> system("convert tmp/159gh1255461025.ps tmp/159gh1255461025.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.460   0.216   0.591