powered by
pztp(y, lambda)
dztp
y<-0:10 lambda1<-5 # fixed lambda out1<-pztp(y,lambda1) lambda2<-2:12 # variable lambda out2<-pztp(y,lambda2)
Run the code above in your browser using DataLab