盲目信任p值带来的错误性结果

假设检验中的P值只能说明有显著性差异，却不能说明差异的大小。且p值随着样本量的增大，会变小。如此一来，盲目信任P值会导致严重的错误。
如下为一段R代码，你品，你细品。