Ero sivun ”Asumispalveluiden ja laitoshoidon tarve kunnassa” versioiden välillä

Versio 25. heinäkuuta 2012 kello 19.33

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi2935
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2935}}

Kysymys

Mitä asumisen ja laitoshoidon palveluja mielenterveyskuntoutujat, vanhukset ja kehitysvammaiset tarvitsevat kunnassa X? Tällä sivulla esitellään kuvitteellinen esimerkkikunta, jota voi käyttää mallina todellisen kunnan kuvauksesta.

Vastaus

Voit myös laskea hoitotarpeen aiheuttamat kustannukset, vaikka se ei olekaan vastaus tämän sivun varsinaiseen kysymykseen.

Lkm tarkoittaa rivillä kuvattavan ryhmän kokoa, muut sarakkeet ovat palvelutarpeita ryhmässä keskimäärin. Yksikkö on minuuttia vuorokaudessa paitsi asuintilan tarpeen osalta neliömetri. Tyhjä tieto tulkitaan nollaksi.

Ero sivun ”Asumispalveluiden ja laitoshoidon tarve kunnassa” versioiden välillä(min/vrk tai m^2)
Obs	Ryhmä	lkm	vessa	asunto	vaate	lääke	turva	ulkoilutus	sosiaali
1	A	10	3-5
2	B	12		2		8
3	C	3			5
4	D	14	15
5	E	6					6
6	F	15							10
7	G	19			25			5

Palvelujen tarkemmat kuvaukset:

Pesu ja kylvetys (min/vrk)
Vessassa käyttäminen (min/vrk)
Ruokailussa auttaminen (min/vrk)
Asunnon siivous (min/vrk)
Vaatehuolto (min/vrk)
Lääkehuolto (min/vrk)
Lääkäripalvelut (min/vrk)
Yövalvonta (min/vrk)
Turvaranneke ja -palvelut (min/vrk)
Ulkoilutus (min/vrk)
Harrastustoiminta (min/vrk)
Avustus sosiaalisten yhteyksien ylläpitämisessä (min/vrk)
Asuintilan tarve (m2)

Katso myös

Asumispalveluiden ja laitoshoidon kustannusten vertailu

Viitteet

Aiheeseen liittyviä tiedostoja

@@ Rivi 6: / Rivi 6: @@
 ==Vastaus==
+<rcode showcode="-1" label="Laske hoitotarve"
+variables="
+name:jaottelu|description:Minkä mukaan hoitotarve jaotellaan?|type:checkbox|options:'Hoitomuoto';Hoitomuoto;'Toimenpide';Toimenpide;'Ryhmä';Ryhmä|default:'Hoitomuoto'
+">
+library(OpasnetUtils)
+library(xtable)
+library(ggplot2)
+data <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
+tarve <- new("ovariable", name = "tarve", data = data[data$Observation != "lkm", ])
+tarve <- CheckMarginals(EvalOutput(tarve))
+lkm <- new("ovariable", name = "lkm", data = data[data$Observation == "lkm", colnames(data) != "Observation"])
+lkm <- CheckMarginals(EvalOutput(lkm))
+hoitohinta <- tarve * lkm
+#print(xtable(hoitohinta@output), type = 'html')
+cat("Hoitotarve hoitomuodoittain.\n")
+temp <- as.data.frame(as.table(tapply(hoitohinta@output$hoitohintaResult, hoitohinta@output[c("Hoitomuoto","Iter")], sum)))
+temp <- as.data.frame(as.table(tapply(temp$Freq, temp[c("Hoitomuoto")], mean)))
+print(xtable(temp), type = 'html', html.table.attributes="border=1 class='sortable'")
+cat("Hoitotarve toimenpiteittäin.\n")
+temp <- as.data.frame(as.table(tapply(hoitohinta@output$hoitohintaResult, hoitohinta@output[c("Toimenpide","Iter")], sum)))
+temp <- as.data.frame(as.table(tapply(temp$Freq, temp[c("Toimenpide")], mean)))
+print(xtable(temp), type = 'html', html.table.attributes="border=1 class='sortable'")
+cat("Hoitotarve hoitomuodoittain ja ryhmittäin.\n")
+temp <- as.data.frame(as.table(tapply(hoitohinta@output$hoitohintaResult, hoitohinta@output[c("Ryhmä","Hoitomuoto","Iter")], sum)))
+temp <- as.data.frame(as.table(tapply(temp$Freq, temp[c("Ryhmä","Hoitomuoto")], mean)))
+print(xtable(temp), type = 'html', html.table.attributes="border=1 class='sortable'")
+</rcode>
+Voit myös laskea hoitotarpeen aiheuttamat kustannukset, vaikka se ei olekaan vastaus tämän sivun varsinaiseen kysymykseen.
 <rcode showcode="-1" label="Laske kustannukset">
