# NOT RUN {
library(NGSSEML)
data(gte_data)
Yt=gte_data$V1
Xt=as.matrix(1:125)
model="PEM"
amp=FALSE
Event=gte_data$V2 # Event: failure, 1.
Break=GridP(Yt, Event, nT = NULL)
LabelParTheta=c("w")
StaPar=c(0.73)
out=ProdXtChi(StaPar,Yt,Break,Event,Xt)
# }
Run the code above in your browser using DataLab