I would like to solve the scale factor $a(t)$ in a FRW metric.
The Friedmann equation for the scale factor is:
$H^2 \equiv \left( \frac{\dot{a}}{a} \right)^2 = H_0^2\left[\Omega_R \left(\frac{a(t)}{a(t_0)}\right)^{-4}+\Omega_M \left(\frac{a(t)}{a(t_0)}\right)^{-3} +\Omega_\Lambda \right]\\ $
$ \frac{d^2a(t)}{dt^2} = H_0^2\left[ \Omega_R \frac{a(t_0)^4}{a(t)^2} + {\Omega_M} \frac{a(t_0)^3}{a(t)} +\Omega_\Lambda \right]$
I believe $a(t_0\equiv t=0)=1$ which represents the Universe today. $H_0 \simeq 1.44\times 10^{-42} \ { \text{GeV}} $ is the expansion rate measured today, $\Omega_R\simeq 9.2\times 10^{-5}$ for radiation, $\Omega_M \simeq 0.31$ for matter, and $\Omega_\Lambda\simeq 0.69$ for dark energy. In the above equation I take $a(t_0) = 1$ for the reason I outline above.
I am trying to solve this numerically in mathematica but I am unsure what to do for the boundary conditions as I am getting an error when I solve the above double differential equation. I take $a(0)=1$ i.e. the Universe today but what do I take for the other boundary condition. I am solving for earlier times so is this a negative $t$? i.e. is the other boundary condition $a(-100000)=0$.
I suggest this as at the very start of the Universe $a(t_{\text{early}})= 0$.