
Given a stack of images arr3d
, use the first frames.per.set
of them to
create one number image, the next frames.per.set
of them to create
the next number image and so on to get a time-series of number
images. If tau
is specified, bleaching correction is performed via
CorrectForBleaching()
.
NumberTimeSeries(arr, frames.per.set, tau = NA, mst = NULL, filt = NULL,
n.ch = 1, verbose = FALSE, mcc = parallel::detectCores(), seed = NULL)
A 3-dimensional array (the image stack) where the
The number of frames with which to calculate the successive numbers.
If this is specified, bleaching correction is performed with
CorrectForBleaching()
which uses exponential filtering with
time constant tau
(where the unit of time is the time between
frames). If this is set to 'auto'
, then the value of tau
is
calculated automatically via BestTau()
.
Do you want to apply an intensity threshold prior to calculating
number (via autothresholdr::mean_stack_thresh()
)? If so, set your thresholding
method here.
Do you want to smooth (filt = 'smooth'
) or median
(filt = 'median'
) filter the number image using
SmoothFilterB()
or MedianFilterB()
respectively? If
selected, these are invoked here with a filter radius of 1 and with the
option na_count = TRUE
. If you want to smooth/median filter the
number image in a different way, first calculate the numbers without
filtering (filt = NULL
) using this function and then perform your
desired filtering routine on the result.
The number of channels in the image (default 1).
If arr3d is specified as a file name, print a message to tell
the user that that file is now being processed (useful for
NumberTxtFolder
, does not work with multiple cores).
The number of cores to use for the parallel processing.
An array where the
This may discard some images, for example if 175 frames are in the input and
frames.per.set = 50
, then the last 25 are discarded. If bleaching
correction is selected, it is performed on the whole image stack before the
sectioning is done for calculation of numbers.
# NOT RUN {
library(EBImage)
img <- ReadImageData(system.file('extdata', '50.tif', package = 'nandb'))
bts <- NumberTimeSeries(img, 20, tau = NA, mst = "Huang", mcc = 2)
# }
Run the code above in your browser using DataLab