Best estimate of the age of the universe
For years people have tried to estimate the age of the universe. This data set collects a few estimates starting with lower bounds using estimates for the earth's age.
data(age.universe)
A data frame with 16 observations on the following 4 variables.
a numeric vector
a numeric vector
a numeric vector
Short description of source
In the last two decades estimates for the age of the universe have been greatly improved. As of 2013, the best guess is 13.7 billion years with a margin of error of 1 percent. This last estimate is found by WMAP using microwave background radiation. Previous estimates were also based on estimates of Hubble's constant, and dating of old stars.
This data was collected from the following web sites: http://arxiv.org/abs/1212.5225, http://www.cwru.edu/pubaff/univcomm/2003/1-03/kraussuniverse.htm, http://www.astro.ucla.edu/~wright/age.html, http://www.lhup.edu/~dsimanek/cutting/ageuniv.htm, and http://map.gsfc.nasa.gov/m_uni/uni_101age.html.
data(age.universe) n <- nrow(age.universe) x <- 1:n names(x) = age.universe$year plot(x,age.universe$upper,ylim=c(0,20)) points(x,age.universe$lower) with(age.universe,sapply(x,function(i) lines(c(i,i),c(lower[i],upper[i]))))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.