Description Usage Arguments Details Value References See Also Examples
View source: R/deconvolveLocally.R
Implements the estimation step of JULES (Pein et al., 2018, Section III-B) in which an initial fit (reconstruction), e.g. computed by stepDetection
, is refined by local deconvolution.
1 2 3 4 5 6 | deconvolveLocally(fit, data, filter, startTime = 0, regularization = 1,
thresholdLongSegment = 10L, localEstimate = stats::median,
gridSize = c(1, 1 / 10, 1 / 100) / filter$sr,
windowFactorRefinement = 1,
output = c("onlyIdealization", "everyGrid"), report = FALSE,
suppressWarningNoDeconvolution = FALSE)
|
fit |
an |
data |
a numeric vector containing the recorded data points |
filter |
an object of class |
startTime |
a single numeric giving the time at which recording (sampling) of |
regularization |
a single positive numeric or a numeric vector with positive entries or a |
thresholdLongSegment |
a single integer giving the threshold determining how many observations are necessary to estimate a level (without deconvolution) |
localEstimate |
a function for estimating the levels of all long segments, see details, will be called with |
gridSize |
a numeric vector giving the size of the grids in the iterative grid search, see details |
windowFactorRefinement |
a single numeric or a numeric vector of length |
output |
a string specifying the return type, see Value |
report |
a single |
suppressWarningNoDeconvolution |
a single |
The local deconvolution consists of two parts.
In the first part, all segments of the initial fit will be divided into long and short ones. The first and lasts filter$len
data points of each segment will be ignored and if the remaining data points data[i:j]
are at least thresholdLongSegment
, i.e. j - i + 1 >= thresholdLongSegment
, the level (value) of this segment will be determined by localEstimate(data[i:j])
.
The long segments allow in the second part to perform the deconvolution locally by maximizing the likelihood function by an iterative grid search. Three scenarios might occur: Two long segments can follow each other, in this case the change, but no level, has to be estimated by maximizing the likelihood function of only few observations in this single parameter. A single short segment can be in between of two long segments, in this case two changes and one level have to be estimated by maximizing the likelihood function of only few observations in these three parameters. Finally, two short segments can follow each other, in this case no deconvolution is performed and the initial parameters are returned for these segments together with entries in the "noDeconvolution"
attribute
. More precisely, let i:j
be the short segments, then i:j
will be added to the "noDeconvolution"
attribute
and for the idealisation (if output == "everyGrid"
this applies for each entry) the entries value[i:j]
, leftEnd[i:(j + 1)]
and rightEnd[(i - 1):j]
are kept from the initial fit without refinement by deconvolution. If suppressWarningNoDeconvolution == FALSE
, additionally, a warning
will be given at first occurrence.
Maximisation of the likelihood is performed by minimizing (Pein et al., 2018, (9)), a term of the form x^TΣ x, where Σ is the regularised correlation matrix and x a numeric vector of the same dimension. More precisely, the (unregularised) correlations are filter$acf
, to this the regularisation regularization
is added. In detail, if regularization
is a numeric, the regularised correlation is
1 2 |
and if regularization
is a list the same, but regularization
is in the i-th
refinement replaced by regularization[[i]]
. Then, Σ is a symmetric Toeplitz matrix with entries cor
, i.e. a matrix with cor[1]
on the main diagonal, cor[2]
on the second diagonal, etc. and 0
for all entries outside of the first length(cor)
diagonals.
The minimisations are performed by an iterative grid search: In a first step potential changes will be allowed to be at the grid / time points seq(cp - filter$len / filter$sr, cp, gridSize[1])
, with cp
the considered change of the initial fit. For each grid point in case of a single change and for each combination of grid points in case of two changes the term in (9) is computed and the change(s) for which the minimum is attained is / are chosen. Afterwards, refinements are done with the grids
1 2 3 | seq(cp - windowFactorRefinement[j - 1] * gridSize[j - 1],
cp + windowFactorRefinement[j - 1] * gridSize[j - 1],
gridSize[j]),
|
with cp
the change of the iteration before, as long as entries in gridSize
are given.
The idealisation (fit, regression) obtained by local deconvolution procedure of the estimation step of JULES. If output == "onlyIdealization"
an object of class stepblock
containing the final idealisation obtained by local deconvolution. If output == "everyGrid"
a list
of length length(gridSize)
containing the idealisation after each refining step. Additionally, in both cases, an attribute
"noDeconvolution"
, an integer vector, gives the segments for which no deconvolution could be performed, since two short segments followed each other, see details.
Pein, F., Tecuapetla-Gómez, I., Schütte, O., Steinem, C., Munk, A. (2018) Fully-automatic multiresolution idealization for filtered ion channel recordings: flickering event detection. IEEE Transactions on NanoBioscience 17(3), 300–320.
jules
, stepDetection
, lowpassFilter
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | ## refinement of an initial fit of the gramicidin A recordings given by gramA
# the used filter
filter <- lowpassFilter(type = "bessel", param = list(pole = 4L, cutoff = 1e3 / 1e4),
sr = 1e4)
# initial fit
# with given q to save computation time
# this q is specific to length of the data and the filter
fit <- stepDetection(gramA, q = 1.370737, filter = filter, startTime = 9)
deconvolution <- deconvolveLocally(fit, data = gramA, filter = filter, startTime = 9)
# return fit after each refinement
every <- deconvolveLocally(fit, data = gramA, filter = filter, startTime = 9,
output = "every")
deconvolutionEvery <- every[[3]]
attr(deconvolutionEvery, "noDeconvolution") <- attr(every, "noDeconvolution")
identical(deconvolution, deconvolutionEvery)
# identical to a direct idealisation by jules
identical(jules(gramA, q = 1.370737, filter = filter, startTime = 9),
deconvolution)
## zoom into a single event, (Pein et al., 2018, Figure 2 lower left panel)
time <- 9 + seq(along = gramA) / filter$sr # time points
plot(time, gramA, pch = 16, col = "grey30", ylim = c(20, 50),
xlim = c(10.40835, 10.4103), ylab = "Conductance in pS", xlab = "Time in s")
# deconvolution
lines(deconvolution, col = "red", lwd = 3)
# deconvolution convolved with the filter
ind <- seq(10.408, 10.411, 1e-6)
convolvedSignal <- lowpassFilter::getConvolution(ind, deconvolution, filter)
lines(ind, convolvedSignal, col = "blue", lwd = 3)
# for comparison, fit prior to the deconvolution step
# does not fit the recorded data points appropriately
# fit
lines(fit, col = "orange", lwd = 3)
# fit convolved with the filter
ind <- seq(10.408, 10.411, 1e-6)
convolvedSignal <- lowpassFilter::getConvolution(ind, fit, filter)
lines(ind, convolvedSignal, col = "darkgreen", lwd = 3)
## zoom into a single jump
plot(9 + seq(along = gramA) / filter$sr, gramA, pch = 16, col = "grey30",
ylim = c(20, 50), xlim = c(9.6476, 9.6496), ylab = "Conductance in pS",
xlab = "Time in s")
# deconvolution
lines(deconvolution, col = "red", lwd = 3)
# deconvolution convolved with the filter
ind <- seq(9.647, 9.65, 1e-6)
convolvedSignal <- lowpassFilter::getConvolution(ind, deconvolution, filter)
lines(ind, convolvedSignal, col = "blue", lwd = 3)
# deconvolution with a wrong filter
# does not fit the recorded data points appropriately
wrongFilter <- lowpassFilter(type = "bessel",
param = list(pole = 6L, cutoff = 0.2),
sr = 1e4)
deconvolutionWrong <- deconvolveLocally(fit, data = gramA, filter = wrongFilter,
startTime = 9)
# deconvolution
lines(deconvolutionWrong, col = "orange", lwd = 3)
# ideconvolution convolved with the filter
ind <- seq(9.647, 9.65, 1e-6)
convolvedSignal <- lowpassFilter::getConvolution(ind, deconvolutionWrong, filter)
lines(ind, convolvedSignal, col = "darkgreen", lwd = 3)
# with less regularisation of the correlation matrix
deconvolveLocally(fit, data = gramA, filter = filter, startTime = 9,
regularization = 0.5)
# with estimation of the level of long segments by the mean
# but requiring 30 observations for it
deconvolveLocally(fit, data = gramA, filter = filter, startTime = 9,
localEstimate = mean, thresholdLongSegment = 30)
# with one refinement step less, but with a larger grid
# progress of the deconvolution is reported
# potential warning for no deconvolution is suppressed
deconvolveLocally(fit, data = gramA, filter = filter, startTime = 9,
gridSize = c(1 / filter$sr, 1 / 10 / filter$sr),
windowFactorRefinement = 2, report = TRUE,
suppressWarningNoDeconvolution = TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.