R语言 softclassval包 strong()函数中文帮助文档(中英文对照)

loveR

strong(softclassval)
strong()所属R语言包：softclassval

                                        And (conjunction) operators
                                         和（合）营办商

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

And operators for the soft performance calculation. The
和运营商的柔软性能计算。 “

G枚del
哥德尔

艁ukasiewicz
卢卡维兹


用法----------Usage----------


  strong(r, p)

  luk(r, p)

  weak(r, p)

  gdl(r, p)

  prd(r, p)

  and(r, p)

  wMAE(r, p)

  wRMAE(r, p)

  wMSE(r, p)

  wRMSE(r, p)



参数----------Arguments----------

参数：p
prediction vector, matrix, or array with numeric values in [0, 1], for and in {0, 1}
预测向量，矩阵或数组中的数值[0，1]and{0，1}


参数：r
reference vector, matrix, or array with numeric values in [0, 1], for and in {0, 1}
参考向量，矩阵或数组中的数值[0，1]and{0，1}


值----------Value----------

numeric of the same size as p
为p的大小相同的数字


（作者）----------Author(s)----------



Claudia Beleites




参考文献----------References----------



参见----------See Also----------

Performance measures: sens
业绩计量：sens


实例----------Examples----------


ops <- c ("luk", "gdl", "prd", "and", "wMAE", "wRMAE", "wMSE", "wRMSE")

## make a nice table[＃一个不错的表]


lastline <- function (f){
  body &lt;- deparse (body (get (f))) ## function body[＃函数体]
  body <- body [!grepl ("^[ \t]*[}][ \t]*$", body)]
  gsub ("^[ \t]+([^ \t].*[^ \t])[ \t]*$", "\\1", tail (body, 1))
}

data.frame (source = sapply (ops, lastline),
            dev = sapply (ops, function (f) dev (get (f))),
            hard = sapply (ops, function (f) hard (get (f))),
            postproc = I (lapply (ops, function (f) postproc (get (f))))
            )

x <- softclassval:::v
x

luk (0.7, 0.8)

## The behaviour of the operators[＃的经营者的行为]
## op (x, 1)[＃运算（x，1）]
cbind (x, sapply (c ("luk", "gdl", "prd", "wMAE", "wRMAE", "wMSE", "wRMSE"),
                  function (op, x) get (op) (x, 1), x))

## op (x, 0)[＃运算（X，0）]
cbind (x, sapply (c ("luk", "gdl", "prd", "wMAE", "wRMAE", "wMSE", "wRMSE"),
                  function (op, x) get (op) (x, 0), x))

## op (x, x)[＃运算（X，X）]
cbind (x, sapply (c ("luk", "gdl", "prd", "wMAE", "wRMAE", "wMSE", "wRMSE"),
                  function (op, x) get (op) (x, x), x))


## Note that the deviation operators are not commutative[＃注意的偏差是不可交换的]
## (due to the weighting by reference)[＃（由于加权通过引用）]
zapsmall (
cbind (sapply (c ("luk", "gdl", "prd", "wMAE", "wRMAE", "wMSE", "wRMSE"),
                  function (op, x) get (op) (1, x), x)) -
cbind (sapply (c ("luk", "gdl", "prd", "wMAE", "wRMAE", "wMSE", "wRMSE"),
                  function (op, x) get (op) (x, 1), x))
)

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。