请问如何用R语言求原函数

COS论坛 | 统计之都 讨论区 统计学世界 数据挖掘和机器学习 请问如何用R语言求原函数

该主题包含 1 条回复,2个帖子,最后由  ®γσ, Lian Hu Eng3 周 之前 更新。

查看 2 个帖子 - 1 到 2(总计 2 个)
  • 作者
    帖子
  • 1 楼

    MathTT
    Participant

    请问论坛里有谁知道如何用R语言进行求原函数,现在个人感觉R语言在求原函数和微分是一个缺陷,请问简单的x求原函数如何实现?谢谢!

    2 楼

    ®γσ, Lian Hu Eng
    Participant

    直接打该函数不就得了?一些函数比方说以下例子就例外:

    > mean
    standardGeneric for "mean" defined from package "base"
    
    function (x, ...) 
    standardGeneric("mean")
    <environment: 0x0000000009a7ad10>
    Methods may be defined for arguments: x
    Use  showMethods("mean")  for currently available ones.
    > mean.default
    function (x, trim = 0, na.rm = FALSE, ...) 
    {
        if (!is.numeric(x) && !is.complex(x) && !is.logical(x)) {
            warning("argument is not numeric or logical: returning NA")
            return(NA_real_)
        }
        if (na.rm) 
            x <- x[!is.na(x)]
        if (!is.numeric(trim) || length(trim) != 1L) 
            stop("'trim' must be numeric of length one")
        n <- length(x)
        if (trim > 0 && n) {
            if (is.complex(x)) 
                stop("trimmed means are not defined for complex data")
            if (anyNA(x)) 
                return(NA_real_)
            if (trim >= 0.5) 
                return(stats::median(x, na.rm = FALSE))
            lo <- floor(n * trim) + 1
            hi <- n + 1 - lo
            x <- sort.int(x, partial = unique(c(lo, hi)))[lo:hi]
        }
        .Internal(mean(x))
    }
    <bytecode: 0x000000001defd6b0>
    <environment: namespace:base>

    如果有github的话,可以到该作者的repo逐个逐个瞧… 因为有许多高手都是喜欢编写小函数,然后互相调用看起来比较简洁…

    白戸則道:実に面白いですね!
    http://github.com/scibrokes/owner

查看 2 个帖子 - 1 到 2(总计 2 个)

您必须先登录才能回复该主题。