# NOT RUN {
data(Ogata)
p <- c(0.02, 70.77, 0.47, 0.002, 1.25)
TT <- c(0, 800)
bvalue <- 1
# Note that the plot function does not utilise the
# information about mark distributions, hence these
# arguments can be NULL
x <- mpp(data=Ogata,
gif=etas_gif,
marks=list(NULL, NULL),
params=p,
gmap=expression(params[1:5]),
mmap=NULL,
TT=TT)
plot(x, log=TRUE)
# }
Run the code above in your browser using DataLab