X-Git-Url: http://iramuteq.org/git?a=blobdiff_plain;f=autres%2FRlib%2FtextometrieR%2Fcgt75.R;fp=autres%2FRlib%2FtextometrieR%2Fcgt75.R;h=a4783860d1133ee87b0b1ca61336a865ce49f7c8;hb=eaa044d1147e26b82942ce56d5965c83fdddf069;hp=0000000000000000000000000000000000000000;hpb=10d67a5cd48583c060b6a0e77e87c41f80671027;p=iramuteq

diff --git a/autres/Rlib/textometrieR/cgt75.R b/autres/Rlib/textometrieR/cgt75.R
new file mode 100644
index 0000000..a478386
--- /dev/null
+++ b/autres/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, ".");