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



myrfcuid = 'r0711326'

x <- c(21,22,17,21,19,23,21,22,11,20,18,16,18,13,17,20,20,15,18,15,19,19,19,20,20,16,18,17,18,13,20,21,17,19,20,15,15,19,18,22,20,18,14,15,17,16,17,15,17,18,16,18,22,16,16,20,18,16,16,20,21,18,15,18,18,20,18,16,19,20,22,18,8,13,13,18,12,16,21,20,18,22,23,23,21,16,14,18,22,20,18,12,17,15,18,18,15,16,15,16,19,19,23,20,18,21,19,18,19,17,21,19,24,12,15,18,19,22,19,16,19,18,18,19,21,19,22,23,17,18,19,15,14,18,17,19,16,14,20,16,18,16,21,16,14,16,19,19,19,18,16,14,19,11,18,18,16,20,18,20,16,18,19,19,15,17,21,24,16,13,21,16,17,17,18,18,23,20,20)
#'GNU S' R Code compiled by R2WASP v. 1.2.327 (Mon, 17 Jul 2017 23:23:51 +0200)
#Author: root
#To cite this work: Patrick Wessa (2017) Skewness-Kurtosis Plot (v1.0.2) in Free Statistics Software (v$_version), Office for Research Development and Education, URL https://www.wessa.net/rwasp_skewness_kurtosis_plot.wasp/
#Source of accompanying publication: 
#
library(fitdistrplus)
postscript(file="/home/pw/wessanet/rcomp/tmp/1pyhh1513887760.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/2aatv1513887760.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/1pyhh1513887760.ps /home/pw/wessanet/rcomp/tmp/1pyhh1513887760.png",intern=TRUE))
try(system("convert /home/pw/wessanet/rcomp/tmp/2aatv1513887760.ps /home/pw/wessanet/rcomp/tmp/2aatv1513887760.png",intern=TRUE))