Apply a bandpass like filter to the fluorescence intensities within a single gate.
Arguments
- fdmat
An object of
class-fdmat
as produced bymakefdmat
.- bandpass
Numeric vector length two, holding the lower and upper boundaries of the bandpass filter.
- gate
Numeric or character length one, defining the gate on which the bandpass should be applied. Defaults to 1. (See 'fdmat@metadata' for possible values for gate name resp. number.)
Value
The same object of class 'fdmat' as was provided to the argument 'fdmat', but with modified range of fluorescence intensities in the gate specified under 'gate'.
See also
Other Accessory functions:
checkRepairFcsFiles()
,
cutFdmatToGate()
,
exportFdmatData()
,
fd_load()
,
fd_save()
,
genfs()
,
repairSID()
,
repairVolumes()
Examples
td <- tempdir()
data_source <- "https://github.com/bpollner/data/raw/main/flowdex_examples/flowdex_examples.zip"
check_download_data(td, data_source)
exp_home <- paste0(td, "/flowdex_examples")
old_wd <- getwd()
setwd(exp_home)
#
assign("get_settings_from_flowdex_package_root", TRUE, pos=.GlobalEnv)
# only required to make the examples run automatically
# you should not call 'assign' if you run the examples manually
# the effect of setting 'get_settings_from_flowdex_package_root' to TRUE
# is that the file 'flowdex_settings.R' in 'root' of the installed package
# 'flowdex' will be sourced instead of the one in the user-defined location.
#
fdmat <- flowdexit(patt = "GPos_T4")
#> Reading in fcs files... ok.
#> Producing gating set... Applying fjbiexp transformation... ok.
#> Gating: (1 gate)
#> done!
#> DNA+: Extracting binned data on FITC.A (res=220) and recalc. to volume... ok.
#> Exporting data (1 gate) to xlsx...ok.
#> fdmat-object saved.
fdmat_bp <- applyBandpass(fdmat, c(1600, 2400))
#
setwd(old_wd)