## Start with data
XY = SBCK::dataset_like_tas_pr(2000)
X0 = XY$X0
X1 = XY$X1
Y0 = XY$Y0
## Define the PPP method
ppp = PPPLogLinLink$new( bc_method = CDFt , cols = 2 ,
pipe = list(PPPSSR),
pipe_kwargs = list(list(cols=2)) )
## And now the correction
## Bias correction
ppp$fit(Y0,X0,X1)
Z = ppp$predict(X1,X0)
Run the code above in your browser using DataLab