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.

> y <- c(100.00
+ ,102.58
+ ,84.79
+ ,74.23
+ ,82.99
+ ,93.30
+ ,98.45
+ ,91.24
+ ,65.21
+ ,57.22
+ ,73.45
+ ,71.65
+ ,58.76
+ ,58.25
+ ,69.85
+ ,71.39
+ ,71.39
+ ,68.04
+ ,65.98
+ ,53.35
+ ,59.79
+ ,55.67
+ ,57.47
+ ,61.86
+ ,73.20
+ ,71.39
+ ,75.52
+ ,75.00
+ ,69.33
+ ,61.34
+ ,66.49
+ ,82.22
+ ,72.68
+ ,70.10
+ ,65.21
+ ,69.59
+ ,62.37
+ ,64.43
+ ,59.54
+ ,62.11
+ ,65.98
+ ,71.13
+ ,69.85
+ ,62.89
+ ,63.40
+ ,54.64
+ ,51.29
+ ,47.94
+ ,48.45
+ ,46.91
+ ,44.85
+ ,44.07
+ ,35.57
+ ,32.73
+ ,30.67
+ ,32.99
+ ,30.67
+ ,31.44
+ ,37.89
+ ,37.63
+ ,50.52
+ ,48.45
+ ,52.32
+ ,52.58
+ ,48.97
+ ,46.39
+ ,49.48
+ ,49.48
+ ,50.77
+ ,63.40
+ ,60.82
+ ,65.21
+ ,59.54
+ ,51.03
+ ,37.63
+ ,32.47
+ ,40.72
+ ,44.85
+ ,48.71
+ ,47.68
+ ,41.75
+ ,33.51
+ ,36.60
+ ,29.64
+ ,10.82
+ ,19.07
+ ,26.29
+ ,38.92
+ ,47.94
+ ,40.98
+ ,26.55
+ ,11.34
+ ,21.13
+ ,22.16
+ ,14.95
+ ,15.21
+ ,24.48
+ ,25.26
+ ,31.70
+ ,30.15
+ ,21.65
+ ,19.07
+ ,16.75
+ ,23.45
+ ,30.67
+ ,33.51
+ ,39.43
+ ,50.00
+ ,46.13
+ ,50.26
+ ,58.25
+ ,52.58
+ ,55.67
+ ,70.88
+ ,71.91
+ ,74.23
+ ,86.60
+ ,76.55
+ ,79.90
+ ,64.18
+ ,56.70
+ ,57.99
+ ,53.87
+ ,71.91
+ ,80.93
+ ,75.52
+ ,68.30
+ ,68.81
+ ,58.25
+ ,60.57
+ ,54.90
+ ,56.19
+ ,74.74
+ ,67.78
+ ,68.81
+ ,46.65
+ ,34.28
+ ,22.68
+ ,32.99
+ ,32.47
+ ,32.47
+ ,33.25
+ ,28.35
+ ,35.31
+ ,31.19
+ ,44.85
+ ,45.36
+ ,38.14
+ ,26.80
+ ,41.75
+ ,38.40
+ ,46.13
+ ,46.39
+ ,40.72
+ ,47.94
+ ,44.85
+ ,40.98
+ ,32.47
+ ,29.12
+ ,49.48
+ ,67.27
+ ,58.25
+ ,62.11
+ ,58.25
+ ,52.32
+ ,73.71
+ ,65.72
+ ,58.51
+ ,58.25
+ ,66.24
+ ,79.12
+ ,71.13
+ ,64.69
+ ,73.97
+ ,80.93
+ ,80.15
+ ,81.44
+ ,63.66
+ ,66.24
+ ,74.48
+ ,67.78
+ ,61.34
+ ,43.56
+ ,50.52
+ ,56.44
+ ,48.20
+ ,41.24
+ ,42.01
+ ,31.44
+ ,31.19
+ ,38.40
+ ,42.27
+ ,42.78
+ ,45.62
+ ,46.91
+ ,45.88
+ ,32.99
+ ,33.25
+ ,35.31
+ ,28.87
+ ,38.92
+ ,57.73
+ ,75.77
+ ,79.64
+ ,89.18
+ ,93.81
+ ,113.14
+ ,106.96
+ ,134.28
+ ,149.48
+ ,152.32
+ ,138.92
+ ,140.72
+ ,121.65
+ ,80.93
+ ,67.78
+ ,59.79
+ ,49.74
+ ,15.98
+ ,15.46
+ ,-9.54
+ ,-28.35
+ ,-43.30
+ ,-20.10)
> x <- c(100.00
+ ,100.78
+ ,101.24
+ ,102.35
+ ,102.41
+ ,102.67
+ ,102.54
+ ,102.74
+ ,103.07
+ ,103.39
+ ,103.72
+ ,103.91
+ ,104.37
+ ,104.89
+ ,105.61
+ ,106.00
+ ,106.13
+ ,106.20
+ ,106.26
+ ,106.33
+ ,106.98
+ ,107.44
+ ,107.50
+ ,107.57
+ ,107.63
+ ,108.15
+ ,108.35
+ ,109.07
+ ,109.39
+ ,109.78
+ ,109.98
+ ,110.18
+ ,110.31
+ ,110.57
+ ,110.63
+ ,110.70
+ ,110.76
+ ,111.15
+ ,111.48
+ ,112.13
+ ,112.13
+ ,112.20
+ ,112.20
+ ,112.46
+ ,112.85
+ ,113.31
+ ,113.37
+ ,113.37
+ ,113.44
+ ,113.89
+ ,114.16
+ ,114.74
+ ,114.81
+ ,114.22
+ ,114.55
+ ,114.74
+ ,115.26
+ ,114.87
+ ,114.87
+ ,114.94
+ ,115.00
+ ,115.98
+ ,116.44
+ ,117.03
+ ,117.09
+ ,117.16
+ ,117.22
+ ,117.22
+ ,117.29
+ ,117.35
+ ,117.55
+ ,117.68
+ ,117.68
+ ,118.26
+ ,118.66
+ ,119.05
+ ,119.18
+ ,119.44
+ ,119.77
+ ,119.83
+ ,119.90
+ ,119.96
+ ,120.09
+ ,120.29
+ ,120.35
+ ,121.27
+ ,121.72
+ ,122.37
+ ,122.50
+ ,122.57
+ ,122.64
+ ,122.83
+ ,122.90
+ ,122.96
+ ,122.96
+ ,123.03
+ ,123.03
+ ,123.55
+ ,123.94
+ ,125.18
+ ,125.57
+ ,125.90
+ ,126.22
+ ,126.48
+ ,126.68
+ ,127.14
+ ,127.14
+ ,127.14
+ ,127.14
+ ,127.53
+ ,127.85
+ ,127.98
+ ,127.98
+ ,127.98
+ ,127.98
+ ,128.51
+ ,128.96
+ ,129.16
+ ,129.29
+ ,129.48
+ ,129.55
+ ,130.14
+ ,130.46
+ ,131.31
+ ,131.90
+ ,132.35
+ ,132.75
+ ,132.75
+ ,133.07
+ ,133.14
+ ,133.27
+ ,133.40
+ ,133.59
+ ,133.79
+ ,134.18
+ ,134.70
+ ,134.96
+ ,135.09
+ ,135.55
+ ,135.68
+ ,136.01
+ ,136.07
+ ,136.33
+ ,136.40
+ ,136.79
+ ,136.86
+ ,136.92
+ ,136.99
+ ,137.51
+ ,137.90
+ ,138.10
+ ,138.29
+ ,138.42
+ ,138.55
+ ,138.88
+ ,139.20
+ ,139.40
+ ,139.60
+ ,139.79
+ ,140.12
+ ,140.25
+ ,140.83
+ ,141.16
+ ,141.49
+ ,141.68
+ ,141.88
+ ,142.14
+ ,142.27
+ ,142.60
+ ,142.79
+ ,143.05
+ ,143.77
+ ,144.10
+ ,144.16
+ ,144.68
+ ,144.81
+ ,144.94
+ ,145.14
+ ,145.40
+ ,145.53
+ ,145.73
+ ,146.12
+ ,146.84
+ ,147.10
+ ,147.36
+ ,147.62
+ ,147.75
+ ,148.08
+ ,148.27
+ ,148.60
+ ,148.79
+ ,148.99
+ ,149.05
+ ,149.25
+ ,149.38
+ ,149.45
+ ,149.58
+ ,149.77
+ ,149.97
+ ,150.03
+ ,150.16
+ ,150.55
+ ,150.68
+ ,151.14
+ ,151.27
+ ,151.99
+ ,153.36
+ ,153.95
+ ,154.53
+ ,154.66
+ ,154.92
+ ,155.38
+ ,155.84
+ ,155.97
+ ,156.56
+ ,156.69
+ ,156.88
+ ,157.01
+ ,157.27
+ ,157.47
+ ,157.99
+ ,158.45
+ ,158.64
+ ,159.10)
> par20 = ''
> par19 = ''
> par18 = ''
> par17 = ''
> par16 = ''
> par15 = ''
> par14 = ''
> par13 = ''
> par12 = ''
> par11 = ''
> par10 = ''
> par9 = ''
> par8 = ''
> par7 = ''
> par6 = ''
> par5 = 'Belg_Infl'
> par4 = 'Belg_Uurl'
> par3 = 'TRUE'
> par2 = 'blue'
> par1 = 'red'
> ylab = ''
> xlab = ''
> main = ''
> #'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 (par3 == 'TRUE') par3 <- TRUE
> if (par3 == 'FALSE') par3 <- FALSE
> library(Hmisc)
Loading required package: survival
Loading required package: splines

Attaching package: 'Hmisc'


	The following object(s) are masked from package:survival :

	 untangle.specials 


	The following object(s) are masked from package:base :

	 format.pval,
	 round.POSIXt,
	 trunc.POSIXt,
	 units 

> z <- data.frame(cbind(x,y))
> names(z) <- list(par4,par5)
> postscript(file="/var/www/html/rcomp/tmp/1mxc91257934701.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> out <- histbackback(z, probability=par3, main = main, ylab = ylab)
> barplot(-out$left, col=par1, horiz=TRUE, space=0, add=TRUE, axes=FALSE)
> barplot(out$right, col=par2, horiz=TRUE, space=0, add=TRUE, axes=FALSE)
> dev.off()
null device 
          1 
> 
> system("convert tmp/1mxc91257934701.ps tmp/1mxc91257934701.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.639   0.176   6.656