Displaying 2 results from an estimated 2 matches for "predictionsup".
Did you mean:
predictions
2009 Nov 29
3
Plotting observed vs. Predicted values, change of symbols
...s 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) {
params <- summary(fit)$coefficients[, 1]
B1 <- params["B1"]
b1 <- params["b1"]
B2 <- params["B2"]
b2 <- params["b2"]
B1*exp(-b1*time)+B2*exp(-b2*time)
}
# plot observed and predicted values supine and u...
2009 Nov 29
1
Plotting observed vs. fitted values
...s 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) {
params <- summary(fit)$coefficients[, 1]
B1 <- params["B1"]
b1 <- params["b1"]
B2 <- params["B2"]
b2 <- params["b2"]
B1*exp(-b1*time)+B2*exp(-b2*time)
}
# plot observed and predicted values supine and u...