Hubble.LCDM <- function(z,Omega.M0=0.3,Omega.L0=0.7){ sqrt( Omega.M0*(1.+z)^3+Omega.L0+(1.-Omega.M0-Omega.L0)*(1.+z)^2 ) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.