R/print.etasclass.R

Defines functions print.etasclass

Documented in print.etasclass

print.etasclass<-function(x,...){
	  if(class(x)!="etasclass")stop(" argument x must be an etasclass object")

cat("Call:","\n","\n")
print(x$this.call)
cat("\n","\n","\n")
cat(x$description,"\n")
cat("Number of observations            ",length(x$cat$time),"\n")

cat("ETAS Parameters:","\n")
ris=x$params
print(round(ris,6))
}

Try the etasFLP package in your browser

Any scripts or data that you put into this service are public.

etasFLP documentation built on May 1, 2019, 6:48 p.m.