seeds (version 0.9.1)

setMeasFunc: Set the measurement equation for the model

Description

For a given model a measurement equation can be set. If no measurement function is set the states become the output of the system. The function should be defined as in the example below.

Usage

setMeasFunc(odeModel, measFunc, custom)
# S4 method for odeModel,`function`,missing
setMeasFunc(odeModel, measFunc, custom)
# S4 method for odeModel,`function`,logical
setMeasFunc(odeModel, measFunc, custom)

Arguments

odeModel

an object of the class odeModel

measFunc

measurement function of the model. Has to be a R functions.

custom

custom indexing for the measurement function (used by the baysian method)

Value

an object of odeModel

Examples

# NOT RUN {
data("uvbModel")

uvbMeasure <- function(x) {

  y1 = 2*x[,5] + x[,4] + x[,8]
  y2 = 2*x[,5] + 2* x[,3] + x[,1]
  y3 = x[,6]
  y4 = x[,11]
  y5 = x[,4]

  return(cbind(y1,y2,y3,y4,y5))
  }

newModel <- setMeasFunc(odeModel = uvbModel, measFunc = uvbMeasure)

# }