Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/73.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/git/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R biocheck:可能它们是加载了data()的数据集的一部分?_R_Bioconductor - Fatal编程技术网

R biocheck:可能它们是加载了data()的数据集的一部分?

R biocheck:可能它们是加载了data()的数据集的一部分?,r,bioconductor,R,Bioconductor,我从BiocCheck(针对bioconductor)获得以下信息: 上述两项功能: .m2str <- function(m) { eq <- substitute(italic(y) == a + b * italic(x)*','~~italic(r)^2~'='~r2, list(a = format(coef(m)[1], digits = 2), b = format(coef(

我从BiocCheck(针对bioconductor)获得以下信息:

上述两项功能:

.m2str <- function(m)
{
    eq <- substitute(italic(y) == a + b * italic(x)*','~~italic(r)^2~'='~r2, 
                 list(a  = format(coef(m)[1], digits = 2), 
                      b  = format(coef(m)[2], digits = 2), 
                      r2 = format(summary(m)$r.squared, digits = 3)))
    as.character(as.expression(eq));
}

.lm2str <- function(data)
{
    return (.m2str(lm(y~x, data)))
}

.m2str您是否将这些函数作为R包的一部分编写?当您调用像
lm
head
这样的函数时,您应该指定这些函数来自哪个R包(例如write
stats::lm
utils::head
)。这通常是针对“基”的函数来完成的。

我在F包中写这些函数。好的,然后只为每个非基函数指定包,它应该删除那个考虑点。
.m2str <- function(m)
{
    eq <- substitute(italic(y) == a + b * italic(x)*','~~italic(r)^2~'='~r2, 
                 list(a  = format(coef(m)[1], digits = 2), 
                      b  = format(coef(m)[2], digits = 2), 
                      r2 = format(summary(m)$r.squared, digits = 3)))
    as.character(as.expression(eq));
}

.lm2str <- function(data)
{
    return (.m2str(lm(y~x, data)))
}