# NOT RUN {
data(dataspm)
pars <- log(c(0.164,6740,3564,0.05))
bestSP <- fitSPM(pars,fish=dataspm,funkone=TRUE)
ans <- plotspmmod(bestSP$estimate,dataspm,schaefer=TRUE,addrmse=TRUE)
str(ans)
outs <- spmphaseplot(ans,fnt=7)
str(outs)
# }
Run the code above in your browser using DataLab