source('/home/pw/wessanet/cretab')

x <- c(112,118,132,129,121,135,148,148,136,119,104,118,115,126,141,135,125,149,170,170,158,133,114,140,145,150,178,163,172,178,199,199,184,162,146,166,171,180,193,181,183,218,230,242,209,191,172,194,196,196,236,235,229,243,264,272,237,211,180,201,204,188,235,227,234,264,302,293,259,229,203,229,242,233,267,269,270,315,364,347,312,274,237,278,284,277,317,313,318,374,413,405,355,306,271,306,315,301,356,348,355,422,465,467,404,347,305,336,340,318,362,348,363,435,491,505,404,359,310,337,360,342,406,396,420,472,548,559,463,407,362,405,417,391,419,461,472,535,622,606,508,461,390,432)
#'GNU S' R Code compiled by R2WASP v. 1.2.327 (Tue, 16 Aug 2016 15:29:09 +0200)
#Author: root
#To cite this work: Patrick Wessa (2015) Skewness-Kurtosis Plot (v1.0.1) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_skewness_kurtosis_plot.wasp/
#Source of accompanying publication: 
#
library(fitdistrplus)
postscript(file="/home/pw/wessanet/rcomp/tmp/1r0y71476879498.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
plotdist(x, histo = TRUE, demp = TRUE)
dev.off()
postscript(file="/home/pw/wessanet/rcomp/tmp/2jabn1476879498.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
descdist(x, boot = 1000)
dev.off()

try(system("convert /home/pw/wessanet/rcomp/tmp/1r0y71476879498.ps /home/pw/wessanet/rcomp/tmp/1r0y71476879498.png",intern=TRUE))
try(system("convert /home/pw/wessanet/rcomp/tmp/2jabn1476879498.ps /home/pw/wessanet/rcomp/tmp/2jabn1476879498.png",intern=TRUE))