data("italycatalog")
# load a sample catalog of the italian seismicity
class(italycatalog)<-"eqcat"
etas3.1<-etasclass(italycatalog,description="etas flp",magn.threshold=3.1,thinning=FALSE,flp=TRUE,
is.backconstant=FALSE,magn.threshold.back=3.5,sectoday=TRUE,
onlytime=FALSE,declustering=TRUE,epsmax=0.00001,
params.ind=c(1,1,1,1,1,1,1,1),k0=0.005,c=0.005,p=1.01,a=1.05,gamma=0.6,q=1.52,d=1.1,
compsqm=TRUE,usenlm=TRUE,ndeclust=15)
# execution of etasclass for events with minimum magnitude of 3.1.
# The events with magnitude at least 3.5 are used to build a first approximation
# for the background intensity function
# (magn.threshold.back=3.5)
# plot method
> plot(etas3.1)
# profile likelihood for the 5-th parameter (a), with plot:
prof=profile(etas3.1,nprofile=7,iprofile=5)
plot(prof)Run the code above in your browser using DataLab