Skip to content

Instantly share code, notes, and snippets.

View pamelacruzbr's full-sized avatar

Pamela Cruz pamelacruzbr

View GitHub Profile
@friveroll
friveroll / enzyme.R
Last active October 3, 2021 19:03
Simple enzyme kinetics
#Data from Problem 1 Chapter 4 from
#Biochemical Calculations by Irwin H Segel
#Set the initial values and get a data.frame
S <- c(2.5e-06, 3.33e-06, 4.0e-06, 5.0e-06, 1.0e-05, 2.0e-05, 4.0e-05, 1.0e-04, 2.0e-03, 1.0e-02)
v <- c(24, 30, 34, 40, 60, 80, 96, 109, 119, 120)
data.frame(S, v) -> datos.cinetica
#Plot the raw data
plot(datos.cinetica, type="l", main="V Vs. S", xmain="S", ymain="v")