Asumispalveluiden ja laitoshoidon kustannusten vertailu

Kyselylomake potilaan henkilökohtaisen tilanteen arvioimiseksi.

Tarkasteltavien henkilöiden määrä (jos yli 1, anna keskimääräiset arvot): 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

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2932
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2932}} Huom! Käytät vanhoja parametreja (todennäköisesti stub). Käytä mieluummin parametria edistyminen = Raakile.

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

Vastaus

You have error(s) in your data:

Number of indices and result cells does not match

Asumispalveluiden ja laitoshoidon kustannusten vertailu(useita)

Obs	Hoitomuoto	Toimenpide	Yksikkö	Arvo	Kuvaus
1	Päästökerroin	kg/ton	Kuiva	TSP	Esi/karkea murskaus	0.3
2	Päästökerroin	kg/ton	Kuiva	TSP	Välimurskaus	0.6
3	Päästökerroin	kg/ton	Kuiva	TSP	Hienomurskaus	1.4
4	Päästökerroin	kg/ton	Kuiva	TSP	Materiaalin siirto ja kuljetus	0.06
5	Päästökerroin	kg/ton	Kostea	TSP	Esi/karkea murskaus	0.01
6	Päästökerroin	kg/ton	Kostea	TSP	Välimurskaus	0.03
7	Päästökerroin	kg/ton	Kostea	TSP	Hienomurskaus	0.03
8	Päästökerroin	kg/ton	Kostea	TSP	Materiaalin siirto ja kuljetus	0.005
9	Päästökerroin	kg/ton	*	TSP	Märkäseulonta	0
10	Päästökerroin	kg/ton	*	TSP	Kuivaseulonta ilman avulla	14.4
11	Päästökerroin	kg/ton	*	TSP	Kuivaseulonta ilman ilmapuhallusta	1.2
12	Päästökerroin	kg/ton	*	TSP	Kuivaus	9.8
13	Päästökerroin	kg/ton	Kuiva	PM10	Esi/karkea murskaus	0.02
14	Päästökerroin	kg/ton	Kuiva	PM10	Välimurskaus	0 - 0.6
15	Päästökerroin	kg/ton	Kuiva	PM10	Hienomurskaus	0.08
16	Päästökerroin	kg/ton	Kuiva	PM10	Materiaalin siirto ja kuljetus	0.03
17	Päästökerroin	kg/ton	Kostea	PM10	Esi/karkea murskaus	0.004
18	Päästökerroin	kg/ton	Kostea	PM10	Välimurskaus	0.012
19	Päästökerroin	kg/ton	Kostea	PM10	Hienomurskaus	0.01
20	Päästökerroin	kg/ton	Kostea	PM10	Materiaalin siirto ja kuljetus	0.002
21	Päästökerroin	kg/ton	*	PM10	Märkäseulonta	0
22	Päästökerroin	kg/ton	*	PM10	Kuivaseulonta ilman avulla	13
23	Päästökerroin	kg/ton	*	PM10	Kuivaseulonta ilman ilmapuhallusta	0.16
24	Päästökerroin	kg/ton	*	PM10	Kuivaus	5.9
25	Läpipääsykerroin	-	*	*	Tuulensuojamuuri	0.7
26	Läpipääsykerroin	-	*	*	Materiaalin kastelu	0.5
27	Läpipääsykerroin	-	*	*	Kotelointi, sykloni	0.35
28	Läpipääsykerroin	-	*	*	Kotelointi, harjaus	0.25
29	Läpipääsykerroin	-	*	*	Kotelointi, kangassuodattimet	0.17
30	Läpipääsykerroin	-	*	*	suljettu tai maanalainen	0
31	Läpipääsykerroin	-	*	*	Sähköstaattinen suodatus	0.13 - 0.08

Kaava

Varsinainen funktio

+ Näytä koodi- Piilota koodi ################# pölypäästö: funktio pölypäästön laskemiseen ## KHM= k * M * A *C1*C2...*Cn ## KHM = kokonaishiukkasmäärä joka lopulta muuttuu päästöksi (g/vrk) ## k1-3 = prosessikohtainen hiukkaspäästökerroin eri kosteuspitoisuudessa (g/ton) ## M = syötteen määrä/tunti (ton/h) ## A = työtunnit vuorokaudessa (h/d) ## C1-Cn = pölypäästöjen vähentämisen tehokkuuskertoimet kullekin käytetylle menetelmälle pölypäästö <- function(page, M, A, prosessi, kosteus, vaimennus){ data <- op_baseGetData("opasnet_base", page) # Haetaan päästökerrointiedot data <- tidy(data) # Siistitään data out <- data[data$Suure == "Päästökerroin", c("Kosteus", "Hiukkaskoko", "Prosessi", "Result")] # Valitaan päästökerroinrivit temp <- data.frame(Kosteus = c("Kuiva", "Kostea"), Kosteus2 = "*") temp <- merge(out, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla out <- rbind(out[out$Kosteus != "*", ], temp) out <- merge(out, data.frame(Kosteus = kosteus, Prosessi = prosessi)) # Rajataan käyttäjän määrittämiin prosesseihin. if(class(vaimennus)!="list") {vaimennus <- list(vaimennus)} vaim <- 1 for(i in 1:length(vaimennus)) { vaim[i] <- exp(sum(log(as.numeric(data[data$Suure == "Läpipääsykerroin" & data$Prosessi %in% vaimennus[[i]], "Result"])))) } out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava out <- dropall(out) # Tiputetaan turhat levelit return(out) }

Perustelut

• Täsmälliset perustelut löytyvät ERAC-wikistä: Metallimalmin murskausprosessin päästökertoimet (suojattu sivu)

Avainsanat

Kaivosteollisuus, mineraali

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>