R/eqc.R

`eqc` <-
function (ra,d,names=NULL) 
{

	res=data.frame(ra,d);
	row.names(res)=names;
	class(res$ra)="time";
	class(res$d)="dms";
	
	class(res)=c("eqc","apos","data.frame");
	return(res);

}

Try the moonsun package in your browser

Any scripts or data that you put into this service are public.

moonsun documentation built on May 29, 2017, 12:17 p.m.