# \donttest{
data("GasolineYield",package="betareg")
modplsbeta <- plsRbeta(yield~.,data=GasolineYield,nt=3, modele="pls-beta")
GazYield.boot.raw <- bootplsbeta(modplsbeta, sim="permutation", stype="i",
R=250, statistic=coefs.plsRbeta.raw)
# }
Run the code above in your browser using DataLab