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



myrfcuid = 'r0687110'

x <- c(40.3105545108661,8.10478535408506,62.2503721293991,158.036910121033,-2.49986679998888,33.2600568075623,27.3235484874008,8.68853346264306,45.7331799191883,10.0525837130546,-37.3628654083609,6.20087121786452,65.9259138038709,-81.7789562763358,-92.1746513234155,-7.3521894364565,-3.01877472532556,22.8226043319919,94.6570627859797,-23.9189643709936,-0.975114574761247,-1.60315807765155,-0.199810298582729,14.6918179816508,-11.1259577405637,1.83408740733631,-83.0279808614524,27.5706497352354,-46.4717641214987,4.86400033824224,28.4467647334344,2.53558598497492,-111.822423621151,-62.3368420333084,21.7788273525226,-9.2252820777914,-18.4913448414827,-15.7287308915736,-28.127870554047,-27.9643699724303,-21.0956652638027,-13.2575934812382,14.4714665738766)
#'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/1fdzq1513938934.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/2z1dm1513938934.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/1fdzq1513938934.ps /home/pw/wessanet/rcomp/tmp/1fdzq1513938934.png",intern=TRUE))
try(system("convert /home/pw/wessanet/rcomp/tmp/2z1dm1513938934.ps /home/pw/wessanet/rcomp/tmp/2z1dm1513938934.png",intern=TRUE))