Skip to content

Instantly share code, notes, and snippets.

@aL3xa
Created March 4, 2011 16:16
Show Gist options
  • Save aL3xa/854897 to your computer and use it in GitHub Desktop.
Save aL3xa/854897 to your computer and use it in GitHub Desktop.
Сербиан локале
> 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 три
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment