Compute tn10p and tx10p with custom threshold

[Abbyyaa]

I wish to change the threshold of tx10p and tn10p to 5%. I tried to edit(climdex.tn10p) in RStudio, changed the code to "ci@quantiles$tmin$outbase$q05, ci@quantiles$tmin$inbase$q05",but it did not work after running. What should I do? Thanks for your help.