izbris tabele
izbris tabele

anjazavrl/APPR-2014-15
# 2. faza: Uvoz podatkov

# Funkcija, ki uvozi podatke iz datoteke sezona2014.csv
uvoziSezona2014 <- function() {
  return(read.table("podatki/sezona2014.csv", sep = ";", as.is = TRUE,
                      row.names = 1, header = TRUE,
                      fileEncoding = "Windows-1250"))
}

# Zapišimo podatke v razpredelnico sezona 2014.
cat("Uvažam podatke o sezoni 2014...\n")
sezona2014 <- uvoziSezona2014()


# Funkcija, ki uvozi podatke iz datoteke svetovniprvaki.csv
uvoziSvetovniprvaki <- function() {
  return(read.table("podatki/svetovniprvaki.csv", sep = ";", as.is = TRUE,
                    header = TRUE,
                    fileEncoding = "Windows-1250"))

}


# Zapišimo podatke v razpredelnico svetovni prvaki.
cat("Uvažam podatke o svetovnih prvakih...\n")
svetovniprvaki <- uvoziSvetovniprvaki()


# Urejenostna spremenljivka
cat("Uvažam urejenostno spremenljivko... \n")
kategorije <- c("Enkrat prvak", "Dvakrat prvak", "Večkrat prvak")
stevilo.naslovov.dirkaca <- character(length(svetovniprvaki$Driver))
veckrat.prvak <- svetovniprvaki$Driver %in% names(which(table(svetovniprvaki$Driver) > 2))
dvakrat.prvak <- svetovniprvaki$Driver %in% names(which(table(svetovniprvaki$Driver) == 2))
enkrat.prvak <- svetovniprvaki$Driver %in% names(which(table(svetovniprvaki$Driver) < 2))
stevilo.naslovov.dirkaca[veckrat.prvak] <- "Večkrat prvak"
stevilo.naslovov.dirkaca[dvakrat.prvak] <- "Dvakrat prvak"
stevilo.naslovov.dirkaca[enkrat.prvak] <- "Enkrat prvak"
Stevilo.Naslovov.Dirkaca <- factor(stevilo.naslovov.dirkaca, levels = kategorije, ordered = TRUE)
Stevilo.naslovov.dirkaca <- data.frame(Sezona = svetovniprvaki$Season, Dirkač = svetovniprvaki$Driver, Država = svetovniprvaki$Country,
                                       Ekipa = svetovniprvaki$Team, Stevilo.Naslovov.Dirkaca)



source("lib/xml.r", encoding="UTF-8")
cat("Uvažam podatke o konstruktorskih zmagah.\n")
konstruktorske.zmage <- uvoz.konstruktorske.zmage()


# Funkcija, ki uvozi podatke iz datoteke dirkalisca2014.csv
uvoziDirkalisca <- function() {
  return(read.table("podatki/dirkalisca2014.csv", sep = ";", as.is = TRUE,
                    header = TRUE,
                    fileEncoding = "Windows-1250"))
  
}

# Zapišimo podatke v razpredelnico dirkališča.
cat("Uvažam podatke o dirkališčih...\n")
dirkalisca <- uvoziDirkalisca()


# 2. faza: Uvoz podatkov

# Funkcija, ki uvozi podatke iz datoteke sezona2014.csv
uvoziSezona2014 <- function() {
  return(read.table("podatki/sezona2014.csv", sep = ";", as.is = TRUE,
                      row.names = 1, header = TRUE,
                      fileEncoding = "Windows-1250"))
}

# Zapišimo podatke v razpredelnico sezona 2014.
cat("Uvažam podatke o sezoni 2014...\n")
sezona2014 <- uvoziSezona2014()


# Funkcija, ki uvozi podatke iz datoteke svetovniprvaki.csv
uvoziSvetovniprvaki <- function() {
  return(read.table("podatki/svetovniprvaki.csv", sep = ";", as.is = TRUE,
                    header = TRUE,
                    fileEncoding = "Windows-1250"))

}


# Zapišimo podatke v razpredelnico svetovni prvaki.
cat("Uvažam podatke o svetovnih prvakih...\n")
svetovniprvaki <- uvoziSvetovniprvaki()


# Urejenostna spremenljivka
cat("Uvažam urejenostno spremenljivko... \n")
kategorije <- c("Enkrat prvak", "Dvakrat prvak", "Večkrat prvak")
stevilo.naslovov.dirkaca <- character(length(svetovniprvaki$Driver))
veckrat.prvak <- svetovniprvaki$Driver %in% names(which(table(svetovniprvaki$Driver) > 2))
dvakrat.prvak <- svetovniprvaki$Driver %in% names(which(table(svetovniprvaki$Driver) == 2))
enkrat.prvak <- svetovniprvaki$Driver %in% names(which(table(svetovniprvaki$Driver) < 2))
stevilo.naslovov.dirkaca[veckrat.prvak] <- "Večkrat prvak"
stevilo.naslovov.dirkaca[dvakrat.prvak] <- "Dvakrat prvak"
stevilo.naslovov.dirkaca[enkrat.prvak] <- "Enkrat prvak"
Stevilo.Naslovov.Dirkaca <- factor(stevilo.naslovov.dirkaca, levels = kategorije, ordered = TRUE)
Stevilo.naslovov.dirkaca <- data.frame(Sezona = svetovniprvaki$Season, Dirkač = svetovniprvaki$Driver, Država = svetovniprvaki$Country,
                                       Ekipa = svetovniprvaki$Team, Stevilo.Naslovov.Dirkaca)




source("lib/xml.r", encoding="UTF-8")
cat("Uvažam podatke o konstruktorskih zmagah.\n")
konstruktorske.zmage <- uvoz.konstruktorske.zmage()

# Funkcija, ki uvozi podatke iz datoteke drzave.csv
uvoziDrzave <- function() {
  return(read.table("podatki/drzave.csv", sep = ";", as.is = TRUE,
                    header = TRUE,
                    fileEncoding = "Windows-1250"))
  
}

# Zapišimo podatke v razpredelnico države.
cat("Uvažam podatke o državah...\n")
drzave <- uvoziDrzave()


