Ero sivun ”Kalanjalostuksen öljyjäte bioenergian lähteenä” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎R-koodi: simppeli koodi valmis. Nyt tarvittaisiin kvalitatiivisten tulosten käsittelyä)
Rivi 69: Rivi 69:
include="page:Funktioita_R-toolsiin|name:generic"  
include="page:Funktioita_R-toolsiin|name:generic"  
variables="name:erä|default:2000|description:Monenko tonnin bioöljyerä pitää tuottaa kerralla (ton)|
variables="name:erä|default:2000|description:Monenko tonnin bioöljyerä pitää tuottaa kerralla (ton)|
name:n|default:1000|
name:satoja|default:2|description:Montako kuukautta kalajäteöljy säilyy käyttökelpoisena?
name:satoja|default:2|description:Montako kuukautta kalajäteöljy säilyy käyttökelpoisena?|
name:poiminta|default:1000|description:Montako kg kalaa yksi työntekijä pystyy viljelemään kuukaudessa?|
name:output|description:Minkä vasteen haluat nähdä?|default:'kalatuotanto'|type:selection|options:'kalatuotanto';Kalatuotanto;'päiväpalkka';Päiväpalkka;'saanto';Saanto
">
">


Rivi 86: Rivi 83:
kalajäte        <- op_baseGetData("opasnet_base", "Op_fi2602")[,-c(1,2)] # Kalajätteen käyttömahdollisuudet
kalajäte        <- op_baseGetData("opasnet_base", "Op_fi2602")[,-c(1,2)] # Kalajätteen käyttömahdollisuudet
biodiesel        <- op_baseGetData("opasnet_base", "Op_fi2639")[,-c(1,2)] # Biodieselin saanto kalaöljystä
biodiesel        <- op_baseGetData("opasnet_base", "Op_fi2639")[,-c(1,2)] # Biodieselin saanto kalaöljystä
kokonaistuotanto <- op_baseGetData("opasnet_base", "Op_fi2600")[,-c(1,2)] # Kalanjalostuksen kokonaistuotanto
ilmasto          <- op_baseGetData("opasnet_base", "Op_fi2608")[,-c(1,2)] # Kalanjalostuksen öljyjätteen bioenergiakäytön ilmastovaikutukset
ilmasto          <- op_baseGetData("opasnet_base", "Op_fi2608")[,-c(1,2)] # Kalanjalostuksen öljyjätteen bioenergiakäytön ilmastovaikutukset
#päästö.sosiaali <- op_baseGetData("opasnet_base", "Op_fi2552")[,-c(1,2)] # Jatropan viljelyn sosiaaliset vaikutukset
#päästö.ekosyst  <- op_baseGetData("opasnet_base", "Op_fi2548")[,-c(1,2)] # Jatropan viljelyn ekosysteemivaikutukset
P                <- op_baseGetData("opasnet_base", "Op_fi2595")[,-c(1,2)] # Kalanjalostuksen öljyjäte bioenergian lähteenä
P                <- op_baseGetData("opasnet_base", "Op_fi2595")[,-c(1,2)] # Kalanjalostuksen öljyjäte bioenergian lähteenä
palmoil          <- op_baseGetData("opasnet_base", "Op_en5431")[,-c(1,2)] # Market prices of raw materials
palmoil          <- op_baseGetData("opasnet_base", "Op_en5431")[,-c(1,2)] # Market prices of raw materials
Rivi 98: Rivi 92:


cat("Ajetaan malli. \n")
cat("Ajetaan malli. \n")
### Muutetaan sarakkeiden nimet sopiviksi yhdistämistä varten.
#colnames(kalajäte)[colnames(kalajäte) == "Result"] <- "kalajäte"
#colnames(biodiesel)[colnames(biodiesel) == "Result"]        <- "biodiesel"
#colnames(kokonaistuotanto)[colnames(kokonaistuotanto) == "Result"]    <- "kokonaistuotanto"


