Toggle navigation
Home
Research
Topic 1: Suspensions and powders
Imbibition
Flow of concentrated suspensions
Drying of latex films
Topic 2: Cell mechanics
Mechanical phenotype
Topic 3: Gene regulation, DNA intercalation
Gene regulation
DNA intercalation
Members
Academic Staff
Pascal Hébraud
Wilfried Grange
Marie-Noëlle Lalloz-Vogel
Ph.D. Students
Dmytro Kushnir
Saeel Momin
Students
Visitors / Postdoc
Network / Alumni
Publications
Tools
Location
BIO
physics &
SOFT
Matter
Department of Ultrafast Optics and Nanophotonics
Institut de Physique et Chimie des Matériaux de Strasbourg
[ --
Internship Proposals
-- ]
OpenCPU
|
Chart.js
|
Michaelis Menten
🙅 🙅
R-squared [1]
|
R-squared [2]
|
RMSE
function(x,y){ nearest <- which.min(abs(y - 0.5*max(y))) #index of Vmax/2 nlmodel <- nls(y ~ A*x/(B + x), start = list(A = max(y), B = x[nearest])) fit_res<-summary(nlmodel)$coefficients # e.g. A is summary(nlmodel)$coefficients[1] #xtra values are for a smooth display (not needed when # points is large) S_xtra<-c(seq(0,min(x)*0.8,length.out=10),seq(min(x),max(x)*1.2,length.out = 39)) # create a dummy S (x) vector (49 values here) vfit_xtra<- fit_res[1]*S_xtra/(fit_res[2] + S_xtra) # calculate new v (y) values (according to those 49 new values) error_squared<-(predict(nlmodel)-y)^2 RMSE<-sqrt(mean(error_squared)) return(c(fit_res[1:4],RMSE,S_xtra,vfit_xtra)) }
[Substrate]
vi
X Axis Text
Y Axis Text
Title Text
#
Estimate
Error
Vmax
Km
RMSE:
Error log
Code (R)
v2022_10_23 [1180]