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(68.9389
+ ,69.5562
+ ,70.8077
+ ,71.3984
+ ,71.2823
+ ,71.7861
+ ,70.9472
+ ,71.0789
+ ,73.9134
+ ,74.6825
+ ,77.4848
+ ,79.6065
+ ,77.649
+ ,79.9223
+ ,80.0666
+ ,80.6083
+ ,81.5459
+ ,82.9224
+ ,82.6049
+ ,82.5111
+ ,84.8362
+ ,86.3735
+ ,86.8672
+ ,87.157
+ ,83.9265
+ ,82.9092
+ ,83.1861
+ ,81.2494
+ ,84.3341
+ ,83.2283
+ ,82.5794
+ ,83.6219
+ ,85.8007
+ ,85.9613
+ ,86.4686
+ ,86.2862
+ ,83.1145
+ ,79.1357
+ ,79.7505
+ ,78.5662
+ ,81.297
+ ,81.6038
+ ,78.0285
+ ,77.5713
+ ,80.5455
+ ,79.4068
+ ,78.2824
+ ,81.4316
+ ,78.5677
+ ,76.9412
+ ,77.0734
+ ,74.1584
+ ,75.3942
+ ,74.4277
+ ,70.2703
+ ,71.3428
+ ,72.75
+ ,74.0072
+ ,75.9282
+ ,76.5977
+ ,74.7156
+ ,75.4422
+ ,74.545
+ ,75.5327
+ ,76.7329
+ ,77.71
+ ,76.2929
+ ,75.3263
+ ,78.0472
+ ,71.1196
+ ,71.7811
+ ,77.3862
+ ,76.534
+ ,73.9855
+ ,78.2335
+ ,81.4256
+ ,82.3847
+ ,84.5886
+ ,82.5268
+ ,82.9364
+ ,86.541
+ ,86.8975
+ ,88.9773
+ ,92.5756
+ ,91.2363
+ ,94.3205
+ ,94.7827
+ ,91.104
+ ,95.0167
+ ,96.0151
+ ,96.1855
+ ,96.6363
+ ,97.9763
+ ,101.1358
+ ,103.8571
+ ,106.0818
+ ,103.3291
+ ,105.285
+ ,105.5412
+ ,103.6643
+ ,103.8567
+ ,103.8364
+ ,100.9356
+ ,101.6415
+ ,104.6375
+ ,105.2571
+ ,108.1117
+ ,109.9788
+ ,105.9254
+ ,103.9003
+ ,104.0907
+ ,101.6736
+ ,101.4027
+ ,99.4262
+ ,96.3326
+ ,96.3038
+ ,98.4553
+ ,96.9497
+ ,98.3349
+ ,98.8164
+ ,92.921
+ ,95.6113
+ ,94.8891
+ ,93.2624
+ ,92.7424
+ ,92.2342
+ ,90.9626
+ ,89.8165
+ ,92.9684
+ ,93.5804
+ ,95.4579
+ ,96.0399
+ ,92.8484
+ ,90.6211
+ ,91.534
+ ,89.2231
+ ,88.3949
+ ,87.2669
+ ,85.9243
+ ,84.6606
+ ,87.7452
+ ,88.3788
+ ,89.9992
+ ,91.1347
+ ,90.419
+ ,91.5416
+ ,91.6458
+ ,93.2647
+ ,93.4147
+ ,93.6987
+ ,91.3357
+ ,92.6094
+ ,96.8567
+ ,97.5833
+ ,98.3014
+ ,100.9219
+ ,98.8193
+ ,97.9357
+ ,99.8832
+ ,98.2703
+ ,99.1522
+ ,100.1836
+ ,97.6835
+ ,99.1715
+ ,101.9936
+ ,102.7833
+ ,106.0918
+ ,108.2503
+ ,106.6641
+ ,104.7203
+ ,104.5667
+ ,104.366
+ ,104.5341
+ ,104.533
+ ,102.191
+ ,104.2063
+ ,106.9029
+ ,107.1067
+ ,109.8204
+ ,111.5426
+ ,109.1604
+ ,109.8593
+ ,109.9735
+ ,108.3596
+ ,108.4506
+ ,108.0706
+ ,105.7313
+ ,107.4657
+ ,110.0289
+ ,110.7021
+ ,113.2511
+ ,116.9305
+ ,116.6417
+ ,115.3745
+ ,113.3015
+ ,112.6942
+ ,114.3042
+ ,114.5067
+ ,114.2903
+ ,113.1999
+ ,116.0274
+ ,116.3233
+ ,118.8903
+ ,121.1325
+ ,119.7418
+ ,120.5681
+ ,121.7263
+ ,122.6029
+ ,123.1962
+ ,124.9104999999
+ ,123.0401
+ ,123.2632
+ ,126.7143
+ ,119.5372
+ ,119.533
+ ,125.6159
+ ,124.4585
+ ,123.703
+ ,124.7151
+ ,120.2662
+ ,123.1165
+ ,122.9316
+ ,121.7784
+ ,120.4794
+ ,122.8553
+ ,123.0203
+ ,122.906
+ ,125.5212
+ ,122.6223
+ ,120.9517
+ ,121.1659
+ ,118.3785
+ ,117.1069
+ ,117.7677
+ ,114.7782
+ ,116.2183
+ ,118.2042
+ ,118.7998
+ ,119.3336
+ ,118.584
+ ,114.0289
+ ,112.6952
+ ,112.1601
+ ,108.8099
+ ,108.6228
+ ,108.9836
+ ,105.7429
+ ,107.1309
+ ,107.5532
+ ,108.7038
+ ,110.4006
+ ,112.4545
+ ,109.5422
+ ,107.4325
+ ,105.9586
+ ,103.997
+ ,102.4122
+ ,100.9412
+ ,99.7582
+ ,98.883
+ ,99.8929
+ ,99.6277
+ ,99.7758
+ ,99.7334
+ ,95.8031
+ ,93.0465
+ ,93.2852
+ ,92.2838
+ ,91.847
+ ,91.5255
+ ,88.927
+ ,88.2991
+ ,90.8406
+ ,90.7969
+ ,92.4142
+ ,93.1597
+ ,90.5181
+ ,90.2451
+ ,89.948
+ ,86.9568
+ ,87.9531
+ ,88.5755
+ ,86.1647
+ ,86.3484
+ ,88.2144
+ ,83.6375
+ ,83.0864
+ ,85.613
+ ,84.0169
+ ,86.8921
+ ,88.8538
+ ,87.6995
+ ,89.5448
+ ,89.564
+ ,90.0904
+ ,90.9389
+ ,93.5084
+ ,94.1205
+ ,95.6278
+ ,97.3315
+ ,94.8788
+ ,95.9624
+ ,98.3386
+ ,98.6227
+ ,99.0952
+ ,100.0738
+ ,99.1493
+ ,101.756
+ ,104.3923
+ ,104.6739
+ ,107.1158
+ ,110.4159
+ ,109.858
+ ,110.803
+ ,112.6763999999
+ ,108.9125
+ ,117.155
+ ,119.7329
+ ,118.5664
+ ,120.413
+ ,120.2013
+ ,122.701
+ ,123.1884
+ ,123.4844
+ ,118.7346
+ ,118.1441
+ ,117.1999
+ ,114.5416
+ ,113.6558
+ ,113.345
+ ,110.7514
+ ,112.78
+ ,110.3776
+ ,109.9387
+ ,108.7421
+ ,108.8237
+ ,102.1155
+ ,98.5228
+ ,99.3198
+ ,96.354
+ ,95.7914
+ ,97.8191
+ ,98.9062
+ ,97.6093
+ ,97.8282
+ ,100.2571
+ ,103.1866
+ ,104.3811
+ ,103.1267
+ ,102.9717
+ ,105.7319
+ ,102.2128
+ ,105.0907
+ ,106.3459
+ ,105.4728
+ ,106.2113
+ ,109.3022
+ ,109.0402
+ ,108.1973
+ ,107.1902
+ ,104.9756
+ ,103.3495
+ ,105.117
+ ,100.1168
+ ,99.7165
+ ,99.7445
+ ,96.3242
+ ,96.8626
+ ,98.8163
+ ,98.598
+ ,97.4646
+ ,98.9143
+ ,96.437
+ ,95.9262
+ ,98.4346
+ ,96.5036
+ ,96.4919
+ ,96.583
+ ,92.5968
+ ,94.8806
+ ,96.0059
+ ,95.2151
+ ,95.516
+ ,95.138
+ ,92.1492
+ ,93.0112
+ ,94.3116
+ ,92.5164
+ ,92.6786
+ ,93.0154
+ ,91.1876
+ ,93.6661
+ ,94.9131
+ ,95.9221
+ ,97.6743
+ ,100.5624
+ ,98.8991
+ ,102.5595
+ ,105.8184
+ ,106.3147
+ ,106.9791
+ ,108.2625
+ ,104.2069
+ ,107.045
+ ,93.5009
+ ,105.968
+ ,108.4394
+ ,111.4339
+ ,109.3271
+ ,109.541
+ ,109.3712
+ ,107.3449
+ ,108.8295
+ ,110.4967
+ ,109.5208
+ ,110.0563
+ ,112.0473
+ ,112.9251
+ ,114.574
+ ,117.2451
+ ,116.7634
+ ,116.8635
+ ,117.6311
+ ,117.2478
+ ,118.9062
+ ,121.994
+ ,120.2777
+ ,122.7587
+ ,125.7248
+ ,125.3109
+ ,127.8577
+ ,129.0129
+ ,127.3259
+ ,124.5082
+ ,125.6841
+ ,124.2781
+ ,123.4542
+ ,125.7515
+ ,121.6142
+ ,122.2521
+ ,103.0566
+ ,98.8346
+ ,109.2111
+ ,125.3888
+ ,119.1823
+ ,117.9793
+ ,116.9113
+ ,112.5572
+ ,113.3611
+ ,113.7443
+ ,113.1739
+ ,114.1821)
> par3 = 'Industrial Production Index: Aerospace and miscellaneous transportation eq. NAICS=3364-9; 2002=100; NSA'
> par2 = 'http://economagic.com/em-cgi/data.exe/frbg17/G3364T9_ipnsa'
> par1 = 'Industrial Production Index: Aerospace and miscellaneous transportation eq. NAICS=3364-9; 2002=100; NSA'
> ylab = 'value'
> xlab = 'index'
> main = 'Industrial Production Index: Aerospace a'
> #'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/16jkf1255461435.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/2fxmk1255461435.tab") 
> 
> system("convert tmp/16jkf1255461435.ps tmp/16jkf1255461435.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.446   0.249   0.626