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

Nykyinen versio 22. elokuuta 2013 kello 11.16

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

Perustelut

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

Data

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	Hoitomuoto	Ryhmä	lkm	vessa	asunto	vaate	lääke	turva	ulkoilutus	sosiaali
1	Asuinpalvelut	A	10	3-5
2	Asuinpalvelut	B	12		2		8
3	Asuinpalvelut	C	3			5
4	Asuinpalvelut	D	14	15
5	Asuinpalvelut	E	6					6
6	Asuinpalvelut	F	15							10
7	Asuinpalvelut	G	19			25			5
8	Laitospalvelut	A	10	3-5
9	Laitospalvelut	B	12		2		8
10	Laitospalvelut	C	3			5
11	Laitospalvelut	D	14	15
12	Laitospalvelut	E	6					6
13	Laitospalvelut	F	15							10
14	Laitospalvelut	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 1: / Rivi 1: @@
 {{muuttuja}}
+[[Luokka:Sisältää R-koodia]]
 == Kysymys ==
@@ Rivi 6: / Rivi 7: @@
 ==Vastaus==
+<rcode showcode="-1" label="Laske hoitotarve" graphics="1"
+variables="
+name:jaottelu|description:Minkä mukaan hoitotarve jaotellaan?|type:checkbox|options:'Hoitomuoto';Hoitomuoto;'Observation';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))
+hoitotarve <- tarve * lkm # / 60 JAKOLASKU AIHEUTTAA VÄÄRINLASKENNAN (MUUTTAA FAKTORIKSI?)
+hoitotarve@output <- hoitotarve@output[!is.na(hoitotarve@output$Result), ]
+#print(xtable(hoitohinta@output), type = 'html')
+cat("Hoitotarve jaoteltuna (min /d).\n")
+head(hoitotarve@output)
+temp <- as.data.frame(as.table(tapply(hoitotarve@output$Result, hoitotarve@output[c(jaottelu, "Iter")], sum)))
+temp2 <- as.data.frame(as.table(tapply(temp$Freq, temp[jaottelu], mean)))
+print(xtable(temp2), type = 'html', html.table.attributes="border=1 class='sortable'")
+ggplot(temp, aes(x = Freq, fill = jaottelu)) + geom_density(alpha = 0.2)
+</rcode>
+==Perustelut==
+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 48: @@
 library(xtable)
-tarve <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
+Fetch2(data.frame(Name = "hoitohinta", Key = "recumk2UWvZH7qk5"))
-tarve
-tarve <- tarve[tarve$Observation != "lkm", ]
-tarve <- new("ovariable",
-	name = "tarve",
-	data = tarve
-)
-tarve <- EvalOutput(tarve, N = 2)
-tarve
+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, N = 2)
+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>
+===Data===
 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.
-<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">
+<t2b index="Hoitomuoto,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||||||||||||
+Asuinpalvelut|A|10||3-5||||||||||||
-B|12||||2||8||||||||
+Asuinpalvelut|B|12||||2||8||||||||
-C|3|||||5|||||||||
+Asuinpalvelut|C|3|||||5|||||||||
-D|14||15||||||||||||
+Asuinpalvelut|D|14||15||||||||||||
-E|6|||||||||6|||||
+Asuinpalvelut|E|6|||||||||6|||||
-F|15||||||||||||10||
+Asuinpalvelut|F|15||||||||||||10||
-G|19|||||25|||||5||||
+Asuinpalvelut|G|19|||||25|||||5||||
+Laitospalvelut|A|10||3-5||||||||||||
+Laitospalvelut|B|12||||2||8||||||||
+Laitospalvelut|C|3|||||5|||||||||
+Laitospalvelut|D|14||15||||||||||||
+Laitospalvelut|E|6|||||||||6|||||
+Laitospalvelut|F|15||||||||||||10||
+Laitospalvelut|G|19|||||25|||||5||||
 </t2b>