# NOT RUN {
# GPD random sample
X <- rgpd(1000, gamma = 0.5, sigma = 2)
# Splice ME and GPD
splicefit <- SpliceFitGPD(X, 0.6)
x <- seq(0, 20, 0.01)
# Plot of spliced CDF
plot(x, pSplice(x, splicefit), type="l", xlab="x", ylab="F(x)")
# Plot of spliced PDF
plot(x, dSplice(x, splicefit), type="l", xlab="x", ylab="f(x)")
# Fitted survival function and empirical survival function
SpliceECDF(x, X, splicefit)
# Log-log plot with empirical survival function and fitted survival function
SpliceLL(x, X, splicefit)
# PP-plot of empirical survival function and fitted survival function
SplicePP(X, splicefit)
# PP-plot of empirical survival function and
# fitted survival function with log-scales
SplicePP(X, splicefit, log=TRUE)
# Splicing QQ-plot
SpliceQQ(X, splicefit)
# }
Run the code above in your browser using DataLab