Displaying 2 results from an estimated 2 matches for "predictionssu".
Did you mean:
predictions
2009 Nov 29
3
Plotting observed vs. Predicted values, change of symbols
...e)+B2*exp(-b2*time)
(resp - pred) / sqrt(pred)
}
fit.wt.up <- nls( ~ wt.up(concup, time,B1,b1,B2,b2), data=dataup,
start=list(B1=500,b1=1,B2=100,b2=0.1),
trace = TRUE)
summary(fit.wt.up)
# Function that returns predicted values and graphics
# by Duncan Murdoch
predictionssu <- function(fit, time) {
params <- summary(fit)$coefficients[, 1]
A1 <- params["A1"]
a1 <- params["a1"]
A2 <- params["A2"]
a2 <- params["a2"]
A1*exp(-a1*time)+A2*exp(-a2*time)
}
predictionsup <- function(fit, time) {
param...
2009 Nov 29
1
Plotting observed vs. fitted values
...e)+B2*exp(-b2*time)
(resp - pred) / sqrt(pred)
}
fit.wt.up <- nls( ~ wt.up(concup, time,B1,b1,B2,b2), data=dataup,
start=list(B1=500,b1=1,B2=100,b2=0.1),
trace = TRUE)
summary(fit.wt.up)
# Function that returns predicted values and graphics
# by Duncan Murdoch
predictionssu <- function(fit, time) {
params <- summary(fit)$coefficients[, 1]
A1 <- params["A1"]
a1 <- params["a1"]
A2 <- params["A2"]
a2 <- params["a2"]
A1*exp(-a1*time)+A2*exp(-a2*time)
}
predictionsup <- function(fit, time) {
param...