diff --git a/docs/hegyhatsal/daily_1.jpg b/docs/hegyhatsal/daily_1.jpg new file mode 100644 index 0000000..8361364 Binary files /dev/null and b/docs/hegyhatsal/daily_1.jpg differ diff --git a/docs/hegyhatsal/daily_1.png b/docs/hegyhatsal/daily_1.png new file mode 100644 index 0000000..f1624e6 Binary files /dev/null and b/docs/hegyhatsal/daily_1.png differ diff --git a/docs/hegyhatsal/daily_2.png b/docs/hegyhatsal/daily_2.png new file mode 100644 index 0000000..794ab82 Binary files /dev/null and b/docs/hegyhatsal/daily_2.png differ diff --git a/docs/index.html b/docs/index.html new file mode 100644 index 0000000..90e671c --- /dev/null +++ b/docs/index.html @@ -0,0 +1,233 @@ + + + + +Szimuláció RBBGCMuso-val + + + + + + + + + + + +
+
+

Szimuláció RBBGCMuso-val

Hollós Roland

Created: 2018-09-23 Sun 18:24

+
+
+ +
+
+
+

1 Bevezetés

+
+
+
+
+

2 Kérdésfeltevés

+
+
+
+
+

3 RBBGCMuso használata

+
+
+
+
+

3.1 devtools telepítése

+
+ +
install.packages("devtools")
+
+
+ +
+
+

3.2 RBBGCMuso telepítése

+
+ +
devtools::install_github("hollorol/RBBGCMuso/RGBBCMuso")
+
+
+
+
+

3.3 csomagok betöltése, munkakönyvtár beállítása:

+
+ +
library(RBBGCMuso)
+library(ggplot2)
+
+
+ +
+
+

3.4 futtatás előkészítése: setupMuso()

+
+ +
beallitasok <- setupMuso()
+
+
+ +
+
+

3.5 modellfuttatás: calibMuso()

+
+ +
kimenet <- calibMuso(settings = beallitasok,skipSpinup=FALSE)
+kimenet[1:6,1:3]
+
+
+ + + + +++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
tsoil0evapotranspsoilwevap
3.094151927459250.2145928136132010.214592813613201
2.53535215722970.01153242709409530.0115324270940953
1.628689616128640.02221516248320230.0222151624832023
2.341371845584360.10.1
3.663484823984380.4549460765129240.454946076512924
5.00761490441760.144259638416120.14425963841612
+ +
+
+

3.6 kimeneti adatok ábrázolása (első verzió)

+
+ +
plot(kimenet[,"daily_gpp"])
+
+
+ + +
+

daily_1.png +

+
+ +
+
+

3.7 egy kicsit cicomázva:

+
+ +
par(mar=c(5,5,4,4))
+plot(y=kimenet[,"daily_gpp"],
+     x=as.Date(rownames(kimenet),"%d.%m.%Y"), xlab="Days",
+     ylab = expression(paste("daily GPP[",kg[C],m^-2,"]")),
+     type="l", col="blue", lwd="1.8")
+
+
+ + +
+

daily_2.png +

+
+
+
+
+
+ + + + + +