• R/O
  • SSH

提交

标签
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqt誰得windowscocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

Commit MetaInfo

修订版da73a6f5715be1def3c781d2369f66d2bdb635b5 (tree)
时间2022-08-02 05:44:32
作者Lorenzo Isella <lorenzo.isella@gmai...>
CommiterLorenzo Isella

Log Message

I fixed the equal_within function.

更改概述

差异

diff -r 72a9cd79b2f0 -r da73a6f5715b R-codes/stat_lib.R
--- a/R-codes/stat_lib.R Sun Jul 31 20:32:42 2022 +0200
+++ b/R-codes/stat_lib.R Mon Aug 01 22:44:32 2022 +0200
@@ -6939,7 +6939,7 @@
69396939 equal_within <- function(x, y, percent){
69406940
69416941
6942- res <- if_else(dplyr::near(abs(x-y)/abs(min(x,y)),percent/100.), T, F)
6942+ res <- if_else(abs(x-y)/abs(min(x,y))<=percent/100., T, F)
69436943
69446944 return(res)
69456945