R/print.jd.R

In moonsun: Basic astronomical calculations with R

Defines functions print.jd

Documented in print.jd

print.jd <-
function (x,...)
{
	res = data.frame(date=as.vector(x));
	class(res$date)="jd";
	rownames(res)=names(x);
	rrr <- data.frame(res, as.character(res))
	colnames(rrr) <- c("Date", "Julian Date") 
	print(rrr);
}

Try the moonsun package in your browser