# Different representations of the "same" angle
  angle(180, "degrees")
  angle(pi, "radians")
  angle(0.5, "turns")
  angle(200, "gradians")
  pi_radians(1)
  a1 <- angle(180, "degrees")
  angular_unit(a1)
  is_angle(a1)
  as.numeric(a1, "radians")
  cos(a1)
  a2 <- as_angle(a1, "radians")
  angular_unit(a2)
  is_congruent(a1, a2)
Run the code above in your browser using DataLab