Displaying 1 result from an estimated 1 matches for "weignt".
Did you mean:
weight
2007 Jun 04
0
nls problems
...conc.1, Vm, K),
data=TreatIrreg,
start = list(Vm = 200, K = 0.1), trace = TRUE)
##
## ERROR MESSAGE:
## Error in data.frame(conc1 = 0.02, conc.1 = c(0.02, 0.06, 0.06, 0.11,
0.11, :
## arguments imply differing number of rows: 1, 11, 12
##
# Passing arguments via 'get'
weignted.MM0 <- function(Vm, K){
TI <- get("TreatIrreg")
conc <- with(TI, c(conc1, conc.1))
resp <- TI$rate
#
pred <- (Vm * conc)/(K + conc)
(resp - pred) / sqrt(pred)
}
Pur.wt0 <- nls( ~ weighted.MM0(Vm, K), start = list(Vm = 200, K = 0.1),
trace...