Ero sivun ”Kilometrikorvaus AM 2012” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
p (Kumottu muokkaus 12014, jonka teki Erkki Kuusisto (keskustelu) (olikin viime vuoden tieto))
pEi muokkausyhteenvetoa
 
(17 välissä olevaa versiota 3 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
[[Luokka:Avoin malli]]
[[Luokka:Malli]]
[[Luokka:Sisältää R-koodia]]
{{arviointi}}
{{arviointi}}


Rivi 54: Rivi 57:
Jos palkansaaja, jolla on Verohallinnon luontoisetujen laskentaperusteita koskevassa päätöksessä tarkoitettu auton käyttöetu, käyttää tällaista autoa työmatkan suorittamiseen ja maksaa itse tästä matkasta aiheutuvat polttoainekulut, hänelle korvattavien polttoainekulujen enimmäismäärä on 12 senttiä kilometriltä.
Jos palkansaaja, jolla on Verohallinnon luontoisetujen laskentaperusteita koskevassa päätöksessä tarkoitettu auton käyttöetu, käyttää tällaista autoa työmatkan suorittamiseen ja maksaa itse tästä matkasta aiheutuvat polttoainekulut, hänelle korvattavien polttoainekulujen enimmäismäärä on 12 senttiä kilometriltä.


=== Verohallinnon laskentaperusteet ===
Kulukorvausasian neuvottelukunnan pöytäkirjat liitteineen vuosilta 2006-2011 on saatavissa alla olevasta linkistä. Tärkeimmistä kilometrikorvauskäytännön perusteista koostetaan tiivistelmä. Hallituksen kehysriihi on tehnyt asiasta päätöksen, jonka mukaan korvauksille tulee kilometrimääräinen katto, jonka jälkeen korvaus pienenee huomattavasti <ref name = kmkorvaus23.3> [http://www.hs.fi/kotimaa/Kilometrikorvauksille+on+tulossa+katto/a1305558453728 HS 23.3.2012: ''Kilometrikorvauksille on tulossa katto''] </ref>.
[[Tiedosto:Km-korvaus-laskelmat_VM.pdf| Kulukorvausasian neuvottelukunnan pöytäkirjat 2006-2011]]
== Tutustu ratkaisuvaihtoehtoihin ==
Jotta arvioinnin osallistujien ja kiinnostuneiden lukijoiden olisi helpompi suorittaa vertailuja erilaisten kulukorvausvaihtoehtojen välillä, on tarkemmin tutkittuja vaihtoehtoja kerätty alla olevaan listaan. Vaihtoehtoiset kulukorvauspolitiikat on nimetty lyhenteillä VE-1 - VE-5. Vaihtoehtojen määrä voi lisääntyä arvioinnin edistyessä.
'''VE-1''' ''Ny&shy;ky&shy;käy&shy;tän&shy;tö'': Se&shy;kä käyt&shy;tö&shy;kus&shy;tan&shy;nuk&shy;set et&shy;tä pää&shy;o&shy;ma&shy;kus&shy;tan&shy;nuk&shy;set kor&shy;va&shy;taan ve&shy;ro&shy;va&shy;paas&shy;ti (45 snt/km). <br />
'''VE-2''' ''LVM:n kaa&shy;vai&shy;le&shy;ma eh&shy;do&shy;tus'': Se&shy;kä käyt&shy;tö&shy;kus&shy;tan&shy;nuk&shy;set et&shy;tä pää&shy;o&shy;ma&shy;kus&shy;tan&shy;nuk&shy;set kor&shy;vataan. Ny&shy;kyi&shy;nen kor&shy;vaus&shy;ta&shy;so pu&shy;to&shy;aa  ta&shy;sol&shy;ta 45 snt/km ta&shy;sol&shy;le 43 snt/km ki&shy;lo&shy;met&shy;ri&shy;kat&shy;toon 15000 km as&shy;ti, min&shy;kä jäl&shy;keen kor&shy;vaus&shy;ta&shy;so pie&shy;ne&shy;nee (o&shy;le&shy;tus 25 snt/km <ref name = TS2012-11-21> [http://www.taloussanomat.fi/autot/2012/11/21/kilometrikorvauksille-uusi-naula-arkkuun/201242425/304?ref=tf1 TS 21.11.2012: ''Kilometrikorvauksille uusi naula arkkuun''] </ref>) <br />
'''VE-3''' ''LVM:n eh&shy;do&shy;tus o&shy;mil&shy;la pa&shy;ra&shy;met&shy;reil&shy;la'': Ku&shy;ten LVM:n eh&shy;do&shy;tus, mut&shy;ta mää&shy;ri&shy;tät o&shy;man ki&shy;lo&shy;met&shy;ri&shy;kat&shy;to&shy;si ja sen jäl&shy;kei&shy;sen ki&shy;lo&shy;met&shy;ri&shy;kor&shy;vauk&shy;sen suu&shy;ruu&shy;den (voi ol&shy;la pie&shy;nem&shy;pi tai suu&shy;rem&shy;pi kuin ny&shy;kyi&shy;nen). <br />
'''VE-4''' ''Pelk&shy;kien käyt&shy;tö&shy;kus&shy;tan&shy;nus&shy;ten kor&shy;vaus'': Pää&shy;o&shy;ma&shy;ku&shy;lu&shy;ja ei kor&shy;va&shy;ta. Al&shy;la e&shy;si&shy;tet&shy;tä&shy;vät vi&shy;su&shy;a&shy;li&shy;saa&shy;ti&shy;ot o&shy;soit&shy;ta&shy;vat et&shy;tä tä&shy;mä vaih&shy;to&shy;eh&shy;to voi&shy;daan to&shy;teut&shy;taa säi&shy;lyt&shy;tä&shy;mäl&shy;lä ny&shy;kyi&shy;sen suu&shy;rui&shy;nen ki&shy;lo&shy;met&shy;ri&shy;kor&shy;va&shy;us mut&shy;ta kor&shy;vaa&shy;mal&shy;la e&shy;nin&shy;tään puo&shy;let ko&shy;ko&shy;nais&shy;lii&shy;ken&shy;ne&shy;suo&shy;rit&shy;tees&shy;ta. <br />
'''VE-5''' ''Jo&shy;kin muu kor&shy;vaus&shy;käy&shy;tän&shy;tö'': A&shy;lem&shy;pa&shy;na tie&shy;dus&shy;te&shy;lem&shy;me o&shy;maa eh&shy;do&shy;tus&shy;ta&shy;si kor&shy;vaus&shy;käy&shy;tän&shy;nök&shy;si.
=== Tutki kulukorvausten vaikutuksia ===
Täyt&shy;tä&shy;mäl&shy;lä tie&shy;dot al&shy;la o&shy;le&shy;viin kent&shy;tiin ja klik&shy;kaa&shy;mal&shy;la nap&shy;pi&shy;a "Vi&shy;su&shy;a&shy;li&shy;soi tu&shy;lok&shy;set" voit tut&shy;kia mil&shy;lai&shy;set o&shy;vat ny&shy;kyi&shy;sen ja vaih&shy;to&shy;eh&shy;tois&shy;ten ki&shy;lo&shy;met&shy;ri&shy;kor&shy;vaus&shy;käy&shy;tän&shy;tö&shy;jen vai&shy;ku&shy;tuk&shy;set o&shy;maa&shy;si ja yh&shy;teis&shy;kun&shy;nan ra&shy;ha&shy;pus&shy;siin. Ko&shy;kei&shy;le e&shy;ri ar&shy;vo&shy;ja va&shy;paas&shy;ti (tie&shy;dot ei&shy;vät tal&shy;len&shy;nu mi&shy;hin&shy;kään). Vi&shy;su&shy;a&shy;li&shy;soi&shy;mal&shy;la po&shy;li&shy;tiik&shy;ka&shy;vaih&shy;to&shy;eh&shy;to&shy;ja voit hah&shy;mot&shy;taa e&shy;ri vaih&shy;to&shy;eh&shy;to&shy;jen hy&shy;vi&shy;ä ja huo&shy;no&shy;ja puo&shy;li&shy;a. Jos ha&shy;lu&shy;at syöt&shy;tää yk&shy;si&shy;tyis&shy;koh&shy;tai&shy;sem&shy;paa tie&shy;to&shy;a kus&shy;tan&shy;nus&shy;las&shy;ken&shy;taa var&shy;ten voit käyt&shy;tää myös o&shy;heis&shy;ta [[Yksityisautoilun_kustannuslaskuri | laskuria]].
<rcode graphics="1" label="Visualisoi tulokset" embed="1"
variables="
name:Ajanjakso|description:Valitse ajanjakson pituus (auton pitoaika 1-7 vuotta)|default:'7'|type:selection|options:'1';1;'2';2;'3';3;'4';4;'5';5;'6';6;'7';7|
name:AutonHinta|default:25000|description: '''VE-1 &ndash; VE-4''': Uuden auton hinta tai vanhan jäännösarvo (euroa)|
name:AjetutKilometrit|default:23100|description: '''VE-1 &ndash; VE-4''': Kokonaisliikennesuorite (0 - 40000 km/vuosi)|
name:KorvattavatKilometritPros|default:32|description: '''VE-1 &ndash; VE-4''': Kilometrikorvattava osuus liikennesuoritteesta (%)|
name:KilometriKattoOma|default:20000|description: '''VE-3''': Ki&shy;lo&shy;met&shy;ri&shy;kat&shy;to (km)|
name:KorvausPerKMOma|default:0.23|description: '''VE-3''': Kilo&shy;met&shy;ri&shy;kor&shy;vaus ki&shy;lo&shy;met&shy;ri&shy;ka&shy;ton y&shy;lit&shy;tä&shy;väl&shy;le lii&shy;ken&shy;ne&shy;suo&shy;rit&shy;teel&shy;le (euroa/km)
">
library(OpasnetUtils)
PitoAikaMax <- 7              # aika vuosissa
OmatRahat <- 0                # vahentaa lainarahan maaraa
SaamattaJaavaKorko <- 0.02    # milla korolla lainaraha kasvaisi ilman lainaa
LainaAika <- 2                # aika vuosissa
LainaKorko <- 0.065            # lainan korko
PolttoAineenHinta <- 1.62      # bensiinin tai dieselin litrahinta
#AutonHinta <- 51190            # euroa
Kulutus <- 7.1                # l/100 km
HiilidioksidiPaastot <- 0.163  # g/km
ArvonAlennusProsentti <- 0.12  # %/vuosi
AjoneuvoveroPerV <- 105.85    # euroa/vuosi
LiikenneVakuutusPerV <- 315    # euroa/vuosi
KaskoVakuutusPerV <- 550      # euroa/vuosi
SailytysPysakointiPerV <- 468  # sailytys ja pysakointikulut (euroa/vuosi)
RengasKuluPerKMV <- 150        # Rengaskulut/vuosi/10000km
HuoltoKorjausPesuPerKMV <- 340 # Huolto-, korjaus- ja pesukulut/vuosi/10000km
KorvausPerKM <- 0.45          # euroa/km
KorvausPerKM2013 <- 0.43      # euroa/km (uusi korvaus alkaen vuodesta 2013 LVM:n esityksen mukaan)     
#
N <- 8                        # Intervallien maara
Intervalli <- 5000            # Intervallin pituus (km)
P <- 10                        # Jaotus 100/P prosenttiyksikon intervalliin
# Luodaan muuttuville kustannuksille taulukko, jossa akseleina
# (1) km-korvauksen piiriin kuuluvien ajojen maara kaikista
# ajoista (floor(100/P) + 1 alkiota, esim. jos P = 10 =>
# akselilla arvot [0%, 10%, 20%, ..., 90%, 100%]),
# (2) kokonaisajosuorite ((N+1) alkiota, jokainen vastaa 5000 km intervallia =>
# akselilla arvot [0km, 5000km, 10000km ..., 35000km, 40000km]),
# (3) pitoaika (MaxPitoAika alkiota, esim. jos MaxPitoAika = 7 =>
# akselilla arvot [1v, 2v, ..., 6v, 7v]).
# Taulokko alustetaan nollilla:
#
Pmax <- floor(100/P) + 1
Nmax <- N+1
MuuttuvatKulut <- array(0, c(Pmax,Nmax,PitoAikaMax))
MuuttuvatKulutU <- array(0, c(Pmax,Nmax,PitoAikaMax))
for(t in 1:PitoAikaMax) {
for(p in 1:Pmax) {
for(n in 1:Nmax) {
PolttoAineKulut <- ((Kulutus/100)*(n-1)*Intervalli*PolttoAineenHinta)*t
RengasKulut <- RengasKuluPerKMV*((n-1)*Intervalli/10000)*t
HuoltoKorjausPesuKulut <- HuoltoKorjausPesuPerKMV*((n-1)*Intervalli/10000)*t
KilometriKorvaus <- (KorvausPerKM*(n-1)*Intervalli*(p-1)*P/100)*t
MuuttuvatKulut[p,n,t] <- PolttoAineKulut + RengasKulut +
HuoltoKorjausPesuKulut - KilometriKorvaus
# 2013 alkaen:
KilometriKorvausU <- (KorvausPerKM2013*(n-1)*Intervalli*(p-1)*P/100)*t
MuuttuvatKulutU[p,n,t] <- PolttoAineKulut + RengasKulut +
HuoltoKorjausPesuKulut - KilometriKorvausU
}
}
}
# Luodaan paaomakustannuksille taulukko, jossa akselina pitoaika
PaaomaKulut <- array(0, c(PitoAikaMax))
# Taytetaan PaaomaKulut-taulukko siihen kuuluvilla kuluerilla:
#
for(t in 1:PitoAikaMax) {
ArvonAlennus <- AutonHinta*(1 - (1 - ArvonAlennusProsentti)**t)
#
# Lasketaan korkotappiot olettamalla tasalainalyhennys kerran vuodessa:
kp <- 1 + LainaKorko
Annuiteetti <- (AutonHinta - OmatRahat)*(kp**LainaAika)*LainaKorko/(kp**LainaAika - 1)
KorkoMenot <- Annuiteetti*LainaAika - (AutonHinta - OmatRahat)
# Huom! Poikkeaa maaritelmasta, jonka mukaan paaoman korko lasketaan
# vuoden alussa jaljella olevalle investoidulle paaomalle.
#
LiikenneVakuutus <- LiikenneVakuutusPerV*t
KaskoVakuutus <- KaskoVakuutusPerV*t
AjoneuvoVero <- AjoneuvoveroPerV*t
SailytysPysakointi <- SailytysPysakointiPerV*t
PaaomaKulut[t] <- ArvonAlennus + KorkoMenot + LiikenneVakuutus +
KaskoVakuutus + AjoneuvoVero + SailytysPysakointi
}
# Laajennetaan Paaomakulut samankokoiseksi taulukoksi kuin
# MuuttuvatKulut-taulukko
PaaomaKulut2 <- array(0, c(Pmax,Nmax,PitoAikaMax))
for(t in 1:PitoAikaMax) {
PaaomaKulut2[1:Pmax,1:Nmax,t] <- PaaomaKulut[t]
}
# Lasketaan kokonaiskustannukset pitoajalta
KokonaisKulut <- array(0, c(Pmax,Nmax,PitoAikaMax))
KokonaisKulut <- MuuttuvatKulut + PaaomaKulut2
# 2013 alkaen:
KokonaisKulutU <- array(0, c(Pmax,Nmax,PitoAikaMax))
KokonaisKulutU <- MuuttuvatKulutU + PaaomaKulut2
#
KokonaisKulutPerKM <- array(0, c((Pmax-1),(Nmax-1),PitoAikaMax))
for(t in 1:PitoAikaMax) {
for(p in 1:(Pmax-1)) {
for(n in 1:(Nmax-1)) {
KokonaisKulutPerKM[p,n,t] <- KokonaisKulut[p,n,t]/(n*Intervalli*t)
}
}
}
# Alla maaritellyt vektorit luetaan kayttajien tietokantaan talletetuista tiedoista
#
luettuMatriisi <- op_baseGetData("opasnet_base", "Op_fi2921")
# Muodostetaan kaksi vektoria, joita hyodynnetaan visualisoinneissa myohemmin
#
apuM <- as.character(luettuMatriisi$Parameter)
apuM <- (1:length(apuM))*as.numeric(apuM == "AjetutKilometrit")
apuM <- apuM[apuM != 0]
LS <- luettuMatriisi$Result.Text[apuM]
LS <- LS[LS != 0]
LiikenneSuoriteMuut <- as.numeric(as.character(LS))
alku <- 16; loppu <- length(LiikenneSuoriteMuut)
LiikenneSuoriteMuut <- LiikenneSuoriteMuut[alku:loppu]
#
apuM <- as.character(luettuMatriisi$Parameter)
apuM <- (1:length(apuM))*as.numeric(apuM == "KorvattavatKilometritPros")
apuM <- apuM[apuM != 0]
KMP <- luettuMatriisi$Result.Text[apuM]
KMP <- KMP[KMP != 0]
KmKorvausProsentitMuut <- as.numeric(as.character(KMP))
alku <- 16; loppu <- length(KmKorvausProsentitMuut)
KmKorvausProsentitMuut <- KmKorvausProsentitMuut[alku:loppu]
# SKENAARIOANALYYSI
# Kiinnitetaan koko Suomen kilometrikorvausten maara
KmKorvausKokoSuomi <- 1.046*10^9
# http://www.vero.fi/fi-FI/Tietoa_Verohallinnosta/Tuloverotilastoja%2814419%29
# 1. Nykykaytanto-skenaario (nykyinen km-korvauskaytanto jatkuu, tulokset pyoristetaan alaspain lahimpaan
# 5000-km -intervalliin ja lahimpaan %-desiiliin):
#
KorvattavatKilometritPros1 <- floor(KorvattavatKilometritPros/10)+1
AjetutKilometrit1 <- floor(AjetutKilometrit/Intervalli)+1
#
OmaKukkaro1 <- -KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)]
KaikkienKukkaro1 <- -KmKorvausKokoSuomi*as.numeric(Ajanjakso)
# 2. LVM:n (liikenne- ja viestintaministerio) kaavailema ehdotus
#
KilometriKattoLVM <- 15000 # http://www.smkj.fi/fi/ajankohtaista/320-kilometrikorvaus-kysymyksia-ja-vastauksia
KorvausPerKMLVM <- 0.25 # http://www.smkj.fi/fi/ajankohtaista/320-kilometrikorvaus-kysymyksia-ja-vastauksia
Nmax2 <- floor((AjetutKilometrit-KilometriKattoLVM)/Intervalli) + 1
if(Nmax2 < 0) Nmax2 <- 1
MuuttuvatKulutB <- array(0, c(Pmax,Nmax2,PitoAikaMax))
#
# IF-lause alkaa
if(AjetutKilometrit > KilometriKattoLVM) {
for(t in 1:PitoAikaMax) {
for(p in 1:Pmax) {
for(n in 1:Nmax2) {
PolttoAineKulut <- ((Kulutus/100)*(n-1)*Intervalli*PolttoAineenHinta)*t
RengasKulut <- RengasKuluPerKMV*((n-1)*Intervalli/10000)*t
HuoltoKorjausPesuKulut <- HuoltoKorjausPesuPerKMV*((n-1)*Intervalli/10000)*t
KilometriKorvaus <- (KorvausPerKMLVM*(n-1)*Intervalli*(p-1)*P/100)*t
MuuttuvatKulutB[p,n,t] <- PolttoAineKulut + RengasKulut +
HuoltoKorjausPesuKulut - KilometriKorvaus
}
}
}
AjetutKilometrit2 <- floor(KilometriKattoLVM/Intervalli)+1
#
MuuttuvatKulut2 <- MuuttuvatKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)]
#
# 2013 alkaen:
MuuttuvatKulut2U <- MuuttuvatKulutU[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)]
#
#
#OmaKukkaro2 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2) } else #OmaKukkaro2 <- -KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)]
#
# Alla oleva patee 2013 alkaen
OmaKukkaro2 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2U) } else OmaKukkaro2 <- -KokonaisKulutU[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)]
# IF-lause paattyy
KaikkienKukkaro2 <- (-KmKorvausKokoSuomi + 70*10^6)*as.numeric(Ajanjakso)
# http://www.ts.fi/uutiset/kotimaa/326230/Paljon+ajavien+kilometrikorvaus+pienenee
# 3. LVM:n ehdotus omilla parametreilla
#
Nmax2 <- floor((AjetutKilometrit-KilometriKattoOma)/Intervalli)+1
if(Nmax2 < 0) Nmax2 <- 1
MuuttuvatKulutB <- array(0, c(Pmax,Nmax2,PitoAikaMax))
#
# IF-lause alkaa
if(AjetutKilometrit > KilometriKattoOma) {
for(t in 1:PitoAikaMax) {
for(p in 1:Pmax) {
for(n in 1:Nmax2) {
PolttoAineKulut <- ((Kulutus/100)*(n-1)*Intervalli*PolttoAineenHinta)*t
RengasKulut <- RengasKuluPerKMV*((n-1)*Intervalli/10000)*t
HuoltoKorjausPesuKulut <- HuoltoKorjausPesuPerKMV*((n-1)*Intervalli/10000)*t
KilometriKorvaus <- (KorvausPerKMOma*(n-1)*Intervalli*(p-1)*P/100)*t
MuuttuvatKulutB[p,n,t] <- PolttoAineKulut + RengasKulut +
HuoltoKorjausPesuKulut - KilometriKorvaus
}
}
}
AjetutKilometrit2 <- floor(KilometriKattoOma/Intervalli)+1
MuuttuvatKulut2 <- MuuttuvatKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)]
#
# 2013 alkaen:
MuuttuvatKulut2U <- MuuttuvatKulutU[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] + MuuttuvatKulutB[KorvattavatKilometritPros1, Nmax2, as.numeric(Ajanjakso)]
#
#OmaKukkaro3 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2) } else #OmaKukkaro3 <- -KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)]
#
# Alla oleva patee 2013 alkaen
OmaKukkaro3 <- -(PaaomaKulut2[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)] + MuuttuvatKulut2U) } else OmaKukkaro3 <- -KokonaisKulutU[KorvattavatKilometritPros1, AjetutKilometrit1, as.numeric(Ajanjakso)]
# IF-lause paattyy
#
#
# Kiinnitetaan priorijakaumat
# Prosenttiosuus km-korvauksen saajista joiden korvattavien ajokilometrien osuus jaa alle kilometrikorvauskaton # eli KilometriKattoOma:n
#
A <- 3*sqrt(3)/(2*pi) # Jakauman normalisaatio
ratio <- KilometriKattoOma/17700
integrand <- function(x) {(A*ratio)*1/(1+(ratio*x)^3)}
# Keskimaarainen liikennesuorite vuodessa = 17700 km, Tiehallinto, Tietilasto 2007
# Ajoneuvostrategia 2015 Liikennesuoritteet ja ajoneuvokanta, Taustamuistio C s.9
PMinus <- integrate(integrand, lower = 0, upper = 1)
PrioriMinus <- PMinus$value
#
# Prosenttiosuus km-korvauksen saajista joiden kokonaisliikennesuorite on suurempi kuin KilometriKattoOma:
PrioriPlus <- 1 - PrioriMinus
#
# Korjataan kayttajien syottamasta liikennesuoritedatasta estimoituja prosenttiosuuksia Bayesin
# menetelmalla. Datasta voimme laskea kuinka suuri prosenttiosuus vastaajista on ilmoittanut kuuluvansa
# ryhmaan jonka korvattavien kilometrien maara alittaa maaran KilometriKattoOma. Merkitaan tata
# todennakoisyytta muuttujalla Pno:
#
ero <- LiikenneSuoriteMuut - KilometriKattoOma
Pno <- sum(ero < 0)/length(ero)
Pyes <- 1 - Pno
#
# Pno anta Maximum Likelihood-estimaatin riippumattomille Bernoulli-muuttujille, jotka saavat binaarisia arvoja # sen mukaan kuuluuko vastaaja luokkaan 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta vahemman
# kuin KilometriKattoOma' ja 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta enemman
# kuin KilometriKattoOma'. Estimaatti on kuitenkin biasoitunut erityisesti pienilla otoksilla, joten alla
# kaytetaan priori-estimaatteja.
#
# Lasketaan ALARAJA valtion budjettisaastoille.
#
KaikkienKukkaro3 <- -(KmKorvausKokoSuomi/KorvausPerKM)*(PrioriMinus*KorvausPerKM2013 + PrioriPlus*KorvausPerKMOma)*as.numeric(Ajanjakso)
# 4. Pelkkien käyttökustannusten korvaus
#
AjetutKilometrit2 <- floor(KilometriKattoOma/Intervalli)+1
OmaKukkaro4 <- -(KokonaisKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)] - MuuttuvatKulut[KorvattavatKilometritPros1, AjetutKilometrit2, as.numeric(Ajanjakso)])
#
#
# Kiinnitetaan priorijakaumat
# Prosenttiosuus km-korvauksen saajista joiden kilometrikorvattavien ajokilometrien maara oletetaan
# suuremmaksi kuin puolet kokonaisliikennesuoritteesta (todennakoisyys kuulua tahan osaan on siis)
PrioriPlus <- 0.2
#
# Prosenttiosuus km-korvauksen saajista joiden korvattavien ajokilometrien osuus jaa alle puoleen
# kokonaisliikennesuoritteesta                 
PrioriMinus <- 1 - PrioriPlus
#
#
# Maaritetaan posterioriestimaatti PrioriMinus:lle olettaen etta niilla vastaajilla, jotka ovat ilmoittaneet
# kuuluvansa ryhmaan 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta vahemman kuin puolet
# kokonaisliikennesuoritteestani', ei ole insentiivia huijata vastauksessaan. Talloin,
# P(-|yes) = 1 - PrioriPlus/Pyes niin kauan kuin PrioriPlus < Pyes.
#
# Lasketaan ALARAJA valtion budjettisaastoille. Tekija 0.5 alla seuraa siita etta Plus-ryhman jasenien (eli ne, # joille patee 'oma kilometrikorvattava osuus kokonaisliikennesuoritteesta enemman kuin puolet
# kokonaisliikennesuoritteestani') kokonaisliikennesuoritteen maarasta ainoastaan puolet on korvattavaa
# Vaihtoehdon 4 korvauskaytannon mukaan.
#
KaikkienKukkaro4 <- -PrioriMinus*KmKorvausKokoSuomi*0.5*as.numeric(Ajanjakso)
# Visualisointi
#
# Muuttuvat kulut nykyiselle kilometrikorvauskaytannolle (VE-1)
filled.contour(x = (0:(Nmax-1))*Intervalli, y = (0:(Pmax-1))*10, z = t(MuuttuvatKulut[,,as.numeric(Ajanjakso)]),
plot.axes ={ axis(1); axis(2); points(AjetutKilometrit,KorvattavatKilometritPros, cex=2, col=2, pch=1);
points(AjetutKilometrit,KorvattavatKilometritPros, cex=3, col=2, pch=1);
points(LiikenneSuoriteMuut, KmKorvausProsentitMuut, cex=1, col=1, pch=0);
legend(0, 100, c("Muut vastaajat", "Omat tietosi"), cex=0.8, col=c("black","red"), pch=0:1) },
plot.title = title(main = "VE-1: Muuttuvat kulut (= käyttökulut - kilometrikorvaus) koko pitoajalta
(sinertävä väri: kilometrikorvaus suurempi kuin käyttökulut)",
xlab = "Kokonaisliikennesuorite/vuosi (=ajokilometrit vuodessa)",
ylab = "Kilometrikorvattavien ajojen osuus prosentteina kokonaisliikennesuoritteesta"),
key.title = title(main="Euroa")
)
#
# Kokonaiskulut nykyiselle kilometrikorvauskaytannolle (VE-1)
filled.contour(x = (0:(Nmax-1))*Intervalli, y = (0:(Pmax-1))*10, z = t(KokonaisKulut[,,as.numeric(Ajanjakso)]),
plot.axes ={ axis(1); axis(2); points(AjetutKilometrit,KorvattavatKilometritPros, cex=2, col=2, pch=1);
points(AjetutKilometrit,KorvattavatKilometritPros, cex=3, col=2, pch=1) },
plot.title = title(main = "VE-1: Kokonaiskulut (= pääomakulut + muuttuvat kulut) koko pitoajalta
(sinertävä väri: kilometrikorvaus suurempi kuin pääomakulujen ja käyttökulujen summa)",
xlab = "Kokonaisliikennesuorite/vuosi (=ajokilometrit vuodessa)",
ylab = "Kilometrikorvattavien ajojen osuus prosentteina kokonaisliikennesuoritteesta"),
key.title = title(main="Euroa")
)
#
par(mfcol = c(1,2))
plotResults <- c(OmaKukkaro1, OmaKukkaro2, OmaKukkaro3, OmaKukkaro4)
plotResults_num <- as.numeric(plotResults < 0)
colorbar <- c("green","green","green","green")
colorbar[which(plotResults_num == 1)] <- "red"
barplot(plotResults, col=colorbar, names.arg=c("VE-1","VE-2","VE-3","VE-4"), cex.axis=1.7, cex.names=1.7)
title("Eri vaihtoehtojen (VE-1 - VE-4) vaikutus
omaan kukkaroon (euroa) koko ajanjaksolta")
#
plotResults <- c(KaikkienKukkaro1, KaikkienKukkaro2, KaikkienKukkaro3, KaikkienKukkaro4)
plotResults_num <- as.numeric(plotResults < 0)
colorbar <- c("green","green","green","green")
colorbar[which(plotResults_num == 1)] <- "red"
barplot(plotResults, col=colorbar, names.arg=c("VE-1","VE-2","VE-3","VE-4"), cex.axis=1.7, cex.names=1.7)
title("Eri vaihtoehtojen (VE-1 - VE-4) vaikutus
yhteiskunnan kukkaroon (euroa) koko ajanjaksolta")


== Mitä täytyy analysoida lainmuutoksen perusteluja varten? ==
</rcode>
 
=== Jaa ratkaisusi muiden kanssa ===
 
Kun olet löytänyt suosikkivaihtoehtosi eri kulukorvausvaihtoehdoista (ks. yllä) voit jakaa suosikkimallisi parametreineen muiden käyttäjien kanssa avoimena datana. Eri vaihtoehtoja kuvaa erilainen määrä parametrejä, jotka kerätään otsikon '''Ehdotuksesi''' alla. Jos haluat, voit myös tallentaa tietokantaan oman vuosittaisen liikennesuoritteesi ja montako prosenttia siitä on kilometrikorvauksen piiriin kuuluvaa ajoa. Nämä tiedot kerätään otsikon '''Taustatietosi''' alla, ja niitä hyödynnetään kerättäessä statistiikkaa siitä, kuinka suosikkipolitiikkavaihtoehdot korreloivat vastaajan liikennesuoritteen kanssa.
 
<rcode graphics="1" label="Tallenna ja visualisoi tulokset"
variables="
name:ParasEhdotus|description:Millaista kilometrikorvauskäytännöä haluaisit käytettävän|
default:'Nykykäytäntö'|type:selection|options: 'VE-1 Nykykäytäntö';VE-1 Nykykäytäntö;'VE-2 LVM:n kaavailema ehdotus'; VE-2 LVM:n kaavailema ehdotus;'VE-3 LVM:n ehdotus omilla parametereilla';VE-3 LVM:n ehdotus omilla parametereilla;'VE-4 Pelkkien käyttökustannusten korvaus';VE-4 Pelkkien käyttökustannusten korvaus;'VE-5 Jokin muu korvauskäytäntö';VE-5 Jokin muu korvauskäytäntö|category:Ehdotuksesi|
name:KilometriKattoOma|default:0|description:Aseta kilometrikattosuosituksesi (km) jos valitsit yllä vaihtoehdon VE-3|
name:KorvausPerKMOma|default:0|description: Aseta kilomet&shy;ri&shy;kor&shy;vaus&shy;suo&shy;si&shy;tuk&shy;se&shy;si ki&shy;lo&shy;met&shy;ri&shy;ka&shy;ton y&shy;lit&shy;tä&shy;väl&shy;le lii&shy;ken&shy;ne&shy;suo&shy;rit&shy;teel&shy;le (euroa/km) jos va&shy;lit&shy;sit yl&shy;lä vaih&shy;to&shy;eh&shy;don VE-3|
name:PolitiikkaEhdotusOma|type:text|description:Ehdota omaa kulukorvauspolitiikkaasi (lyhyt vapaamuotoinen kuvaus) jos valitsit yllä vaihtoehdon VE-5|
name:AjetutKilometrit|default:0|description: Kokonaisliikennesuoriteesi (km/vuosi)|category:Taustatietosi|
name:KorvattavatKilometritPros|default:0|description: Kilometrikorvattava osuus liikennesuoritteestasi (%)
">
 
# Tarkistetaan kayttajan antamien vastausten tyypit
# Poistetaan oletusarvot käyttäjätiedoista, koska muuten dataan pääsee väärää tietoa.
# PolitiikkaEhdotusOma muutettiin tekstikentäksi, jolloin ei tarvita hipsuja.
#
if(is.null(KilometriKattoOma)) {KilometriKattoOma <- NA}
if(is.null(KorvausPerKMOma)) {KorvausPerKMOma <- NA}
if(is.null(PolitiikkaEhdotusOma)) {PolitiikkaEhdotusOma <- NA}
#if(is.null(AjetutKilometrit)) {AjetutKilometrit <- NA}
if(is.null(KorvattavatKilometritPros)) {KorvattavatKilometritPros <- NA}
#if(is.na(KilometriKattoOma) | class(KilometriKattoOma) != "numeric") {print("Syötteen on oltava luku!")}
 
# Ladataan kirjastot
library(OpasnetUtils)
library(xtable)
 
# Luetaan tiedot Opasnet Base-tietokannasta, muuttujasta Op_fi2921
# Luetaan stackin korkeus annetusta arvosta series_id = xxx alkaen. Jos mitaan
# arvoa ei ole annettu, tapahtuu lukeminen ainoasta jaljella olevasta arvosta alkaen
#
Obs <- max(opbase.data("Op_fi2921")[,"obs"]) + 1
act <- "append"
# Maaritellaan datamatriisi
data <- data.frame(
  obs = rep(Obs, 6),
  Parameter = c("AjetutKilometrit", "KorvattavatKilometritPros", "ParasEhdotus", "KilometriKattoOma", "KorvausPerKMOma", "PolitiikkaEhdotusOma"),
  Result = c(AjetutKilometrit, KorvattavatKilometritPros, ParasEhdotus, KilometriKattoOma, KorvausPerKMOma, PolitiikkaEhdotusOma))
 
opbase.upload(input = data, ident = "Op_fi2921", acttype = act, who = wiki_username, unit = "-")
 
# Luetaan ylla talletettu matriisi Basesta
luettuMatriisi <- opbase.data("Op_fi2921")
#
# Printataan naytolle
#print("Basesta luettu matriisi")
#print(xtable(luettuMatriisi),type="html")
 
# Visualisointi
VE1 <- sum(luettuMatriisi[,5] == "VE-1 Nykykäytäntö")
VE2 <- sum(luettuMatriisi[,5] == "VE-2 LVM:n kaavailema ehdotus")
VE3 <- sum(luettuMatriisi[,5] == "VE-3 LVM:n ehdotus omilla parametereilla")
VE4 <- sum(luettuMatriisi[,5] == "VE-4 Pelkkien käyttökustannusten korvaus")
VE5 <- sum(luettuMatriisi[,5] == "VE-5 Jokin muu korvauskäytäntö")
 
plotResults <- c(VE1,VE2,VE3,VE4,VE5)
barplot(plotResults, col="blue", names.arg=c("VE-1","VE-2","VE-3","VE-4", "VE-5"), cex.axis=1.7, cex.names=1.7)
title("Eri kilometrikorvausvaihtoehtojen suosio (= vaihtoehdon esiintymiskertojen lukumäärä kaikkien vastausten joukossa)")
 
 
ideat <- as.character(luettuMatriisi$Parameter)
ideat <- (1:length(ideat))*as.numeric(ideat == "PolitiikkaEhdotusOma")
ideat <- ideat[ideat != 0]
Ehdotukset <- luettuMatriisi$Result.Text[ideat]
Ehdotukset <- Ehdotukset[Ehdotukset != "kommenttisi hipsujen väliin" & Ehdotukset != ""]
alku <- 6; loppu <- length(Ehdotukset)
Ehdotukset <- Ehdotukset[alku:loppu]
print(xtable(as.data.frame(Ehdotukset), caption = "Käyttäjän syöttämät kommentit (VE-5)"),type='html')
 
</rcode>
 
 
Muiden käyttäjien vastauksiin voi tutustua graafisesti vastaamalla kysymyskenttiin ja painamalla yllä nappia '''Tallenna ja visualisoi tulokset'''. Voit myös imuroida vastausdatan csv-tiedostoformaatissa klikkaamalla alla linkkiä '''Näytä tulokset''' {{#opasnet_base_link:Op_fi2921}}.
 
== Vaikutusanalyysin aihepiirit ==
 
Alla olevaan listaan on kerätty näkökohtia, joiden tutkimista pidetään tärkeänä lakiehdotuksen perusteluosaa varten. Osa näkökohdista on tiivistetty [[Kilometrikorvauskeskustelun_näkökulmat | julkisesta keskustelusta]]. Voit lisätä omat ehdotuksesi listaan. Äärellisistä resursseita johtuen ei kaikkea voida tutkia joten karsintaa tullaan suorittamaan käytössä olevien resurssien puitteissa. Osaa listatuista aiheista on jo ollut tutkimuksen kohteena ja tuloksia esitellään alempana


Alla olevaan listaan on kerätty muutamia mielenkiintoisia näkökohtia. Osa niistä on tiivistetty [[Kilometrikorvauskeskustelun_näkökulmat | julkisesta keskustelusta]]. Voit lisätä omat ehdotuksesi listaan. Äärellisistä resursseita johtuen ei kaikkea voida tutkia joten karsintaa tullaan suorittamaan jatkossa.
* Vaikutukset yksityisautoiluun
* Vaikutukset yksityisautoiluun
* Vaikutukset yrityksiin
* Vaikutukset yrityksiin
Rivi 67: Rivi 506:
* Muuta...
* Muuta...


===Harkittavat päätökset===
Taulukossa on mahdollisia päätöksiä kilometrikorvauksiin liittyen sekä niiden eri vaihtoehtoja. Arvioinnissa tarkastellaan ja vertaillaan vaikutuksia tilanteissa, joissa erilaisia vaihtoehtoja päätettäisiin toteuttaa.
<t2b index="Päätös,Vaihtoehto,Muuttuja,Solu,Havainto" locations="Arvo,Selite" unit="-">
Pääomakulujen sisällyttäminen|Jaetaan kilometrien suhteessa (nykytila)|||27.07 €/100 km|Pääomakulut lasketaan täysimääräisenä ja jaetaan kaikille kilometreille samassa suhteessa. Peruste: arvo alenee myös työajossa.
Pääomakulujen sisällyttäminen|Ei sisällytetä kilometrikorvaukseen|||0 €/100 km|Pääomakuluja ei sisällytetä kilometrikorvaukseen, vaan ne vyörytetään kokonaisuudessaan vapaa-ajan kilometreille. Peruste: työntekijä omistaa autonsa joka tapauksessa.
Pääomakulujen sisällyttäminen|Lasketaan arvonalenema erikseen|||0-27 €/100 km riippuen ajomääristä ja pitoajasta|Työajon aiheuttama arvonalenema lasketaan erikseen ottaen huomioon, että auton arvo alenee joka tapauksessa ajettiin sillä tai ei. Peruste: Tämä vastaa todellista kulua työntekijälle.
Julkinen liikenne vaihtoehtona|Julkista liikennettä ei huomioida kilometrikorvauksissa (nykytila)||||Kilometrikorvaus on samansuurinen riippumatta siitä, voisiko työmatkan tehdä joukkoliikenteellä vai ei.
Julkinen liikenne vaihtoehtona|Julkisen liikenteen vaihtoehto asettaa korvauksen ylärajan||||Jos kyseiselle matkalle on olemassa joukkoliikennevaihtoehto, sen hinta otetaan korvauksen enimmäismääräksi.
Julkinen liikenne vaihtoehtona|Julkisen liikenteen vaihtoehto + matka-aika asettaa korvauksen ylärajan||||Jos kyseiselle matkalle on olemassa joukkoliikennevaihtoehto, sen hinta otetaan korvauksen enimmäismääräksi. Kuitenkin otetaan huomioon myös matka-ajan pidentymisestä johtuva kustannus.
</t2b>


== Vaikutukset yksityisautoiluun ==
== Vaikutukset yksityisautoiluun ==
Rivi 197: Rivi 624:


Kokonaiskustannukset saadaan laskettua kaavasta: ''Kokonaiskulut = pääomakulut + käyttökulut - kilometrikorvaus''. Koska pääomakulut ovat kiinteitä koko käyttöajalta, nostavat ne ainoastaan nollatasoa yllä olevissa kuvissa vakioarvolla. Pääomakulut pitoajoille 2v 21246 €, 3v 30061 €, 4v 37964 € ja 7v 57467 €. (Huom: Autoliiton laskurin antamat arvot pääomakuluille riippuvat hieman laskenta-ajankohdasta).
Kokonaiskustannukset saadaan laskettua kaavasta: ''Kokonaiskulut = pääomakulut + käyttökulut - kilometrikorvaus''. Koska pääomakulut ovat kiinteitä koko käyttöajalta, nostavat ne ainoastaan nollatasoa yllä olevissa kuvissa vakioarvolla. Pääomakulut pitoajoille 2v 21246 €, 3v 30061 €, 4v 37964 € ja 7v 57467 €. (Huom: Autoliiton laskurin antamat arvot pääomakuluille riippuvat hieman laskenta-ajankohdasta).
=== Avoin laskuri===
Vastaa Autoliiton laskuria mutta mahdollistaa nokkapellin alle kurkistamisen. Klikkaamalla '''Näytä koodi'''-kenttää alla näet R-koodin johon laskuri perustuu. Koodia voi muuttaa wikiin ja tallennuksen jälkeen muutettu malli on kaikkien käytettävissä. Kustannusmallin parametrit voi syöttää alla oleviin kenttiin, ja laskennan voi suorittaa klikkaamalla syötekenttien alapuolelta löytyvää '''Aja koodi'''-painiketta. Laskurin perusteista yms. voidaan väitellä avoimesti [[Keskustelu:Kilometrikorvaus_AM_2012 | Keskustelusivulla]].
<rcode graphics="1"
variables="
name:OmatRahat|default:0|description: Oman rahan määrä (€)|
name:SaamattaJaavaKorko|default:0.02|description: Saamatta jäävä korko|
name:LainaAika|default:2|description: Laina-aika (v)|
name:LainaKorko|default:0.065|description: Lainakorko|
name:PolttoAineenHinta|default:1.62|description: Polttoaineen hinta (€/l)|
name:AutonHinta|default:51190|description: Auton hinta lisävarusteineen (€)|
name:Kulutus|default:7.1|description: Kulutus (l/100km)|
name:ArvonAlennusProsentti|default:0.12|description: Arvonalennusprosentti (100*%/v)|
name:AjoneuvoveroPerV|default:105.85|description: Ajoneuvovero (€/v)|
name:LiikenneVakuutusPerV|default:315|description: Liikennevakuutus (€/v)|
name:KaskoVakuutusPerV|default:550|description: Kasko-vakuutus (€/v)|
name:SailytysPysakointiPerV|default:468|description: Säilytys- ja pysäköintimaksut (€/v)|
name:RengasKuluPerKMV|default:150|description: Rengaskulut (€/v)|
name:HuoltoKorjausPesuPerKMV|default:340|description: Huolto, korjaus, pesu (€/v)
">
PitoAikaMax <- 7              # aika vuosissa
#OmatRahat <- 0                # vahentaa lainarahan maaraa
#SaamattaJaavaKorko <- 0.02    # milla korolla lainaraha kasvaisi ilman lainaa
#LainaAika <- 2                # aika vuosissa
#LainaKorko <- 0.065            # lainan korko
#PolttoAineenHinta <- 1.62      # bensiinin tai dieselin litrahinta
#AutonHinta <- 51190            # euroa
#Kulutus <- 7.1                # l/100 km
HiilidioksidiPaastot <- 0.163  # g/km
#ArvonAlennusProsentti <- 0.12  # %/vuosi
#AjoneuvoveroPerV <- 105.85    # euroa/vuosi
#LiikenneVakuutusPerV <- 315    # euroa/vuosi
#KaskoVakuutusPerV <- 550      # euroa/vuosi
#SailytysPysakointiPerV <- 468  # sailytys ja pysakointikulut (euroa/vuosi)
#RengasKuluPerKMV <- 150        # Rengaskulut/vuosi/10000km
#HuoltoKorjausPesuPerKMV <- 340 # Huolto-, korjaus- ja pesukulut/vuosi/10000km
KorvausPerKM <- 0.45          # euroa/km
#
N <- 8                        # Intervallien maara
Intervalli <- 5000            # Intervallin pituus (km)
P <- 10                        # Jaotus 100/P prosenttiyksikon intervalliin
# Luodaan muuttuville kustannuksille taulukko, jossa akseleina
# (1) km-korvauksen piiriin kuuluvien ajojen maara kaikista
# ajoista (floor(100/P) + 1 alkiota, esim. jos P = 10 =>
# akselilla arvot [0%, 10%, 20%, ..., 90%, 100%]),
# (2) kokonaisajosuorite ((N+1) alkiota, jokainen vastaa 5000 km intervallia =>
# akselilla arvot [0km, 5000km, 10000km ..., 35000km, 40000km]),
# (3) pitoaika (MaxPitoAika alkiota, esim. jos MaxPitoAika = 7 =>
# akselilla arvot [1v, 2v, ..., 6v, 7v]).
# Taulokko alustetaan nollilla:
#
Pmax <- floor(100/P) + 1
Nmax <- N+1
MuuttuvatKulut <- array(0, c(Pmax,Nmax,PitoAikaMax))
for(t in 1:PitoAikaMax) {
for(p in 1:Pmax) {
for(n in 1:Nmax) {
PolttoAineKulut <- ((Kulutus/100)*(n-1)*Intervalli*PolttoAineenHinta)*t
#
RengasKulut <- RengasKuluPerKMV*((n-1)*Intervalli/10000)*t
#
HuoltoKorjausPesuKulut <- HuoltoKorjausPesuPerKMV*((n-1)*Intervalli/10000)*t
#
KilometriKorvaus <- (KorvausPerKM*(n-1)*Intervalli*(p-1)*P/100)*t
#
MuuttuvatKulut[p,n,t] <- PolttoAineKulut + RengasKulut +
HuoltoKorjausPesuKulut - KilometriKorvaus
}
}
}
# Luodaan paaomakustannuksille taulukko, jossa akselina pitoaika
PaaomaKulut <- array(0, c(PitoAikaMax))
# Taytetaan PaaomaKulut-taulukko siihen kuuluvilla kuluerilla:
#
for(t in 1:PitoAikaMax) {
ArvonAlennus <- AutonHinta*(1 - (1 - ArvonAlennusProsentti)**t)
#
# Lasketaan korkotappiot olettamalla tasalainalyhennys kerran vuodessa:
kp <- 1 + LainaKorko
Annuiteetti <- (AutonHinta - OmatRahat)*(kp**LainaAika)*LainaKorko/(kp**LainaAika - 1)
KorkoMenot <- Annuiteetti*LainaAika - (AutonHinta - OmatRahat)
# Huom! Poikkeaa maaritelmasta, jonka mukaan paaoman korko lasketaan
# vuoden alussa jaljella olevalle investoidulle paaomalle.
#
LiikenneVakuutus <- LiikenneVakuutusPerV*t
#
KaskoVakuutus <- KaskoVakuutusPerV*t
#
AjoneuvoVero <- AjoneuvoveroPerV*t
#
SailytysPysakointi <- SailytysPysakointiPerV*t
#
PaaomaKulut[t] <- ArvonAlennus + KorkoMenot + LiikenneVakuutus +
KaskoVakuutus + AjoneuvoVero + SailytysPysakointi
}
# Laajennetaan Paaomakulut samankokoiseksi taulukoksi kuin
# MuuttuvatKulut-taulukko
PaaomaKulut2 <- array(0, c(Pmax,Nmax,PitoAikaMax))
for(t in 1:PitoAikaMax) {
PaaomaKulut2[1:Pmax,1:Nmax,t] <- PaaomaKulut[t]
}
# Lasketaan kokonaiskustannukset pitoajalta
KokonaisKulut <- array(0, c(Pmax,Nmax,PitoAikaMax))
KokonaisKulut <- MuuttuvatKulut + PaaomaKulut2
KokonaisKulutPerKM <- array(0, c((Pmax-1),(Nmax-1),PitoAikaMax))
for(t in 1:PitoAikaMax) {
for(p in 1:(Pmax-1)) {
for(n in 1:(Nmax-1)) {
KokonaisKulutPerKM[p,n,t] <- KokonaisKulut[p,n,t]/(n*Intervalli*t)
}
}
}
# Visualisointi
#
filled.contour(t(MuuttuvatKulut[,,1]), plot.title = title(main = "Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 1v",
  xlab = "Ajokilometrit 0 - 40000 km/v", ylab = "Työmatkojen osuus 0 - 100 %"),  key.title = title(main="euroa"))
filled.contour(t(MuuttuvatKulut[,,3]), plot.title = title(main = "Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 3v",
  xlab = "Ajokilometrit 0 - 40000 km/v", ylab = "Työmatkojen osuus 0 - 100 %"),  key.title = title(main="euroa"))
filled.contour(t(MuuttuvatKulut[,,5]), plot.title = title(main = "Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 5v",
  xlab = "Ajokilometrit 0 - 40000 km/v", ylab = "Työmatkojen osuus 0 - 100 %"),  key.title = title(main="euroa"))
filled.contour(t(MuuttuvatKulut[,,7]), plot.title = title(main = "Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 7v",
  xlab = "Ajokilometrit 0 - 40000 km/v", ylab = "Työmatkojen osuus 0 - 100 %"),  key.title = title(main="euroa"))
#
# n=5 (ajettuja kilometreja = (n-1)*Intervalli = 20000km)
# Pystyakselilla autoilijan kustannukset euroissa kun km-korvauttavien
# ajokilometrien maara nousee 0% - 100% (alhaalta ylos). Negatiivinen
# kustannus tarkoittaa etta autoilija nettoaa.
#
par(mfcol = c(2,2))
plot(MuuttuvatKulut[,5,1]); title("Käyttökulujen ja km-korvauksen erotus, pitoaika 1v, 20000km/v")
plot(MuuttuvatKulut[,5,5]); title("Käyttökulujen ja km-korvauksen erotus, pitoaika 5v, 20000km/v")
plot(MuuttuvatKulut[,5,3]); title("Käyttökulujen ja km-korvauksen erotus, pitoaika 3v, 20000km/v")
plot(MuuttuvatKulut[,5,7]); title("Käyttökulujen ja km-korvauksen erotus, pitoaika 7v, 20000km/v")
</rcode>
=== Verohallinnon laskentaperusteet ===
Kulukorvausasian neuvottelukunnan pöytäkirjat liitteineen vuosilta 2006-2011 on saatavissa alla olevasta linkistä. Tärkeimmistä kilometrikorvauskäytännön perusteista koostetaan tiivistelmä. Hallituksen kehysriihi on tehnyt asiasta päätöksen, jonka mukaan korvauksille tulee kilometrimääräinen katto, jonka jälkeen korvaus pienenee huomattavasti <ref name = kmkorvaus23.3> [http://www.hs.fi/kotimaa/Kilometrikorvauksille+on+tulossa+katto/a1305558453728 HS 23.3.2012: ''Kilometrikorvauksille on tulossa katto''] </ref>.
[[Tiedosto:Km-korvaus-laskelmat_VM.pdf| Kulukorvausasian neuvottelukunnan pöytäkirjat 2006-2011]]




Rivi 372: Rivi 646:


* Toistaiseksi määrittämättä
* Toistaiseksi määrittämättä
== Käyttäjien vastaukset avoimena datana ==
Osana avointa arviointia keräämme käyttäjien näkemyksiä siitä millainen olisi yksilön ja yhteiskunnan kannalta oikeudenmukainen kilometrikorvauskäytäntö. Käyttäjät voivat valita neljästä eri korvauskäytännöstä tai ehdottaa omaansa. Tiivistetysti vaihtoehdot ovat seuraavat:
# Ny­ky­käy­tän­tö: Se­kä käyt­tö­kus­tan­nuk­set et­tä pää­o­ma­kus­tan­nuk­set kor­va­taan ve­ro­va­paas­ti (45 snt/km).
# LVM:n kaa­vai­le­ma eh­do­tus: Se­kä käyt­tö­kus­tan­nuk­set et­tä pää­o­ma­kus­tan­nuk­set kor­vataan. Ny­kyi­nen kor­vaus­ta­so säi­lyy ki­lo­met­ri­kat­toon 15000 km as­ti, min­kä jäl­keen kor­vaus­ta­so pie­ne­nee (o­le­tus 23 snt/km)
# LVM:n eh­do­tus o­mil­la pa­ra­met­reil­la: Ku­ten LVM:n eh­do­tus, mut­ta vastaaja määrittää o­man ki­lo­met­ri­kat­to­nsa ja sen jäl­kei­sen ki­lo­met­ri­kor­vauk­sen suu­ruu­den (voi ol­la pie­nem­pi tai suu­rem­pi kuin ny­kyi­nen).
# Pelk­kien käyt­tö­kus­tan­nus­ten kor­vaus: Pää­o­ma­ku­lu­ja ei kor­va­ta. Tä­mä vaih­to­eh­to voi­daan to­teut­taa säi­lyt­tä­mäl­lä ny­kyi­sen suu­rui­nen ki­lo­met­ri­kor­va­us mut­ta kor­vaa­mal­la e­nin­tään puo­let ko­ko­nais­lii­ken­ne­suo­rit­tees­ta.
# Jo­kin muu kor­vaus­käy­tän­tö
Vastauksiin voi tutustua tästä linkistä {{#opasnet_base_link:Op_fi2921}}.
Linkin takaa löytyvän avoimen vastausdatan voi myös imuroida csv-tiedostoformaatissa.





Nykyinen versio 22. elokuuta 2013 kello 11.11


Avoin arviointi
MITÄ TÄLLÄ SIVUSTOLLA TEHDÄÄN:

1.3.2012 voimaan astunut kansalaisaloitelaki antaa kansalaisille mahdollisuuden viedä omia lakiehdotuksiaan eduskunnan käsiteltäväksi. Käsittely edellyttää 50000 allekirjoitusta, ja ehdotusten laadukkuudesta riippuun kuinka vakavasti otettavia ne ovat. Avoimen Ministeriön asiantuntijat yhteistyössä kansalaisten ja virkamiesten kanssa arvioivat lakiehdotusten perusteita. Tälle sivustolle koostetaan kaikille avoin arviointi, jossa haetaan perusteltuja vastauksia kysymykseen pitäisikö kilometrikorvauksia kohtuullistaa ja jos kyllä, niin kuinka?


TAVOITE:

Avoimen Ministeriön lakialoiteet kerätään 1.3 avattuun Avoin Ministeriö -palveluun. Aloitteilla voi olla kolme eri statusta: (1) ideavaihe (2) luonnosvaihe (3) valmis kansalaisaloite. Vaiheessa (1) kerätään kommentteja ja näkemyksiä niin kansalaisilta kuin asiantuntijoiltakin. Näiden perusteellä päätetään nouseeko ideavaiheen aloite luonnosvaiheeseen, jolloin juristit muokkaavaat esityksen lakitekstin muotoon ja pyytävät myös sertifioiduilta asiantuntijoilta lausuntoja kuten virallisessakin lainvalmisteluprosessissa. Kilometrikorvausten kohtuullistamisesitys on nyt ideavaiheessa. Tavoitteena on löytää perustelut oikeudenmukaiselle käytännölle kilometrikorvausten suhteen. Jos hyviä perusteluja löytyy, ne kirjataan luonnosvaiheessa (2) lakiesityksen perusteosaan.


KUINKA VOIN OSALLISTUA:

  • Kuka tahansa voi osallistua.
  • Jos et halua rekisteröityä, voit kommentoida arviointia sivun alalaidasta löytyvää kommenttipainiketta käyttämällä
  • Rekisteröityneet käyttäjät (ks. sivun oikea yläkulma) voivat muokata sivustoa kuten Wikipediassa. Nimimerkin käyttö on sallittua.
  • Jos et halua kommentoida wikiin, voit myös lähettää sähköpostilla havaintosi ja kommenttisi osoitteeseen kanslia(at)avoinministerio.fi


Lyhyt johdatus avoimeen arviointiin

Tutkimuskysymyksen avoimeen arviointiin voivat osallistua kaikki asiasta kiinnostuneet henkilöt, eturyhmät sekä virkamiehet. Työskentelytilana käytetään Opasnet-ympäristöä, joka toimii pitkälti analogisesti avoimen tietosanakirjan Wikipedian tapaan.

Avoin arviointi pyrkii tuottamaan selkeän vastauksen tutkimuskysymykseen. Tyypillisesti kysymystä voidaan lähestyä monesta eri suunnasta, kuten esimerkiksi verotuksen, elinkeinonharjoittamisen, luontoarvojen ja juridisen konsistenssin näkökulmista. Arvioinnin onnistuminen riippuu monista tekijöistä, kuten saatavilla olevan lähtödatan määrästä, osallistujien kompetenssista ja panoksesta, tutkimusongelmaan liittyvien arvojen välittymisestä käytettäviin päätöksentekomalleihin jne.

Tutkimuskysymys voi myös poikia uusia arviointeja, joita tarvitaan johonkin osakysymykseen vastaamiseen. Vaikka vastauksia arvioinnin kohteena olevaan kysymykseen voidaan parannella ikuisesti, täytyy lainvalmistelun osana käytettäville arvioinneille asettaa takaraja. Tämä arvointi jatkuu toistaseksi. Jatkosta päättää Avoimen Ministeriön ohjausryhmä myöhemmin. Mikäli arviointiprosessi tuottaa selkeän tuloksen, se kirjataan lakiesityksen liitteeksi. Arviointiprosessissa tuotettu materiaali jää Opasnettiin myöhemmin hyödynnettäväksi, esimerkiksi tilanteessa että arviointia päätetään jatkaa jossain muussa yhteydessä, vaikkapa laajemman veropoliittisen muutosesityksen osana.


Tiivistelmä voimassa olevasta kilometrikorvauskäytännöstä

Verohallinnon päätös [1] verovapaista matkakustannusten korvauksista v. 2012 olennaisin osin (9§) alla:

Palkansaajan omistamallaan tai hallitsemallaan kulkuneuvolla tekemästä työmatkasta suoritettavien matkustamiskustannusten korvausten enimmäismäärät ovat: Korvauksen enimmäismäärä (autolle) on 45 senttiä kilometriltä, jota korotetaan

  • 7 senttiä kilometriltä perävaunun kuljettamisesta autoon kiinnitettynä
  • 11 senttiä kilometriltä silloin, kun työn suorittaminen edellyttää asuntovaunun kuljettamista autoon kiinnitettynä
  • 21 senttiä kilometriltä silloin, kun työn suorittaminen edellyttää taukotuvan tai vastaavan raskaan kuorman kuljettamista autoon kiinnitettynä
  • 3 senttiä kilometriltä sellaisista autossa kuljetettavista koneista tai muista esineistä, joiden paino ylittää 80 kiloa tai joiden koko on suuri
  • 3 senttiä kilometriltä, jos palkansaaja työhönsä kuuluvien tehtävien vuoksi kuljettaa autossa koiraa
  • 9 senttiä kilometriltä silloin, kun työn suorittaminen edellyttää liikkumista autolla metsäautotiellä tai muulta liikenteeltä suljetulla tienrakennustyömaalla, kyseisten kilometrien osalta

Jos palkansaajan omistamassa tai hallitsemassa kulkuneuvossa matkustaa muita henkilöitä, joiden kuljetus on työnantajan asiana, korotetaan 1 momentissa tarkoitettujen korvausten enimmäismääriä 3 senttiä kilometriltä kutakin mukana seuraavaa henkilöä kohden.

Jos palkansaaja, jolla on Verohallinnon luontoisetujen laskentaperusteita koskevassa päätöksessä tarkoitettu auton käyttöetu, käyttää tällaista autoa työmatkan suorittamiseen ja maksaa itse tästä matkasta aiheutuvat polttoainekulut, hänelle korvattavien polttoainekulujen enimmäismäärä on 12 senttiä kilometriltä.

Verohallinnon laskentaperusteet

Kulukorvausasian neuvottelukunnan pöytäkirjat liitteineen vuosilta 2006-2011 on saatavissa alla olevasta linkistä. Tärkeimmistä kilometrikorvauskäytännön perusteista koostetaan tiivistelmä. Hallituksen kehysriihi on tehnyt asiasta päätöksen, jonka mukaan korvauksille tulee kilometrimääräinen katto, jonka jälkeen korvaus pienenee huomattavasti [2].

Tiedosto:Km-korvaus-laskelmat VM.pdf


Tutustu ratkaisuvaihtoehtoihin

Jotta arvioinnin osallistujien ja kiinnostuneiden lukijoiden olisi helpompi suorittaa vertailuja erilaisten kulukorvausvaihtoehtojen välillä, on tarkemmin tutkittuja vaihtoehtoja kerätty alla olevaan listaan. Vaihtoehtoiset kulukorvauspolitiikat on nimetty lyhenteillä VE-1 - VE-5. Vaihtoehtojen määrä voi lisääntyä arvioinnin edistyessä.

VE-1 Ny­ky­käy­tän­tö: Se­kä käyt­tö­kus­tan­nuk­set et­tä pää­o­ma­kus­tan­nuk­set kor­va­taan ve­ro­va­paas­ti (45 snt/km).
VE-2 LVM:n kaa­vai­le­ma eh­do­tus: Se­kä käyt­tö­kus­tan­nuk­set et­tä pää­o­ma­kus­tan­nuk­set kor­vataan. Ny­kyi­nen kor­vaus­ta­so pu­to­aa ta­sol­ta 45 snt/km ta­sol­le 43 snt/km ki­lo­met­ri­kat­toon 15000 km as­ti, min­kä jäl­keen kor­vaus­ta­so pie­ne­nee (o­le­tus 25 snt/km [3])
VE-3 LVM:n eh­do­tus o­mil­la pa­ra­met­reil­la: Ku­ten LVM:n eh­do­tus, mut­ta mää­ri­tät o­man ki­lo­met­ri­kat­to­si ja sen jäl­kei­sen ki­lo­met­ri­kor­vauk­sen suu­ruu­den (voi ol­la pie­nem­pi tai suu­rem­pi kuin ny­kyi­nen).
VE-4 Pelk­kien käyt­tö­kus­tan­nus­ten kor­vaus: Pää­o­ma­ku­lu­ja ei kor­va­ta. Al­la e­si­tet­tä­vät vi­su­a­li­saa­ti­ot o­soit­ta­vat et­tä tä­mä vaih­to­eh­to voi­daan to­teut­taa säi­lyt­tä­mäl­lä ny­kyi­sen suu­rui­nen ki­lo­met­ri­kor­va­us mut­ta kor­vaa­mal­la e­nin­tään puo­let ko­ko­nais­lii­ken­ne­suo­rit­tees­ta.
VE-5 Jo­kin muu kor­vaus­käy­tän­tö: A­lem­pa­na tie­dus­te­lem­me o­maa eh­do­tus­ta­si kor­vaus­käy­tän­nök­si.


Tutki kulukorvausten vaikutuksia

Täyt­tä­mäl­lä tie­dot al­la o­le­viin kent­tiin ja klik­kaa­mal­la nap­pi­a "Vi­su­a­li­soi tu­lok­set" voit tut­kia mil­lai­set o­vat ny­kyi­sen ja vaih­to­eh­tois­ten ki­lo­met­ri­kor­vaus­käy­tän­tö­jen vai­ku­tuk­set o­maa­si ja yh­teis­kun­nan ra­ha­pus­siin. Ko­kei­le e­ri ar­vo­ja va­paas­ti (tie­dot ei­vät tal­len­nu mi­hin­kään). Vi­su­a­li­soi­mal­la po­li­tiik­ka­vaih­to­eh­to­ja voit hah­mot­taa e­ri vaih­to­eh­to­jen hy­vi­ä ja huo­no­ja puo­li­a. Jos ha­lu­at syöt­tää yk­si­tyis­koh­tai­sem­paa tie­to­a kus­tan­nus­las­ken­taa var­ten voit käyt­tää myös o­heis­ta laskuria.

Valitse ajanjakson pituus (auton pitoaika 1-7 vuotta):

VE-1 – VE-4: Uuden auton hinta tai vanhan jäännösarvo (euroa):

VE-1 – VE-4: Kokonaisliikennesuorite (0 - 40000 km/vuosi):

VE-1 – VE-4: Kilometrikorvattava osuus liikennesuoritteesta (%):

VE-3: Ki­lo­met­ri­kat­to (km):

VE-3: Kilo­met­ri­kor­vaus ki­lo­met­ri­ka­ton y­lit­tä­väl­le lii­ken­ne­suo­rit­teel­le (euroa/km):

+ Näytä koodi

Jaa ratkaisusi muiden kanssa

Kun olet löytänyt suosikkivaihtoehtosi eri kulukorvausvaihtoehdoista (ks. yllä) voit jakaa suosikkimallisi parametreineen muiden käyttäjien kanssa avoimena datana. Eri vaihtoehtoja kuvaa erilainen määrä parametrejä, jotka kerätään otsikon Ehdotuksesi alla. Jos haluat, voit myös tallentaa tietokantaan oman vuosittaisen liikennesuoritteesi ja montako prosenttia siitä on kilometrikorvauksen piiriin kuuluvaa ajoa. Nämä tiedot kerätään otsikon Taustatietosi alla, ja niitä hyödynnetään kerättäessä statistiikkaa siitä, kuinka suosikkipolitiikkavaihtoehdot korreloivat vastaajan liikennesuoritteen kanssa.

Ehdotuksesi

Millaista kilometrikorvauskäytännöä haluaisit käytettävän:

Aseta kilometrikattosuosituksesi (km) jos valitsit yllä vaihtoehdon VE-3:

Aseta kilomet­ri­kor­vaus­suo­si­tuk­se­si ki­lo­met­ri­ka­ton y­lit­tä­väl­le lii­ken­ne­suo­rit­teel­le (euroa/km) jos va­lit­sit yl­lä vaih­to­eh­don VE-3:

Ehdota omaa kulukorvauspolitiikkaasi (lyhyt vapaamuotoinen kuvaus) jos valitsit yllä vaihtoehdon VE-5:

Taustatietosi

Kokonaisliikennesuoriteesi (km/vuosi):

Kilometrikorvattava osuus liikennesuoritteestasi (%):

+ Näytä koodi


Muiden käyttäjien vastauksiin voi tutustua graafisesti vastaamalla kysymyskenttiin ja painamalla yllä nappia Tallenna ja visualisoi tulokset. Voit myös imuroida vastausdatan csv-tiedostoformaatissa klikkaamalla alla linkkiä Näytä tulokset {{#opasnet_base_link:Op_fi2921}}.

Vaikutusanalyysin aihepiirit

Alla olevaan listaan on kerätty näkökohtia, joiden tutkimista pidetään tärkeänä lakiehdotuksen perusteluosaa varten. Osa näkökohdista on tiivistetty julkisesta keskustelusta. Voit lisätä omat ehdotuksesi listaan. Äärellisistä resursseita johtuen ei kaikkea voida tutkia joten karsintaa tullaan suorittamaan käytössä olevien resurssien puitteissa. Osaa listatuista aiheista on jo ollut tutkimuksen kohteena ja tuloksia esitellään alempana

  • Vaikutukset yksityisautoiluun
  • Vaikutukset yrityksiin
  • Kilometrikustannusten pienentämisen vaikutus kokonaisverokertymään
  • Ympäristövaikutukset
  • Väärinkäytön laajuus
  • Vertailunäkökohdat (hyödyt ja haitat eri eturyhmille, kuinka hyväksyttäviä eri ratkaisuehdotukset ovat, kuinka todennäköisesti niitä tullaan noudattamaan, voidaanko niitä valvoa käytännössä jne.)
  • Kerrannaisvaikutusten arviointi tukiviidakossa (tarkoituksena ei ole tehdä laaja-alaista remonttia verolainsäädäntöön, toistaiseksi täytynee tyytyä vain karkeaan arvioon)
  • Muuta...


Vaikutukset yksityisautoiluun

Tulokset Autoliiton kustannuslaskurista

Tutkitaan paljonko pääoma- ja käyttökustannuksia tulee eri hintaluokkien ajoneuvojen käyttämisestä työnantajan ajoihin ja omiin ajoihin eri liikennesuoritteilla. Tutkitaan ensin sitä, kuinka käyttökustannukset on peitettävissä kilometrikorvauksella korkeahko hintaluokan uudessa autossa, jonka tarkemmat, Autoliiton laskurista saadut tyyppitiedot on esitetty alla.



Näillä tiedoilla on laskettu käyttökustannusten ja km-korvausten erotus eri liikennesuoritteille (eli vuodessa ajetulle kilometrimäärälle) ja korvattavien ajojen osuudelle (montako prosenttia kokonaisliikennesuoritteesta on kilometrikorvattavaa ajoa). Tulokset on esitetty alla neljälle eri auton pitoajalle: 2v, 3v, 4v ja 7v.


Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 2 v
Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 3 v


Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 4 v
Käyttökulujen ja km-korvauksen erotus euroina pitoajalta 7 v


Kuvissa x-akseli kertoo ajettujen kilometrien määrän vuodessa (0-40000 km s.e. 0.0 vastaa 0 km ja 1.0 vastaa 40000 km) ja y-akseli kilometrikustannuskorvausten piiriin kuuluvien ajokilometrien osuudeen kaikista ajetuista kilometreistä (0-100% s.e. 0.0 vastaa 0% ja 1.0 vastaa 100%). Tulokset eri pitoajoille ovat kaikki samankaltaisia värijakaumaltaan, joka kertoo käyttökustannusten ja kilometrikorvausten erotuksen euroina koko pitoajalta, tärkeimpänä erotuksena skaala (euroissa), jonka ilmaisee kuvissa oikealla oleva palkki. Punainen väri tarkoittaa sitä että autoilija jää miinukselle ja sininen sitä että hän nettoaa kilometrikorvausten avulla käyttökustannuksia suuremman määrän (ts. negatiivinen tappio = voitto).

Kokonaiskustannukset saadaan laskettua kaavasta: Kokonaiskulut = pääomakulut + käyttökulut - kilometrikorvaus. Koska pääomakulut ovat kiinteitä koko käyttöajalta, nostavat ne ainoastaan nollatasoa yllä olevissa kuvissa vakioarvolla. Pääomakulut pitoajoille 2v 21246 €, 3v 30061 €, 4v 37964 € ja 7v 57467 €. (Huom: Autoliiton laskurin antamat arvot pääomakuluille riippuvat hieman laskenta-ajankohdasta).


Vaikutukset yrityksiin

  • Toistaiseksi määrittämättä


Vaikutukset verokertymään

  • Toistaiseksi määrittämättä


Vaikutukset luontoon

  • Määritys kesken
  • Kokonaiskasvihuonepäästöjen laskennassa hyödynnetään Tilastokeskuksen dataa keskimääräisistä liikennesuoritteista.
  • Huom: Valmistajan ilmoittamat kulutuslukemat poikkeavat huomattavasti ajossa mitatuista. [4]


Vaikutukset lainsäädäntöön

  • Toistaiseksi määrittämättä


Katso myös


Viitteet