R中的余弦负幂

Mit*_*ati 0 r

我试图在R中找到一个值的反余弦值.

> cos^-1(x)  
Run Code Online (Sandbox Code Playgroud)

Error: attempt to apply non-function 
Run Code Online (Sandbox Code Playgroud)

出现.有什么建议吗?

Pau*_*tra 16

反余弦函数称为acos:

> cos(pi)
[1] -1
> acos(cos(pi))
[1] 3.141593
> all.equal(pi, acos(cos(pi)))
TRUE
Run Code Online (Sandbox Code Playgroud)

注意:R中的三角函数使用弧度,而不是度,例如360度是2pi弧度.转换为和转换为弧度:

deg2rad = function(deg) {
   return((pi * deg) / 180)
 }

rad2deg = function(rad) {
   return((180 * rad) / pi)
 }
Run Code Online (Sandbox Code Playgroud)

您可以使用这些函数,或者aspace包提供这些转换函数(as_radians),以及cos使用度的版本等,例如cos_d.