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

Versio 25. heinäkuuta 2012 kello 20.09

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 7: / Rivi 7: @@
 ==Vastaus==
-<rcode showcode="-1" label="Laske hoitotarve"
+<rcode showcode="-1" label="Laske hoitotarve" graphics="1"
 variables="
-name:jaottelu|description:Minkä mukaan hoitotarve jaotellaan?|type:checkbox|options:'Hoitomuoto';Hoitomuoto;'Toimenpide';Toimenpide;'Ryhmä';Ryhmä|default:'Hoitomuoto'
+name:jaottelu|description:Minkä mukaan hoitotarve jaotellaan?|type:checkbox|options:'Hoitomuoto';Hoitomuoto;'Observation';Toimenpide;'Ryhmä';Ryhmä|default:'Hoitomuoto'
 ">
 library(OpasnetUtils)
@@ Rivi 23: / Rivi 23: @@
 lkm <- CheckMarginals(EvalOutput(lkm))
-hoitohinta <- tarve * 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 hoitomuodoittain.\n")
+cat("Hoitotarve jaoteltuna (min /d).\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")
+head(hoitotarve@output)
-temp <- as.data.frame(as.table(tapply(hoitohinta@output$hoitohintaResult, hoitohinta@output[c("Toimenpide","Iter")], sum)))
+temp <- as.data.frame(as.table(tapply(hoitotarve@output$Result, hoitotarve@output[c(jaottelu, "Iter")], sum)))
-temp <- as.data.frame(as.table(tapply(temp$Freq, temp[c("Toimenpide")], mean)))
+temp2 <- as.data.frame(as.table(tapply(temp$Freq, temp[jaottelu], mean)))
-print(xtable(temp), type = 'html', html.table.attributes="border=1 class='sortable'")
+print(xtable(temp2), type = 'html', html.table.attributes="border=1 class='sortable'")
-cat("Hoitotarve hoitomuodoittain ja ryhmittäin.\n")
+ggplot(temp, aes(x = Freq, fill = jaottelu)) + geom_density(alpha = 0.2)
-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>
+==Perustelut==
 Voit myös laskea hoitotarpeen aiheuttamat kustannukset, vaikka se ei olekaan vastaus tämän sivun varsinaiseen kysymykseen.
@@ Rivi 79: / Rivi 76: @@
 </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-5||||||||||||
+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>