modified bonferroni correction

hi, is there a good way of doing a modified (less stringent) bonferroni 
correction in R?  if so could you give an example?

thanks,
jason dunsmore