R/pluto.R

In moonsun: Basic astronomical calculations with R

`pluto` <-
function (jday=jd()) 
{
        planet(jday,
		name="Pluto",
		inner=FALSE,
		tp = 246.77027,
		ep = 221.4127,
		oo = 224.133,
		e = 0.24624,
		a = 39.3414,
		i = 17.142,
		om = 110.144,
		th = 8.20,
		mag = -1);
}