Skip to content

Commit

Permalink
Update met2model, model2netcdf, .Rd files
Browse files Browse the repository at this point in the history
  • Loading branch information
Hhh-hyc committed Jul 11, 2024
1 parent d5c7bff commit a3ab775
Show file tree
Hide file tree
Showing 27 changed files with 969 additions and 675 deletions.
28 changes: 28 additions & 0 deletions dbfiles/posterior/77000000001/Amax.model.bug
Original file line number Diff line number Diff line change
@@ -0,0 +1,28 @@
model
{
for (k in 1:28){
Y[k] ~ dnorm( Z[k] , tau.y[k])
Z[k] <- beta.o
tau.y[k] <- prec.y*n[k]
u1[k] <- n[k]/2
u2[k] <- n[k]/(2*prec.y)
obs.prec[k] ~ dgamma(u1[k], u2[k])
}
# beta.trt[1] <- 0
# for ( j in 2:1){
# beta.trt[j] ~ dnorm(0, tau.trt)
# }
# for (g in 1:1){
# beta.site[g] ~ dnorm(0, tau.site)
# }
# beta.ghs[1] <- 0
# beta.ghs[2] ~ dnorm(0, 0.01)
beta.o ~ dunif (0, 40)#BBB
# tau.site ~ dgamma(0.01, 0.01)
# tau.trt ~ dgamma(0.01, 0.01)
prec.y ~ dgamma(0.01, 0.01)
#prec.y ~ dgamma(0.001, 0.001)
# sd.site <- 1 / sqrt(tau.site)
sd.y <- 1 / sqrt(prec.y)
# sd.trt <- 1 / sqrt(tau.trt)
}
28 changes: 28 additions & 0 deletions dbfiles/posterior/77000000001/SLA.model.bug
Original file line number Diff line number Diff line change
@@ -0,0 +1,28 @@
model
{
for (k in 1:47){
Y[k] ~ dnorm( Z[k] , tau.y[k])
Z[k] <- beta.o + beta.ghs[ghs[k]]
tau.y[k] <- prec.y*n[k]
u1[k] <- n[k]/2
u2[k] <- n[k]/(2*prec.y)
obs.prec[k] ~ dgamma(u1[k], u2[k])
}
# beta.trt[1] <- 0
# for ( j in 2:1){
# beta.trt[j] ~ dnorm(0, tau.trt)
# }
# for (g in 1:1){
# beta.site[g] ~ dnorm(0, tau.site)
# }
beta.ghs[1] <- 0
beta.ghs[2] ~ dnorm(0, 0.01)
beta.o ~ dlnorm (1.89, 2.68744961031981)#BBB
# tau.site ~ dgamma(0.01, 0.01)
# tau.trt ~ dgamma(0.01, 0.01)
prec.y ~ dgamma(0.01, 0.01)
#prec.y ~ dgamma(0.001, 0.001)
# sd.site <- 1 / sqrt(tau.site)
sd.y <- 1 / sqrt(prec.y)
# sd.trt <- 1 / sqrt(tau.trt)
}
Binary file added dbfiles/posterior/77000000001/jagged.data.Rdata
Binary file not shown.
28 changes: 28 additions & 0 deletions dbfiles/posterior/77000000001/leafC.model.bug
Original file line number Diff line number Diff line change
@@ -0,0 +1,28 @@
model
{
for (k in 1:12){
Y[k] ~ dnorm( Z[k] , tau.y[k])
Z[k] <- beta.o
tau.y[k] <- prec.y*n[k]
u1[k] <- n[k]/2
u2[k] <- n[k]/(2*prec.y)
obs.prec[k] ~ dgamma(u1[k], u2[k])
}
# beta.trt[1] <- 0
# for ( j in 2:1){
# beta.trt[j] ~ dnorm(0, tau.trt)
# }
# for (g in 1:1){
# beta.site[g] ~ dnorm(0, tau.site)
# }
# beta.ghs[1] <- 0
# beta.ghs[2] ~ dnorm(0, 0.01)
beta.o ~ dnorm (50.6, 0.573921028466483)#BBB
# tau.site ~ dgamma(0.01, 0.01)
# tau.trt ~ dgamma(0.01, 0.01)
prec.y ~ dgamma(0.01, 0.01)
#prec.y ~ dgamma(0.001, 0.001)
# sd.site <- 1 / sqrt(tau.site)
sd.y <- 1 / sqrt(prec.y)
# sd.trt <- 1 / sqrt(tau.trt)
}
28 changes: 28 additions & 0 deletions dbfiles/posterior/77000000001/leaf_respiration_rate_m2.model.bug
Original file line number Diff line number Diff line change
@@ -0,0 +1,28 @@
model
{
for (k in 1:10){
Y[k] ~ dnorm( Z[k] , tau.y[k])
Z[k] <- beta.o
tau.y[k] <- prec.y*n[k]
u1[k] <- n[k]/2
u2[k] <- n[k]/(2*prec.y)
obs.prec[k] ~ dgamma(u1[k], u2[k])
}
# beta.trt[1] <- 0
# for ( j in 2:1){
# beta.trt[j] ~ dnorm(0, tau.trt)
# }
# for (g in 1:1){
# beta.site[g] ~ dnorm(0, tau.site)
# }
# beta.ghs[1] <- 0
# beta.ghs[2] ~ dnorm(0, 0.01)
beta.o ~ dweib (2, 0.0277777777777778)#BBB
# tau.site ~ dgamma(0.01, 0.0013)
# tau.trt ~ dgamma(0.01, 0.0013)
prec.y ~ dgamma(0.01, 0.0013)
#prec.y ~ dgamma(0.001, 0.001)
# sd.site <- 1 / sqrt(tau.site)
sd.y <- 1 / sqrt(prec.y)
# sd.trt <- 1 / sqrt(tau.trt)
}
28 changes: 28 additions & 0 deletions dbfiles/posterior/77000000001/leaf_turnover_rate.model.bug
Original file line number Diff line number Diff line change
@@ -0,0 +1,28 @@
model
{
for (k in 1:15){
Y[k] ~ dnorm( Z[k] , tau.y[k])
Z[k] <- beta.o
tau.y[k] <- prec.y*n[k]
u1[k] <- n[k]/2
u2[k] <- n[k]/(2*prec.y)
obs.prec[k] ~ dgamma(u1[k], u2[k])
}
# beta.trt[1] <- 0
# for ( j in 2:1){
# beta.trt[j] ~ dnorm(0, tau.trt)
# }
# for (g in 1:1){
# beta.site[g] ~ dnorm(0, tau.site)
# }
# beta.ghs[1] <- 0
# beta.ghs[2] ~ dnorm(0, 0.01)
beta.o ~ dweib (1.37, 0.612617824426684)#BBB
# tau.site ~ dgamma(0.01, 0.00015)
# tau.trt ~ dgamma(0.01, 0.00015)
prec.y ~ dgamma(0.01, 0.00015)
#prec.y ~ dgamma(0.001, 0.001)
# sd.site <- 1 / sqrt(tau.site)
sd.y <- 1 / sqrt(prec.y)
# sd.trt <- 1 / sqrt(tau.trt)
}
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading

0 comments on commit a3ab775

Please sign in to comment.