R/uranus.R

In moonsun: Basic astronomical calculations with R

`uranus` <-
function (jday=jd()) 
{
        planet(jday,
		name="Uranus",
		inner=FALSE,
		tp = 84.039492,
		ep = 271.063148,
		oo = 172.884833,
		e = 0.046321,
		a = 19.21814,
		i = 0.773059,
		om = 73.926961,
		th = 65.80,
		mag = -7.19);
}