R Notes

 

http://www.norges-bank.no/WebDAV/stat/no/valutakurser/valuta_aar.sdv

 

> setwd("/home/tovare/Data")
> dir()
[1] "valuta_dag.sdv"
> getwd()
[1] "/home/tovare/Data"

 

The first couple of lines contains some general info:

> read.table("valuta_dag.sdv", na.strings = c("NA","ND"), header = TRUE, sep=";", skip=2)

The column names:

 > names(valutta)
 [1] "Dato"          "X1.USD"        "X1.EUR"        "X100.CHF"     
 [5] "X100.DKK"      "X1.GBP"        "X100.GRD"      "X100.ISK"     
 [9] "X100.SEK"      "X1.CYP"        "X100.CZK"      "X100.EEK"     
[13] "X100.HUF"      "X1.PLN"        "X100.SIT"      "X100.ATS"     
[17] "X100.BEF..LUF" "X100.DEM"      "X100.ESP"      "X100.FIM"     
[21] "X100.FRF"      "X1.IEP"        "X100.ITL"      "X100.NLG"     
[25] "X100.PTE"      "X1.CAD"        "X100.JPY"      "X1.AUD"       
[29] "X1.NZD"        "X1.HKD"        "X1.SGD"        "X100.KRW"     
[33] "X100.TWD"      "X100.THB"      "X1.ZAR"        "X1.MTL"       
[37] "X1.LVL"        "X1.LTL"        "X100.SKK"      "X100.BGN"     
[41] "X100.ROL"      "X100.TRL"      "X1.XDR"        "KKI"          
[45] "I44"           "ECU"           "X1.XEU"        "X100.TRY"     
[49] "X1.BRL"        "X100.MXN"      "X100.CNY"      "X100.RUB"     
[53] "X100.HRK"      "X100.IDR"      "X1.MYR"        "X100.PHP"     
[57] "X100.RON"      "X100.INR"      "X100.PKR"     

 

 

setwd("/home/tovare/Data")

v <- read.csv2("valuta_dag.sdv", 
  na.strings = c("NA","ND"), 
  header = TRUE, sep=";", skip=2)

v$Dato <- gsub("Jan","01",v$Dato)
v$Dato <- gsub("Feb","02",v$Dato)
v$Dato <- gsub("Mar","03",v$Dato)
v$Dato <- gsub("Apr","04",v$Dato)
v$Dato <- gsub("Mai","05",v$Dato)
v$Dato <- gsub("Jun","06",v$Dato)
v$Dato <- gsub("Jul","07",v$Dato)
v$Dato <- gsub("Aug","08",v$Dato)
v$Dato <- gsub("Sep","09",v$Dato)
v$Dato <- gsub("Okt","10",v$Dato)
v$Dato <- gsub("Nov","11",v$Dato)
v$Dato <- gsub("Des","12",v$Dato)

v$Dato <- as.Date(v$Dato,"%d-%m-%y")