コミット: 63f092093109e2672ac7953461367dc721d1609b - myprojects-hg-reborn (hg)

コミットメタ情報

• リビジョン: 63f092093109e2672ac7953461367dc721d1609b (tree)
• 日時: 2024-11-20 23:55:56
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• コミッター: Lorenzo Isella

ログメッセージ

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)
+}
+
+
+
+