Displaying 1 result from an estimated 1 matches for "observed_data_part_1".
2011 Aug 01
0
Help with modFit of FME package 2
...###############################################
# Estimate of the parameters
experiment <- read.table("./wild_pp1_mrna.txt", header=TRUE)
rw <- 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...