textometrieR

[iramuteq] / Rlib / textometrieR / cgt75.R

diff --git a/Rlib/textometrieR/cgt75.R b/Rlib/textometrieR/cgt75.R
new file mode 100644 (file)
index 0000000..a478386
--- /dev/null
+++ b/Rlib/textometrieR/cgt75.R
@@ -0,0 +1,4 @@
+f <- file(description = "cgt75.splitted.txt", open = "r", blocking = TRUE, encoding = "latin1");
+cgt75 <- readLines(f, n = -1, ok = TRUE, warn = TRUE);
+# i <- grep("\\.", cgt75);
+# get.contexts(factor(cgt75, ".");