我看了R中cov的source_code,遇到了我不太明白的一段代码。
协方差goes的数学定义。
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或者其他什么。
谢谢。
发布于 2013-10-28 00:56:39
.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名称空间中有一个名为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://stackoverflow.com/questions/19625372
复制相似问题