R version 2.7.2 (2008-08-25)
Copyright (C) 2008 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 <- array(list(299.63
+ ,154.783
+ ,301.606
+ ,28.235
+ ,305.945
+ ,187.646
+ ,268.225
+ ,29.801
+ ,382.252
+ ,237.863
+ ,362.082
+ ,37.222
+ ,348.846
+ ,215.54
+ ,310.984
+ ,28.402
+ ,335.367
+ ,231.745
+ ,350.907
+ ,30.54
+ ,373.617
+ ,199.548
+ ,365.759
+ ,34.35
+ ,312.612
+ ,164.147
+ ,357.504
+ ,28.713
+ ,312.232
+ ,159.388
+ ,432.236
+ ,26.181
+ ,337.161
+ ,203.514
+ ,394.335
+ ,36.015
+ ,331.476
+ ,224.901
+ ,404.182
+ ,35.501
+ ,350.103
+ ,211.539
+ ,371.721
+ ,37.376
+ ,345.127
+ ,211.16
+ ,387.012
+ ,35.38
+ ,297.256
+ ,181.712
+ ,280.042
+ ,33.302
+ ,295.979
+ ,203.908
+ ,357.111
+ ,32.035
+ ,361.007
+ ,240.774
+ ,359.451
+ ,40.569
+ ,321.803
+ ,232.819
+ ,341.206
+ ,36.255
+ ,354.937
+ ,255.221
+ ,349.156
+ ,36.291
+ ,349.432
+ ,246.7
+ ,430.298
+ ,43.483
+ ,290.979
+ ,206.263
+ ,354.447
+ ,30.551
+ ,349.576
+ ,211.679
+ ,400.785
+ ,30.658
+ ,327.625
+ ,236.601
+ ,358.974
+ ,40.05
+ ,349.377
+ ,237.43
+ ,352.853
+ ,38.603
+ ,336.777
+ ,233.767
+ ,374.229
+ ,35.466
+ ,339.134
+ ,219.52
+ ,364.568
+ ,34.914
+ ,323.321
+ ,222.625
+ ,352.411
+ ,37.98
+ ,318.86
+ ,216.238
+ ,376.47
+ ,37.173
+ ,373.583
+ ,248.587
+ ,357.475
+ ,43.808
+ ,333.03
+ ,221.376
+ ,299.497
+ ,35.656
+ ,408.556
+ ,242.453
+ ,361.805
+ ,38.111
+ ,414.646
+ ,246.539
+ ,343.188
+ ,43.901
+ ,291.514
+ ,189.351
+ ,335.597
+ ,32.528
+ ,348.857
+ ,185.956
+ ,330.985
+ ,32.882
+ ,349.368
+ ,213.175
+ ,336.723
+ ,38.607
+ ,375.765
+ ,228.732
+ ,348.076
+ ,38.075
+ ,364.136
+ ,212.93
+ ,317.518
+ ,38.009
+ ,349.53
+ ,218.254
+ ,345.737
+ ,34.615
+ ,348.167
+ ,227.103
+ ,342.568
+ ,38.052
+ ,332.856
+ ,219.026
+ ,352.951
+ ,36.941
+ ,360.551
+ ,264.529
+ ,400.269
+ ,43.094
+ ,346.969
+ ,262.057
+ ,428.121
+ ,38.676
+ ,392.815
+ ,258.779
+ ,475.804
+ ,43.196
+ ,372.02
+ ,231.928
+ ,392.732
+ ,43.4
+ ,371.027
+ ,211.167
+ ,388.22
+ ,43.133
+ ,342.672
+ ,205.439
+ ,410.643
+ ,34.862
+ ,367.343
+ ,224.883
+ ,428.044
+ ,38.572
+ ,390.786
+ ,228.624
+ ,530.799
+ ,45.347
+ ,343.785
+ ,209.435
+ ,463.074
+ ,40.38
+ ,362.6
+ ,215.607
+ ,477.686
+ ,36.841
+ ,349.468
+ ,287.356
+ ,440.586
+ ,42.746
+ ,340.624
+ ,306.015
+ ,424.757
+ ,43.523
+ ,369.536
+ ,338.546
+ ,511.061
+ ,46.847
+ ,407.782
+ ,344.16
+ ,511.421
+ ,45.618
+ ,392.239
+ ,328.412
+ ,454.39
+ ,45.013
+ ,404.824
+ ,342.006
+ ,498.403
+ ,52.942
+ ,373.669
+ ,277.668
+ ,516.143
+ ,48.958
+ ,344.902
+ ,290.477
+ ,463.642
+ ,43.816
+ ,396.7
+ ,314.967
+ ,498.391
+ ,52.544
+ ,398.911
+ ,324.627
+ ,533.752
+ ,49.985
+ ,366.009
+ ,290.646
+ ,404.341
+ ,43.597
+ ,392.484
+ ,315.033
+ ,435.645
+ ,48.348)
+ ,dim=c(4
+ ,60)
+ ,dimnames=list(c('dieren'
+ ,'planten'
+ ,'mineralen'
+ ,'leder')
+ ,1:60))
>  y <- array(NA,dim=c(4,60),dimnames=list(c('dieren','planten','mineralen','leder'),1:60))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> par1 = 'TRUE'
> main = 'Starplot'
> #'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!)
> if (par1 == 'TRUE') par1 <- TRUE
> if (par1 == 'FALSE') par1 <- FALSE
> postscript(file="/var/www/html/rcomp/tmp/1bmtq1226255111.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> stars(t(y), main = main, full=par1, key.loc = c(14, 2))
> dev.off()
null device 
          1 
> 
> system("convert tmp/1bmtq1226255111.ps tmp/1bmtq1226255111.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.630   0.153   0.700