sts_mult = new.env()

sts_mult$p_adjust = function( x , method ){

ori_p = summary(x)[[1]][['Pr(>F)']]
result = p.adjust( ori_p, method )

cat( "p adjustment\n" )
cat( paste( "Method:", method, "\n", sep=" ", collapse=" " ) )
return(result)

}