---
title: "detsember"
output: html_document
---

```{r}
#install.packages("xlsx")
library(xlsx)
surmad=read.xlsx(file.choose(), sheetIndex = 1, encoding = "UTF-8")
surmad

#install.packages("XML")
library(XML)
inimesed=xmlToDataFrame("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml")
inimesed
juur=xmlRoot(xmlParse("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml"))
juur
juur[[1]]  #esimene alamelement
juur[[1]][[2]]
juur[[1]][[2]][[1]] #esimese inimese teise alamelemendi(perekonnanime) väärtus 

#install.packages("rjson")
library(rjson)
inimene=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimene.json")
inimene
inimene$pikkus

inimene=fromJSON(file="http://www.tlu.ee/~jaagup/andmed/muu/inimene2.json")
inimene$aadress$vald

#install.packages("RMySQL")
library(RMySQL)
mysqlconnection = dbConnect(MySQL(), user = 'if16', password = 'ifikad16', 
                            dbname = 'if16_jaagup_3',
                            host = 'greeny.cs.tlu.ee')
dbListTables(mysqlconnection)
yksused=dbSendQuery(mysqlconnection, "SELECT * FROM haldusyksused")
fetch(yksused, n = 3)

synnid=read.table("http://www.tlu.ee/~jaagup/andmed/sots/synnid.csv", 
                   header=TRUE, sep=";", encoding="UTF-8")
synnid
#install.packages("reshape")
library(reshape)
pikktabel=melt(synnid, id="Maakond")
head(pikktabel)

lyhike=cast(pikktabel, Maakond~variable)
lyhike

tapply(pikktabel$value, pikktabel$variable, sum)

surmad=read.table("http://www.tlu.ee/~jaagup/andmed/sots/surmad.csv", 
                  header=TRUE, sep=";", encoding="UTF-8")

surmad
koos=merge(synnid, surmad, by.x="Maakond", by.y = "Maakond")
koos

a2015=koos[, c("Maakond", "a2015.x", "a2015.y")]
a2015

synnid2=koos[, c("Maakond", paste("a",2005:2015, ".x", sep=""))]

koospikk=melt(koos, id="Maakond")
head(koospikk)
koospikk$aasta=substring(koospikk$variable, 2, 5)
koospikk$syndmus=ifelse(substring(koospikk$variable, 7, 7)=="x", "synnid", "surmad")
koospikk$variable=NULL
head(koospikk)

names(koospikk)
row.names(koospikk)

vordlustabel=cast(koospikk, Maakond+aasta~syndmus)
head(vordlustabel)

maakonnamax=cast(koospikk, Maakond~syndmus, max)
maakonnamax  #iga maakonna kohta suurim sündide arv aasta jooksul
#Leidke iga maakonna sündide summa



ained=c("matemaatika", "emakeel", "laulmine")
opilased=data.frame(eesnimi=c("Juku", "Kati", "Mati"),
                    perekonnanimi=c("Kask", "Saar", "Tamm"))
kataloog="d:/jaagup/R/ekool/"
library(xlsx)
sapply(ained, function(aine){
       write.xlsx(opilased, paste(kataloog, aine, ".xlsx", sep=""),
                sheetName = "leht1", row.names = FALSE)
})

list.files(kataloog)
list.files(kataloog, pattern="xlsx")
#read.xlsx(paste(kataloog,"matemaatika.xlsx", sep=""), sheetIndex=1)
tulemused=sapply(ained, function(aine){
  ainetabel=read.xlsx(paste(kataloog, aine, "2.xlsx", sep=""), sheetName = "leht1")
  ainetabel[, 3]
})
koondtabel=cbind(opilased, tulemused)
koondtabel

```