Error in if(temp > maxtstat){ : the condition has length >1

[DreammerLiu]

Hello,

I am learning R, and I am trying to detect bubble in house price, and your code "rtadfr" helps a lot! Thank you!
When I run test <- rtadf(snp[,1], r0, test = "sadf") with my own data, it can run, however, when I tried to add type="drift" or type="trend" into this code, it shows "Error in if(temp > maxtstat){ : the condition has length >1".

Is there any problem with my data? Could you tell me how to resolve this issue?

Thank you