@@ -189,7 +189,7 @@
-4.4 Meteorológia: nappali átlaghőmérséklet
+4.4 Meteorológia: nappali átlaghőmérséklet
@@ -200,11 +200,11 @@
-5 Kérdések
+5 Kérdések
-- Milyen hatásai lehetnek a termésre/GPP-re, illetve LAIRA a jövőbeli lehetséges klimatikus változásoknak?
+- Milyen hatásai lehetnek a termésre/GPP-re, illetve LAI-ra a jövőbeli lehetséges klimatikus változásoknak?
- Mennyi műtrágyát használjunk?
-- Adott helyen milyen ökofiziológiai paraméterrel bíró (kukorica/búza/\(\dots\))fajtákat érdemes termesztenünk?
+- Adott helyen milyen ökofiziológiai paraméterrel bíró (kukorica/búza/\(\dots\)) fajtákat érdemes termesztenünk?
@@ -212,44 +212,44 @@
-6 RBBGCMuso használata
+6 RBBGCMuso használata
-6.1 devtools telepítése
+6.1 devtools telepítése
-
install.packages("devtools")
+install.packages("devtools")
-6.2 RBBGCMuso telepítése
+6.2 RBBGCMuso telepítése
-
devtools::install_github("hollorol/RBBGCMuso/RGBBCMuso")
+devtools::install_github("hollorol/RBBGCMuso/RGBBCMuso")
-6.3 csomagok betöltése, munkakönyvtár beállítása:
+6.3 csomagok betöltése, munkakönyvtár beállítása:
-
library(RBBGCMuso)
-library(ggplot2)
+library(RBBGCMuso)
+library(ggplot2)
-6.4 futtatás előkészítése: setupMuso()
+6.4 futtatás előkészítése: setupMuso()
-
beallitasok <- setupMuso()
+beallitasok <- setupMuso()
@@ -259,10 +259,10 @@
-6.5 modellfuttatás: calibMuso()
+6.5 modellfuttatás: calibMuso()
-
kimenet <- calibMuso(settings = beallitasok,skipSpinup=TRUE)
+kimenet <- calibMuso(settings = beallitasok,skipSpinup=TRUE)
round(kimenet[1:6,1:2],digits=2)
@@ -316,10 +316,10 @@ round(kimenet[1:6,1:2],digits=2)
-6.6 kimeneti adatok ábrázolása (első verzió)
+6.6 kimeneti adatok ábrázolása (első verzió)
-
plot(kimenet[,"daily_gpp"])
+plot(kimenet[,"daily_gpp"])
@@ -331,14 +331,14 @@ round(kimenet[1:6,1:2],digits=2)
-6.7 Ügyelvén az esztétikára:
+6.7 Ügyelvén az esztétikára:
-
par(mar=c(2.2,5,1.5,0.5))
-plot(y=kimenet[,"daily_gpp"],
- x=as.Date(rownames(kimenet),"%d.%m.%Y"), xlab="",
- ylab = expression(paste("daily GPP [",kgC,m^-2,"]")),
- type="l", col="blue", lwd="1.8")
+par(mar=c(2.2,5,1.5,0.5))
+plot(y=kimenet[,"daily_gpp"],
+ x=as.Date(rownames(kimenet),"%d.%m.%Y"), xlab="",
+ ylab = expression(paste("daily GPP [",kgC,m^-2,"]")),
+ type="l", col="blue", lwd="1.8")
@@ -350,10 +350,10 @@ plot(y=kimenet[,"daily_gpp"],
-6.8 Mindez sokkal egyszerűbben
+6.8 Mindez sokkal egyszerűbben
-
plotMuso(variable="daily_gpp")
+plotMuso(variable="daily_gpp")
@@ -365,11 +365,11 @@ plot(y=kimenet[,"daily_gpp"],
-6.9 Egy apró javítás
+6.9 Egy apró javítás
-
plotMuso(variable="daily_gpp")+
- labs(y=expression(paste("daily GPP [",kgC,m^-2,"]")))
+plotMuso(variable="daily_gpp")+
+ labs(y=expression(paste("daily GPP [",kgC,m^-2,"]")))
@@ -381,7 +381,7 @@ plot(y=kimenet[,"daily_gpp"],
-6.10 musoMappingFind()
+6.10 musoMappingFind()
- Honnan tudjuk, hogy mi is egy általános változónak a neve?
@@ -393,10 +393,10 @@ plot(y=kimenet[,"daily_gpp"],
-6.11 musoMappingFind()
+6.11 musoMappingFind()
-
musoMappingFind("yield")
+musoMappingFind("yield")
@@ -418,11 +418,11 @@ plot(y=kimenet[,"daily_gpp"],
-6.12 Nézzük meg, hogy hogyan változott a termés 2013 és 2017 között!
+6.12 Nézzük meg, hogy hogyan változott a termés 2013 és 2017 között!
-
plotMuso(variable="cum_yieldC_HRV")+
- labs(y="Termés [t/ha]")
+plotMuso(variable="cum_yieldC_HRV")+
+ labs(y="Termés [t/ha]")
@@ -434,11 +434,11 @@ plot(y=kimenet[,"daily_gpp"],
-6.13 Ábrázoljuk inkább az éves maximumokat!
+6.13 Ábrázoljuk inkább az éves maximumokat!
-
plotMuso(variable="cum_yieldC_HRV", timeFrame="year", groupFun=max)+
- labs(y="Termés [t/ha]")
+plotMuso(variable="cum_yieldC_HRV", timeFrame="year", groupFun=max)+
+ labs(y="Termés [t/ha]")
@@ -450,22 +450,22 @@ plot(y=kimenet[,"daily_gpp"],
-6.14 mentsük el az alapábránkat!
+6.14 mentsük el az alapábránkat!
-
termesAlap <- plotMuso(variable="cum_yieldC_HRV", timeFrame="year", groupFun=max)+
- labs(y="Termés [t/ha]")
+termesAlap <- plotMuso(variable="cum_yieldC_HRV", timeFrame="year", groupFun=max)+
+ labs(y="Termés [t/ha]")
-6.15 Nézzük meg, majd mentsük le a LAI-t is!
+6.15 Nézzük meg, majd mentsük le a LAI-t is!
-
LAIAlap <- plotMuso(variable="proj_lai")+
+LAIAlap <- plotMuso(variable="proj_lai")+
labs(y=expression(
- paste("Levélfelületi index ",m^2m^-2)))
+ paste("Levélfelületi index ",m^2m^-2)))
LAIAlap
@@ -478,11 +478,11 @@ LAIAlap
-6.16 GPP alap
+6.16 GPP alap
-
GPPAlap <- plotMuso(variable="daily_gpp")+
- labs(y=expression(paste("daily GPP [",kgC,m^-2,"]")))
+GPPAlap <- plotMuso(variable="daily_gpp")+
+ labs(y=expression(paste("daily GPP [",kgC,m^-2,"]")))
GPPAlap
@@ -495,29 +495,29 @@ GPPAlap
-6.17 Gyep Biomassza
+6.17 Gyep Biomassza
-
termesAlap_gyep <- plotMuso(variable = "leafc",
- timeFrame = "year", groupFun=sum, skipSpinup=FALSE)
+termesAlap_gyep <- plotMuso(variable = "leafc",
+ timeFrame = "year", groupFun=sum, skipSpinup=FALSE)
-6.18 Gyep LAI
+6.18 Gyep LAI
-
LAIAlap_gyep <- plotMuso(variable = "proj_lai", skipSpinup=FALSE)
+LAIAlap_gyep <- plotMuso(variable = "proj_lai", skipSpinup=FALSE)
-6.19 Gyep GPP
+6.19 Gyep GPP
-
GPPAlap_gyep<-plotMuso(variable = "daily_gpp")
+GPPAlap_gyep<-plotMuso(variable = "daily_gpp")
@@ -525,12 +525,12 @@ GPPAlap
-7 Kísérletek
+7 Kísérletek
-7.1 Vetési idő
+7.1 Vetési idő
-7.2 Vetési idő- Termés
+7.2 Vetési idő- Termés
-
TermesValtozas_vetesido <- termesAlap+
-plotMuso(variable = "cum_yieldC_HRV",
-timeFrame = "year", groupFun=max,
-colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+TermesValtozas_vetesido <- termesAlap+
+plotMuso(variable = "cum_yieldC_HRV",
+timeFrame = "year", groupFun=max,
+colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
TermesValtozas_vetesido
@@ -557,12 +557,12 @@ TermesValtozas_vetesido
-7.3 Vetési idő- LAI
+7.3 Vetési idő- LAI
-
LAIValtozas_vetesido <- LAIAlap+
-plotMuso(variable = "proj_lai",
-colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+LAIValtozas_vetesido <- LAIAlap+
+plotMuso(variable = "proj_lai",
+colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
LAIValtozas_vetesido
@@ -575,12 +575,12 @@ LAIValtozas_vetesido
-7.4 Vetési idő- GPP
+7.4 Vetési idő- GPP
-
GPPValtozas_vetesido <- GPPAlap +
-plotMuso(variable = "daily_gpp",
-colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+GPPValtozas_vetesido <- GPPAlap +
+plotMuso(variable = "daily_gpp",
+colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
GPPValtozas_vetesido
@@ -593,7 +593,7 @@ GPPValtozas_vetesido
-7.5 Műtrágyázás
+7.5 Műtrágyázás
@@ -602,13 +602,13 @@ GPPValtozas_vetesido
-7.6 Műtrágyázás- Termés
+7.6 Műtrágyázás- Termés
-
TermesValtozas_fertilP <- termesAlap+
-plotMuso(variable = "cum_yieldC_HRV",
-timeFrame = "year", groupFun=max,
-colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+TermesValtozas_fertilP <- termesAlap+
+plotMuso(variable = "cum_yieldC_HRV",
+timeFrame = "year", groupFun=max,
+colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
TermesValtozas_fertilP
@@ -621,12 +621,12 @@ TermesValtozas_fertilP
-7.7 Műtrágyázás - LAI
+7.7 Műtrágyázás - LAI
-
LAIValtozas_fertilP <- LAIAlap+
-plotMuso(variable = "proj_lai",
-colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+LAIValtozas_fertilP <- LAIAlap+
+plotMuso(variable = "proj_lai",
+colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
LAIValtozas_fertilP
@@ -639,12 +639,12 @@ LAIValtozas_fertilP
-7.8 Műtrágyázás - GPP
+7.8 Műtrágyázás - GPP
-
GPPValtozas_fertilP <- GPPAlap +
-plotMuso(variable = "daily_gpp",
-colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+GPPValtozas_fertilP <- GPPAlap +
+plotMuso(variable = "daily_gpp",
+colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
GPPValtozas_fertilP
@@ -657,13 +657,13 @@ GPPValtozas_fertilP
-7.9 Szárazodás - Termés
+7.9 Szárazodás - Termés
-
TermesValtozas_szarazodas <- termesAlap_gyep+
- plotMuso(variable = "leafc",
- timeFrame = "year", groupFun=sum,
- colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+TermesValtozas_szarazodas <- termesAlap_gyep+
+ plotMuso(variable = "leafc",
+ timeFrame = "year", groupFun=sum,
+ colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
TermesValtozas_szarazodas
@@ -676,12 +676,12 @@ TermesValtozas_szarazodas
-7.10 Szárazodás - LAI
+7.10 Szárazodás - LAI
-
LAIValtozas_szarazodas <- LAIAlap_gyep+
- plotMuso(variable = "proj_lai",
- colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+LAIValtozas_szarazodas <- LAIAlap_gyep+
+ plotMuso(variable = "proj_lai",
+ colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
LAIValtozas_szarazodas
@@ -695,12 +695,12 @@ LAIValtozas_szarazodas
-7.11 Szárazodás - GPP
+7.11 Szárazodás - GPP
-
GPPValtozas_szarazodas <- GPPAlap_gyep +
- plotMuso(variable = "daily_gpp",
- colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
+GPPValtozas_szarazodas <- GPPAlap_gyep +
+ plotMuso(variable = "daily_gpp",
+ colour = "brown", layerPlot = TRUE, skipSpinup=FALSE)
GPPValtozas_szarazodas
@@ -715,22 +715,22 @@ GPPValtozas_szarazodas
-8 AgroMo-Lite
+8 AgroMo-Lite
-8.1 Telepítés
+8.1 Telepítés
-
setwd("../hegyhatsal")
+setwd("../hegyhatsal")
-
intall_github("hollorol/AgroMoLite")
-library(AgroMoLite)
+intall_github("hollorol/AgroMoLite")
+library(AgroMoLite)
@@ -744,7 +744,7 @@ GPPValtozas_szarazodas
-8.2 Köszönöm, hogy itt voltak!
+8.2 Köszönöm, hogy itt voltak!