kalajäte <- kalajäte[kalajäte$Käyttöprosessi == "Kalajäteöljyn erottelu", c(1, 3, 4)]
kalajäte <- kalajäte[kalajäte$Käyttöprosessi == "Kalajäteöljyn erottelu", c(1, 3, 4)]
#kalajäte$kalajäte <- kalajäte$kalajäte / kalajäte$kalajäte[kalajäte$Raaka == "Kalajäteöljy"]
kalajäte$Result <- kalajäte$Result / kalajäte$Result[kalajäte$Raaka == "Kalajäteöljy"]
kalajäte$Result <- kalajäte$Result / kalajäte$Result[kalajäte$Raaka == "Kalajäteöljy"]
biodiesel <- biodiesel[biodiesel$Havainto == "määrä", 2:4]
biodiesel <- biodiesel[biodiesel$Havainto == "määrä", 2:4]
#biodiesel$biodiesel <- biodiesel$biodiesel / biodiesel$biodiesel[biodiesel$Raaka == "Kalajäteöljy"]
biodiesel$Result <- biodiesel$Result / biodiesel$Result[biodiesel$Raaka == "Kalajäteöljy"]
biodiesel$Result <- biodiesel$Result / biodiesel$Result[biodiesel$Raaka == "Kalajäteöljy"]
kokonaistuotanto <- kokonaistuotanto[kokonaistuotanto$Havainto == "Viljely" & kokonaistuotanto$Vuosi == "2008", 3]
tuotanto.maa <- tuotanto.maa[tuotanto.maa$Country %in% c("Bangladesh", "Cambodia", "Malaysia", "Myanmar", "Philippines", "Singapore", "Thailand", "Viet Nam") & tuotanto.maa$Observation == "Aquaculture", ]
tuotanto.maa <- tuotanto.maa[tuotanto.maa$Country %in% c("Bangladesh", "Cambodia", "Malaysia", "Myanmar", "Philippines", "Singapore", "Thailand", "Viet Nam") & tuotanto.maa$Observation == "Aquaculture", ]
out <- rbind(kalajäte, biodiesel)


out <- rbind(kalajäte, biodiesel)
cat("Lisähinta, joka voi maksaa yhtä kalakiloa kohti bioöljystä (€/kg). \n")
out
palmoil/1000 / out[out$Raaka == "Kalajäte", "Result"]
kokonaistuotanto
ilmasto


out$Result <- erä * out$Result
out$Result <- erä * out$Result
out
print(xtable(out), type = 'html')
#saanto$viljelyala <- saanto$saanto*1000*satoja / (saanto$siemenet * saanto$öljy * saanto$diesel)
#saanto$päiväpalkka <- erä * palmoil / (saanto$viljelyala / satoja / poiminta)
 
## Muutetaan tulos jakaumaksi Monte Carlolla.
#P <- PTable(P, n)
#saanto <- merge(P, saanto)


cat(paste("Teoreettisesti saatavissa olevien lastien määrä sinä aikana, kun kalajäteöljy säilyy käyttökelpoisena (", satoja, " kk). \n", sep = ""))
tuotanto.maa$Result <- floor(tuotanto.maa$Result * jäteosuus * (satoja/12) / erä)
tuotanto.maa$Result <- floor(tuotanto.maa$Result * jäteosuus * (satoja/12) / erä)
 
print(xtable(tuotanto.maa[, 1:3]), type = 'html')
cat("Teoreettisesti saatavissa olevien lastien määrä sinä aikana, kun kalajäteöljy säilyy käyttökelpoisena. \n")
tuotanto.maa
 
cat(paste("Tuotanto ", erä, " tonnia bioöljyä/sato. Yksiköt: saanto tonnia biodieseliä/a, viljelyala ha. \n", sep = ""))
 
print(xtable(saanto[1:10, ]), type = 'html')
 
