Сербиан локале

serbian_locale.R

> set.seed(1)
> шушумига <- rnorm(10)
> шушумига
 [1]  0.7996718 -0.9688060 -0.1634763 -1.1242522 -1.5689024 -0.6055469
 [7] -0.3446827 -0.8229724 -0.6148953  2.5545790

> set.seed(1)
> ( blah <- factor(sample(c("један", "два", "три"), 100, replace = TRUE)) )
  [1] један два   два   три   један три   три   два   два   један један један
 [13] три   два   три   два   три   три   два   три   три   један два   један
 [25] један два   један два   три   два   два   два   два   један три   три 
 [37] три   један три   два   три   два   три   два   два   три   један два 
 [49] три   три   два   три   два   један један један један два   два   два 
 [61] три   један два   један два   један два   три   један три   два   три 
 [73] два   два   два   три   три   два   три   три   два   три   два   један
 [85] три   један три   један један један један један два   три   три   три 
 [97] два   два   три   два 
Levels: два један три

> fp <- tempfile()
> write.csv(blah, fp)
> tmp <- read.csv(fp)
> head(tmp)
  X     x
1 1 један
2 2   два
3 3   два
4 4   три
5 5 један
6 6   три