R/hoc.R

`hoc` <-
function (az,alt,names=NULL) 
{

	res=data.frame(az,alt);
	row.names(res)=names;
	
	class(res$az)="dms";
	class(res$alt)="dms";
	class(res)=c("hoc","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.