Generate an Empirical Hemodynamic Response Function

gen_empirical_hrf generates an empirical hemodynamic response function (HRF) using provided time points and HRF values.

Usage

gen_empirical_hrf(t, y, name = "empirical_hrf")

Arguments

t

Time points.

y

Values of HRF at time t[i].

name

Name of the generated HRF.

Value

An instance of type HRF inheriting from function.

Examples

y <- -poly(0:24, 2)[,2]
emphrf <- gen_empirical_hrf(0:24, y)
## plot(emphrf(seq(0,24,by=.5)), type='l')