## Lasketaan tulostaulu.
if(length(divisions)>1) divs <- as.list(saanto[, divisions]) else divs <- saanto[, divisions]
out1 <- as.data.frame(as.table(tapply(saanto[, colnames(saanto) == output], divs, mean)))
out1 <- dropall(out1[!is.na(out1$Freq), ])
colnames(out1) <- c(divisions, output)
print(xtable(out1), type = 'html')
 
## Lasketaan tuloskuvaaja.
out2 <- as.data.frame(as.table(tapply(saanto[, colnames(saanto) == output], list(saanto[, divisions2], saanto$obs), mean)))
out2 <- dropall(out2[!is.na(out2$Freq), ])
cat(paste("Todennäköisyysjakauma vasteelle ", output, ", jaotteluna muuttuja ", divisions2, ". \n", sep = ""))
ggplot(out2, aes(x = Freq, weight = 1, fill = Var1)) +geom_density()
## Jostain syystä vain osa kuvista piirtyy oikein, riippuen mitä parametreja valitaan. En ymmärrä syytä.
</rcode>
</rcode>


Versio 14. joulukuuta 2011 kello 18.53


Pääviesti
Kysymys:

Olisiko kalanjalostuksen öljyjätteestä bioenergian lähteeksi? Erityisesti, millaisia ovat toiminnan vaikutukset ekologiseen kestävyyteen ja toisaalta hyväksyttävyyteen asiakkaiden ja muiden ihmisten silmissä?

Vastaus:

Kalanjalostuksen öljyjäte näyttää teknisesti lupaavalta bioenergialähteeltä, mutta sen saatavuus ja toisaalta muut, mahdollisesti hyödyllisemmät käyttökohteet öljyjätteelle eivät ole vielä selvillä. Arviointi on kuitenkin vasta aivan alussa, ja tuloksen voi odottaa muuttuvan paljonkin työn aikana.


Rajaus

Kysymys

Olisiko kalanjalostuksen öljyjätteestä bioenergian lähteeksi? Erityisesti, millaisia ovat toiminnan vaikutukset ekologiseen kestävyyteen ja toisaalta hyväksyttävyyteen asiakkaiden ja muiden ihmisten silmissä? Arvioinnissa tarkastellaan rinnakkain kalankasvatuksen ja kalastuksen öljyjätteiden käyttöä biopolttoaineiden tuotannossa.

Rajat

  • Tarkastellaan suomalaisten roolia maailmanlaajuisessa bioenergiatuotannossa.
  • Mielenkiinnon kohteena on erityisesti biodieselin ja muiden liikenteen polttonesteiden tuotanto.
  • Toiminnan vaikutuksista tarkastellaan lähinnä ekologisia, eettisiä ja ilmastollisia vaikutuksia, mutta olennaisen tärkeitä terveys-, kustannus- tai muitakaan vaikutuksia ei rajata ulos.

Tarkasteltavat vaihtoehdot (skenaariot)

  • Nykytila ja tätä menoa (vain toteutetaan jo päätettyjä asioita ja toimeenpannaan markkinaehtoisia muutoksia). Kalanjalostuksella ei ole roolia suomalaisessa energiantuotannossa.
  • Aloitetaan kalanjalostuksen öljyjätteen pienimuotoinen käyttö osana energiantuotannon kokonaisuutta.
  • Aloitetaan kalanjalostuksen öljyjätteen suurisuuntainen käyttö bioenergian tuottamisessa.

Oletettu käyttö ja käyttäjät

Arvioinnilla on välitöntä merkitystä Neste Oilille ja muille energiantuotantoyhtiöille järkevien tulevaisuuden suuntien valitsemiseksi. Samoin sillä on merkitystä ympäristönsuojelijoille, joiden näkemys ja tietämys kalanjalostuksen öljyjätteestä bioenergian lähteenä paranee, ja he voivat paremmin arvioida, millainen kalanjalostuksen öljyjätteen käyttö olisi toivottavaa luonnon, monimuotoisuuden ja ilmastonsuojelun kannalta.

Osallistujat

