R源代码.调用函数[重复]

我正在查看R中cov的source_code，并遇到了一段我不太明白的代码。

协方差的数学定义goes http://en.wikipedia.org/wiki/Covariance here.

if (method == "pearson") 
    .Call(C_cov, x, y, na.method, method == "kendall")
else if ...

帮助手册说了一些关于 .Call 函数的内容：

CallExternal {base} R Documentation
Modern Interfaces to C/C++ code
Description
Functions to pass R objects to compiled C/C++ code that has been loaded into R.

我想知道在哪里可以找到如何计算 C++ 或 C 或其他协方差的源代码。

Thanks.

.Call用于将变量传递给 C 例程。C_cov是一个变量（在stats我们很快就会看到的命名空间）告诉.Call在哪里可以找到用于计算协方差的例程。

如果您输入C_cov在命令行中，你会得到

Error: object 'C_cov' not found

那是因为它对你隐藏。你必须做一些侦探工作。

getAnywhere('C_cov')
# 4 differing objects matching ‘C_cov’ were found
# in the following places
#   namespace:stats
# Use [] to view one of them

这告诉我们有一个名为C_cov in the stats名称空间（您的输出可能与此略有不同）。我们来尝试一下吧。

stats::C_cov
# Error: 'C_cov' is not an exported object from 'namespace:stats'

显然C_cov不供公众消费。没关系，我们无论如何都能得到它：

stats:::C_cov # use three colons to get unexported variables.
# $name
# [1] "cov"
# # blah, blah, blah ...
# $dll
# DLL name: stats
# Filename: C:/Program Files/R/R-3.0.1/library/stats/libs/x64/stats.dll
# Dynamic lookup: FALSE
# # blah, blah, ...

这就是我们想要的信息。它告诉我们例程的名称和它所在的库。现在我们只需要转到 C 源代码并遵循以下线索：.../src/library/stats/src/cov.c https://github.com/SurajGupta/r-source/blob/56becd21c75d104bfec829f9c23baa2e144869a2/src/library/stats/src/cov.c