Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(renz)
## ----echo = FALSE-------------------------------------------------------------
library(knitr)
Km <- 6
Vm <- 90
S = c(0.5, 1, 2, 4, 7, 10, 13, 20)
v <- round(Vm * S / (Km + S), 2)
data <- data.frame(S,v)
names(data) <- c('[S] (mM)', 'v (au)')
kable(data)
## ----fig.align='center',out.extra='angle=90', echo=FALSE----------------------
plot(S, v, ty = 'b', ylim = c(0, Vm + 0.25*Vm),
ylab = 'v (au)', xlab = '[S] (mM)')
abline(h = 74, lty = 2, col = 'blue')
abline(v = (32*Km)/(Vm - 32), lty = 2, col = 'blue')
abline(h = Vm, lty = 2, col = 'red')
abline(v = Km, lty = 2, col = 'red')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.