R/neptune.R

In moonsun: Basic astronomical calculations with R

`neptune` <-
function (jday=jd()) 
{
        planet(jday,
		name="Neptune",
		inner=FALSE,
		tp = 164.79246,
		ep = 282.349556,
		oo = 48.009758,
		e = 0.009003,
		a = 30.109570,
		i = 1.770646,
		om = 131.670599,
		th = 62.20,
		mag = -6.87);
}