function [c,uband,lband]=hillplot(data,param,opt,ci,plotlen)
%Plots the Hill estimate of the tail index of heavy-tailed data
%
% USAGE: [out,uband,lband]=hillplot(data,param,opt,ci,plotlen)
%
% data: Data vector
% param: whether 'alpha' or 'xi' (1/alpha) should be plotted
% opt: Option for plotting with respect to threshold ('t') or number of exceedances
% ('n').
% ci: Confidence interval
%plotlen: Optional argument that determines plotting range of hill estimate starting from
% first order statistics. It can be entered as an integer (no quotes) or as a
% percentage as '%5' including the quotes.
%
% out: Parameter plotted
% uband: Upper confidence interval
% lband: Lower confidence interval
data=surecol(data);<