setMeasFunc {seeds}

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 signature 'odeModel,'function',missing'
setMeasFunc(odeModel, measFunc, custom)

## S4 method for signature '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

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)