R：投掷一枚公平的硬币500次并计算以下情况的概率

Question

当公平硬币被抛500次时，我如何估计获得的头部比例在0.5和0.52之间的概率？

到目前为止我能做些什么来计算500次试验中的头部

  a=rbinom(500,size=1,prob=.5)