R version 2.6.0 (2007-10-03) Copyright (C) 2007 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(99.0 + ,101.5 + ,108.4 + ,115.4 + ,126.6 + ,117.0 + ,106.9 + ,93.9 + ,103.8 + ,107.1 + ,89.8 + ,100.8 + ,99.3 + ,93.4 + ,110.6 + ,99.2 + ,101.5 + ,104.0 + ,108.3 + ,110.4 + ,112.6 + ,105.6 + ,105.9 + ,107.3 + ,99.5 + ,108.4 + ,98.9 + ,107.4 + ,113.9 + ,109.8 + ,93.1 + ,86.1 + ,104.9 + ,88.1 + ,69.4 + ,102.2 + ,110.7 + ,101.2 + ,123.9 + ,113.1 + ,100.5 + ,124.9 + ,99.6 + ,98.0 + ,112.7 + ,93.6 + ,106.6 + ,121.9 + ,98.6 + ,90.1 + ,100.6 + ,99.6 + ,96.9 + ,104.3 + ,114.3 + ,125.9 + ,120.4 + ,107.8 + ,112.0 + ,107.5 + ,101.2 + ,100.0 + ,102.9 + ,112.5 + ,123.9 + ,125.6 + ,100.5 + ,79.8 + ,107.5 + ,93.9 + ,83.4 + ,108.8 + ,116.2 + ,113.6 + ,128.4 + ,112.0 + ,112.9 + ,121.1 + ,106.4 + ,104.0 + ,119.5 + ,95.7 + ,109.9 + ,128.7 + ,96.0 + ,99.0 + ,108.7 + ,95.8 + ,106.3 + ,105.5 + ,103.0 + ,128.9 + ,119.8 + ,102.2 + ,111.1 + ,111.3 + ,98.4 + ,102.9 + ,110.6 + ,111.4 + ,130.0 + ,120.1 + ,86.6 + ,87.0 + ,97.5 + ,91.3 + ,87.5 + ,107.7 + ,107.9 + ,117.6 + ,127.3 + ,101.8 + ,103.4 + ,117.2 + ,104.4 + ,110.8 + ,119.8 + ,93.4 + ,112.6 + ,116.2 + ,100.1 + ,102.5 + ,111.0 + ,98.5 + ,112.4 + ,112.4 + ,112.9 + ,135.6 + ,130.6 + ,101.4 + ,105.1 + ,109.1 + ,107.1 + ,127.7 + ,118.8 + ,110.8 + ,137.0 + ,123.9 + ,90.3 + ,91.0 + ,101.6 + ,95.5 + ,90.5 + ,112.8 + ,111.4 + ,122.4 + ,128.0 + ,113.0 + ,123.3 + ,129.6 + ,107.5 + ,124.3 + ,125.8 + ,95.9 + ,120.0 + ,119.5 + ,106.3 + ,118.1 + ,115.7 + ,105.2 + ,119.0 + ,113.6 + ,117.2 + ,142.7 + ,129.7 + ,106.9 + ,123.6 + ,112.0 + ,108.2 + ,129.6 + ,116.8 + ,110.0 + ,146.9 + ,126.3 + ,96.1 + ,108.7 + ,112.9 + ,100.6 + ,99.4 + ,115.9) + ,dim=c(3 + ,60) + ,dimnames=list(c('intermediare' + ,'investering' + ,'consumptie ') + ,1:60)) > y <- array(NA,dim=c(3,60),dimnames=list(c('intermediare','investering','consumptie '),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: Wessa P., (2007), Star Plot (v1.0.2) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_starplot.wasp/ > #Source of accompanying publication: Office for Research, Development, and Education > #Technical description: Write here your technical program description > if (par1 == 'TRUE') par1 <- TRUE > if (par1 == 'FALSE') par1 <- FALSE > postscript(file="/var/www/html/rcomp/tmp/11exx1194256930.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)) Warning messages: 1: In text.default(label.x[k], label.y[k], labels = key.labels[k], : font width unknown for character 0xd 2: In text.default(label.x[k], label.y[k], labels = key.labels[k], : font width unknown for character 0xd > dev.off() null device 1 > > system("convert tmp/11exx1194256930.ps tmp/11exx1194256930.png") > > > proc.time() user system elapsed 0.651 0.170 0.774