AS
Size: a a a
AS
АК
АК
> stringi::stri_trans_general("Schlüsseldienst-ag.ch", "latin-ascii")Стоит отметить, что такой подход «портит» данные.
[1] "Schlusseldienst-ag.ch"
> iconv("Schlüsseldienst-ag.ch", "UTF-8", "ASCII//TRANSLIT")
[1] "Schlusseldienst-ag.ch"
IS
to.plain <- function(s) {
# 1 character substitutions
old1 <- "šžþàáâãäåçèéêëìíîïðñòóôõöùúûüý"
new1 <- "szyaaaaaaceeeeiiiidnooooouuuuy"
s1 <- chartr(old1, new1, s)
# 2 character substitutions
old2 <- c("œ", "ß", "æ", "ø")
new2 <- c("oe", "ss", "ae", "oe")
s2 <- s1
for(i in seq_along(old2)) s2 <- gsub(old2[i], new2[i], s2, fixed = TRUE)
s2
}
AS
A
ЕТ
matrix(c(5, 1,
0, 0), ncol = 2, byrow = TRUE) %>% fisher.test()
ЕТ
ЕТ
a
Ю
ЕТ
ЕТ
ЕТ
Ю
a
ЕТ
ЕТ
a
ЕТ