R/add_ecliptic.R

Defines functions add_ecliptic

add_ecliptic <-
function() {
  a <- ecc(1:360, rep(0, 360), 1:360)
  aa = as.eqc(a)
  points((aa[, 1])[-nrow(aa)], aa[, 2][-(nrow(aa))], type = "l")
}
helixcn/ephem documentation built on March 31, 2021, 5:45 a.m.