提交: 63f092093109e2672ac7953461367dc721d1609b - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 63f092093109e2672ac7953461367dc721d1609b (tree)
• 时间: 2024-11-20 23:55:56
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added another function for string analysis.

更改概述

• modified: R-codes/stat_lib.R

差异

diff -r 3720b53b4a93 -r 63f092093109 R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Wed Nov 20 13:56:00 2024 +0100
+++ b/R-codes/stat_lib.R	Wed Nov 20 15:55:56 2024 +0100
@@ -7874,3 +7874,15 @@
 ## # Use a different separator
 ## custom_string <- "A, B, C, D"
 ## extract_first_n_chars(custom_string, separator = ",")
+
+
+
+count_non_pattern_chars <- function(input_string, pattern) {
+  # Remove all characters matching the pattern and count the length of the remaining string
+  non_pattern_count <- str_length(str_replace_all(input_string, pattern, ""))
+  return(non_pattern_count)
+}
+
+
+
+