Ero sivun ”Asumispalveluiden ja laitoshoidon kustannusten vertailu” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Perustelut: jokin bugi on vielä)
(→‎Perustelut: nyt toimii)
Rivi 147: Rivi 147:
'sosiaali',
'sosiaali',
'tila'),
'tila'),
Result = c(rep(0,12), 1)
Result = c(rep(1,12), 0)
)
)


eiAjallinen <- new("ovariable", name = "eiAjallinen", data = data)
Ajallinen <- new("ovariable", name = "Ajallinen", data = data)
eiAjallinen <- EvalOutput(eiAjallinen)
Ajallinen <- CheckMarginals(EvalOutput(Ajallinen, ...))
eiAjallinen <- CheckMarginals(eiAjallinen)
data <- tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
data <- tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
yksikkökustannus <- new("ovariable", name = "yksikkökustannus", data = data[, colnames(data) != "Description"])
yksikkökustannus <- new("ovariable", name = "yksikkökustannus", data = data[, colnames(data) != "Description"])
yksikkökustannus <- EvalOutput(yksikkökustannus)
yksikkökustannus <- CheckMarginals(EvalOutput(yksikkökustannus, ...))
yksikkökustannus <- CheckMarginals(yksikkökustannus)
 
# tarve <- merge(tarve, eiAjallinen)
ajalliset <- tarve * Ajallinen * lkm * yksikkökustannus
ajattomat <- tarve * eiAjallinen * lkm * yksikkökustannus
 
ajalliset <- tarve * (1 - eiAjallinen) * lkm * yksikkökustannus
out <- ajalliset
print(head(ajattomat@output))
# ajalliset <- tarve * (1 - eiAjallinen) * lkm * yksikkökustannus # Tuo miinuslasku ei onnistu: Error in eva l(expr, envir, enclos) : object 'e12' not found
print(head(ajalliset@output))
out <- ajattomat + ajalliset
# out@output$Result <- ifelse(as.logical(out@output$eiAjallinenResult),  
# out@output$Result <- ifelse(as.logical(out@output$eiAjallinenResult),  
# out@output$Result,
# out@output$Result,
Rivi 169: Rivi 166:
# )
# )
# out@output$Yksikkö <- "€ /kk"
# out@output$Yksikkö <- "€ /kk"
out@output <- out@output[, !colnames(out@output) %in% c("Observation", "tarveSource", "AjallinenSource", "lkmSource", "yksikkökustannusSource")]
return(out)
return(out)
}
}


sosiaalipalveluhinta <- new("ovariable",  
hoitohinta <- new("ovariable",  
name = "sosiaalipalveluhinta",
name = "hoitohinta",
dependencies = riippuvuudet,
dependencies = riippuvuudet,
formula = formula
formula = formula
)
)


objects.put(sosiaalipalveluhinta)
objects.put(hoitohinta)


cat("Metodi alustettu. Ota malliajon sivun avain talteen myöhempää käyttöä varten.\n")
cat("Metodi alustettu. Ota malliajon sivun avain talteen myöhempää käyttöä varten.\n")
data <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
tarve <- new("ovariable",
name = "tarve",
data = data[data$Observation != "lkm", ]
)
lkm <- new("ovariable",
name = "lkm",
data = data[data$Observation == "lkm", colnames(data) != "Observation"]
)
sosiaalipalveluhinta <- EvalOutput(sosiaalipalveluhinta, N = 2)
sosiaalipalveluhinta


</rcode>
</rcode>

Versio 25. heinäkuuta 2012 kello 19.31

Kyselylomake potilaan henkilökohtaisen tilanteen arvioimiseksi.

Tarkasteltavien henkilöiden määrä (jos yli 1, anna keskimääräiset arvot):

Kotikäyntien määrä, jos potilas asumispalvelujen piirissä (käyntejä /potilas /viikko):

Henkilökohtainen hoiva

Pesu ja kylvetys (min/vrk):

Vessassa käyttäminen (min/vrk):

Ruokailussa auttaminen (min/vrk):

Asunnon siivous (min/vrk):

Vaatehuolto (min/vrk):

Terveydenhuolto

Lääkehuolto (min/vrk):

Lääkäripalvelut (min/vrk):

Turvallisuus

Yövalvonta (min/vrk):

Turvaranneke ja -palvelut (min/vrk):

Mielekäs tekeminen

Ulkoilutus (min/vrk):

Harrastustoiminta (min/vrk):

Avustus sosiaalisten yhteyksien ylläpitämisessä (min/vrk):

Kiinteistökustannukset

Asuintilan tarve (m2):

Kysymys




Miten arvioidaan mielenterveyskuntoutujien, vanhusten ja kehitysvammaisten asumisen kustannuksia, kun siirrytään laitoshoidosta asumispalveluihin?

Vastaus

Ero sivun ”Asumispalveluiden ja laitoshoidon kustannusten vertailu” versioiden välillä(useita)
ObsHoitomuotoToimenpideUnitResultDescription
1AsuinpalvelutPesu ja kylvetys€ /h15-30
2AsuinpalvelutVessassa käyttäminen€ /h15-30
3AsuinpalvelutRuokailussa auttaminen€ /h15-30
4AsuinpalvelutAsunnon siivous€ /h15-30
5AsuinpalvelutVaatehuolto€ /h15-30
6AsuinpalvelutLääkehuolto€ /h15-30
7AsuinpalvelutLääkäripalvelut€ /h30
8AsuinpalvelutYövalvonta€ /h15-30
9AsuinpalvelutTurvaranneke ja -palvelut€ /h15-30
10AsuinpalvelutUlkoilutus€ /h15-30
11AsuinpalvelutHarrastustoiminta€ /h15-30
12AsuinpalvelutAvustus sosiaalisten yhteyksien ylläpitämisessä€ /h15-30
13AsuinpalvelutAsuintilan tarve€ /m2 /kk15
14LaitospalvelutPesu ja kylvetys€ /h15
15LaitospalvelutVessassa käyttäminen€ /h15
16LaitospalvelutRuokailussa auttaminen€ /h15
17LaitospalvelutAsunnon siivous€ /h15
18LaitospalvelutVaatehuolto€ /h15-30
19LaitospalvelutLääkehuolto€ /h15-30
20LaitospalvelutLääkäripalvelut€ /h30
21LaitospalvelutYövalvonta€ /h15
22LaitospalvelutTurvaranneke ja -palvelut€ /h15
23LaitospalvelutUlkoilutus€ /h15-30
24LaitospalvelutHarrastustoiminta€ /h15-30
25LaitospalvelutAvustus sosiaalisten yhteyksien ylläpitämisessä€ /h15-30
26LaitospalvelutAsuintilan tarve€ /m2 /kk30

Perustelut

Laskenta perustuu THL:n arvioimiin yksikkökustannuksiin. Toistaiseksi luvut ovat vain keksittyjä toiminnallisuuden havainnollistamiseksi. Toiminnallisuus on kehitetty projektiin, jota koordinoi Aija Kettunen.

+ Näytä koodi

Katso myös

Avainsanat

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Asumispalveluiden_ja_laitoshoidon_kustannusten_vertailu&oldid=14451”