Can anyone help me if this PLSR function is working correct?

I have a PLSR function for modeling and prediction that I downloaded from file exchange (which no longer exist). I wanted to see if any one can check and see if it is written correct or not. The modeling function and prediction function are attached.