Arvioinnin vastuullisena tutkijana toimii erikoistutkija Jouni Tuomisto (LT) Terveyden ja hyvinvoinnin laitokselta. Neste Oil tukee arviointia taloudellisesti ja osallistumalla työhön. Osallistujina myös avoimen arvioinnin iskuryhmä: Pauli Ordén, Tiia Sorjonen, Jaakko Örmälä, Matleena Tuomisto, Johannes Kröger, Elina Hirvonen. Mukana myös Vilma Sandström pro gradu-tutkielman tekijä Helsingin yliopistosta sekä arviointien toteutuksen ohjaamisessa avustaneet Teemu Rintala ja Mikko Pohjola (lisää tähän oma käyttäjätunnuksesi ja nimesi, jos haluat osallistua). Tämä on avoin arviointi, joten kuka tahansa saa osallistua. Jos et halua osallistua niin paljon, että hankkisit oman käyttäjätunnuksen, voit käyttää sivun alalaidassa olevaa kommentointimahdollisuutta.

Tulos

Kalanjalostuksen öljyjäte näyttää teknisesti lupaavalta bioenergialähteeltä, mutta sen saatavuus ja toisaalta muut, mahdollisesti hyödyllisemmät käyttökohteet öljyjätteelle eivät ole vielä selvillä. Arviointi on kuitenkin vasta aivan alussa, ja tuloksen voi odottaa muuttuvan paljonkin työn aikana.

Perustelut

Kalanjalostuksen öljyjäte bioenergian lähteenä
Ensyklopedia-artikkelit:

Biopolttoaineen valmistusprosessi kalaöljystä

Taustamuuttujat:

Kalanjalostuksen kokonaistuotanto | op_en:Market prices of raw materials | op_en:World fisheries production

Tuotanto- ja saantomuuttujat:

Kalajätteen käyttömahdollisuudet | Biodieselin saanto kalaöljystä

Vaikutukset:

Kalanjalostuksen öljyjätteen bioenergiakäytön sosiaaliset vaikutukset | Kalanjalostuksen öljyjätteen bioenergiakäytön ekosysteemivaikutukset | Kalanjalostuksen öljyjätteen bioenergiakäytön ilmastovaikutukset

Ero sivun ”Kalanjalostuksen öljyjäte bioenergian lähteenä” versioiden välillä(-)
ObsMuuttujaSeliteLokaatioP
1Jatropan siementen saanto viljelystäIkä10.02
2Jatropan siementen saanto viljelystäIkä20.02
3Jatropan siementen saanto viljelystäIkä30.02
4Jatropan siementen saanto viljelystäIkä40.02
5Jatropan siementen saanto viljelystäIkä50.02
6Jatropan siementen saanto viljelystäIkä6 - 500.9
7Jatropan siementen saanto viljelystäKasteluKyllä0.5
8Jatropan siementen saanto viljelystäKasteluEi0.5
9Jatropan siementen saanto viljelystäHavaintoMini0.21
10Jatropan siementen saanto viljelystäHavaintoNormaal0.2
11Jatropan siementen saanto viljelystäHavaintoMaxi0.59
12Öljyn saanto jatropan siemenistäKäytetty puristinKäsikäyttöinen0.7
13Öljyn saanto jatropan siemenistäKäytetty puristinMoottoroitu0.3
14Biodieselin saanto jatropaöljystäKatalyytin määrä0.50.5
15Biodieselin saanto jatropaöljystäKatalyytin määrä10.5


R-koodi

Monenko tonnin bioöljyerä pitää tuottaa kerralla (ton):

Montako kuukautta kalajäteöljy säilyy käyttökelpoisena?:

+ Näytä koodi

Katso myös


Tuoreet muutokset jatropa- ja kalaöljyarviointeihin liittyen


Avainsanat

Kalanjalostus, öljyjäte, bioenergia, ilmastonmuutos, energiantuotanto

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Kalanjalostuksen_öljyjäte_bioenergian_lähteenä&oldid=10395”