djhurio

### Apsekojumu statistika
### Praktiskie darbi 2

# Direktorija datiem
# Pirmajā reizē ir jāizveido
dir.data <- "~/ApsStat/Data"

# Saite uz datu failu
file.data <- file.path("http://home.lu.lv/~pm90015/work/LU",
                       "ApsekojumuStatistika/Data/Population.Rdata")

djhurio

extr.ciems <- function(adr_txt) {
  # Konvertē visu uz mazajiem burtiem
  adr_txt <- tolower(adr_txt)
  # Teksta fragmenti, kas neder
  pattern <- " nov| pag|\"|[0-9]|\\."
  # Sadala adresi pa fragmentiem, izvēlas derīgos, apgriež otrādi un paņem 1.
  x <- sapply(strsplit(adr_txt, split = ", "),
              function(txt) trim(rev(grep(pattern, txt,
                                          value = T, invert = T))[1]))
  # Izlabo kļūdu, kad beidzas ar ā

djhurio

### Plotting in R on Google Maps

require(ggmap)
require(data.table)


### 1 ###
# If you have coordinates available, go to 2
# This is a way how to get some coordinates

djhurio

# Optimal Sample Allocation in case of non-response

require(ggplot2)

# 3D Scatterplot
require(rgl)

require(foreach)
require(doMC)
registerDoMC(cores = detectCores())