# TODO: Add comment
# 
# Author: E.Korsching Nov 20, 2013
###############################################################################


degrees.to.radians <- function(meas=45, type="d"){
	if(!is.numeric(meas)){ stop("\nPlease enter a numeric value\n") }
	if(type=="d"){
		out <- meas*pi/180		#in degrees, out radians
	}else{
		out <- meas*180/pi		#in radians, out degrees
	}
	return(out)
}

#degrees.to.radians(meas=420, type="d")