Displaying 1 result from an estimated 1 matches for "cost_funct".
2011 Aug 01
0
Help with modFit of FME package 2
...dim(experiment)[1]
names <- array("", rw)
for (i in 1:rw)
{
names[i] <- "pp1_mrna"
}
names
observed_data_part_1 <- data.frame(name = names,
time = experiment[,1], val = experiment[,2])
observed_data_part_1
ode_solutions_part_1
Cost_function <- function (pars) {
out <- ode_solutions_part_1
cost <- modCost(model = out, obs = observed_data_part_1, y = "val")
cost
}
Cost_function(parms)
# Fit the model to the observed data
Fit <- modFit(f = Cost_function, p = parms_part_1)
Fit
# Summary of the fit
summary(...