@@ Rivi 11: / Rivi 50: @@
 library(xtable)
-tarve <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
+Fetch2(data.frame(Name = "hoitohinta", Key = "recumk2UWvZH7qk5"))
-tarve <- tarve[tarve$Observation != "lkm", ]
-tarve <- new("ovariable",
-	name = "tarve",
-	data = tarve
-)
-tarve <- EvalOutput(tarve, N = 2)
-head(tarve@output)
+data <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
-eiAjalliset <- "Asuintilan tarve"
+tarve <- new("ovariable", name = "tarve", data = data[data$Observation != "lkm", ])
-Fetch2(data.frame(Name = "sosiaalipalveluhinta", Key = "MRSq3sBisxZNy0Ie"))
+lkm <- new("ovariable", name = "lkm", data = data[data$Observation == "lkm", colnames(data) != "Observation"])
-sosiaalipalveluhinta <- EvalOutput(sosiaalipalveluhinta)
+hoitohinta <- EvalOutput(hoitohinta)
-sosiaalipalveluhinta
+#print(xtable(hoitohinta@output), type = 'html')
 cat("Hoitomuodon kokonaishinta.\n")
-#print(xtable(as.data.frame(as.table(tapply(hoitohinta@sample$Result, hoitohinta@sample["Hoitomuoto"], sum)))),
+temp <- as.data.frame(as.table(tapply(hoitohinta@output$hoitohintaResult, hoitohinta@output[c("Hoitomuoto","Iter")], sum)))
-     type = 'html', html.table.attributes="border=1 class='sortable'")
+temp <- as.data.frame(as.table(tapply(temp$Freq, temp[c("Hoitomuoto")], mean)))
+print(xtable(temp), type = 'html', html.table.attributes="border=1 class='sortable'")
-cat("Toimenpiteen keskimääräinen hinta.\n")
+cat("Toimenpiteen kokonaishinta.\n")
-#print(xtable(as.data.frame(as.table(tapply(hoitohinta@sample$Result, hoitohinta@sample["Toimenpide"], sum)))),
+temp <- as.data.frame(as.table(tapply(hoitohinta@output$hoitohintaResult, hoitohinta@output[c("Toimenpide","Iter")], sum)))
-     type = 'html', html.table.attributes="border=1 class='sortable'")
+temp <- as.data.frame(as.table(tapply(temp$Freq, temp[c("Toimenpide")], mean)))
+print(xtable(temp), type = 'html', html.table.attributes="border=1 class='sortable'")
 cat("Hoitomuodon kokonaishinta ryhmittäin.\n")
-#print(xtable(as.data.frame(as.table(tapply(hoitohinta@sample$Result, hoitohinta@sample[c("Ryhmä","Hoitomuoto")], sum)))),
+temp <- as.data.frame(as.table(tapply(hoitohinta@output$hoitohintaResult, hoitohinta@output[c("Ryhmä","Hoitomuoto","Iter")], sum)))
-     type = 'html', html.table.attributes="border=1 class='sortable'")
+temp <- as.data.frame(as.table(tapply(temp$Freq, temp[c("Ryhmä","Hoitomuoto")], mean)))
+print(xtable(temp), type = 'html', html.table.attributes="border=1 class='sortable'")
 </rcode>
@@ Rivi 48: / Rivi 83: @@
 <t2b index="Ryhmä,Observation" locations="lkm,pesu,vessa,ruoka,asunto,vaate,lääke,lääkäri,yö,turva,ulkoilutus,harrastus,sosiaali,tila,kuvaus" unit="min/vrk tai m^2">
-A|10||3||||||||||||
+A|10||3-5||||||||||||
 B|12||||2||8||||||||
 C|3|||||5|||||||||