怎样用R语言求矩量法估计最大值小于样本最大值的频率

怎样用R语言求矩量法估计最大值小于样本最大值的频率?若服从均匀分布。