# Supporting Information IV. R code for Flux Estimation 


library(metafor)	# This is the meta-analysis library in R
library(lattice)	# For using trellis graphics

data<-read.csv("SuppInfo3_FluxEST_Data.csv")
weight <- 1/data$SE2^2
print(weight/sum(weight))
feEst <- sum(data$TCAFlux2*weight) / sum(weight)
seFeEst <- sqrt( 1/sum(weight) )
reMod.reml <- rma(yi=data$TCAFlux2, vi=data$SE2^2, data=data, method="REML", slab=data$Reference)
forest(reMod.reml, order=rev(order(data$TCAFlux2)), 
	 refline=30, 
	mlab="Random Effects Estimate",
	xlab="Citrate Flux (g/day)", ylim=c(-2,10),
	main="Hepatic TCA Citrate Flux in Healthy Human",
      digits = 0, font=3)
text(-600, 9, "Study", cex=0.95, adj=0, font=2)
text(1100, 9, "Mean + 95%CI",cex=0.95, adj=0, font=2)
addpoly(x=feEst, sei=seFeEst, mlab="Fixed Effects Estimate", row=-2, digits = 0)