library('data.table')
featureMetadata = data.table(feature = c('feature_1', 'feature_2'),
base = function(x) 0,
amp = c(function(x) 0, function(x) 1),
period = 24,
phase = 0, rhyFunc = sin)
abundDt = getExpectedAbund(featureMetadata, times = 6:17)
Run the code above in your browser using DataLab