Is there any way to fix this R problem of calculating pCorrection

Question

To adjust the p value and filter variables according to the threshold, i was running like this:

pCorrection = function(score, p0)
{
  score = p.adjust(score,