## ---- echo = false,结果=“隐藏”,警告= false -----------------------------------------------------------------------------------------------------------------------------------suppresspackagestArtupMessages({library('HighThroughputAssays')})## -------- echo = false,结果=“ hide”,警告= false ---------------------------------------------------------------------------------------------------抑制PackagestArtupMessages(库(FlowCore))uspressPackagestArtupMessages(库(flowStats))suppresspackagestArtupMessages(library(flowworkspace))suppresspackagestartupmessages(library(ggcyto)suppresspackAgeStartupMessages(library(ggcyto))---------------------------------------------------------------------------------------------------------------------------- ##加载软件包库(FlowCore)库(FlowStats)库(FlowWorkspace)库(GGCYTO)库(秤)##加载数据(ITN)ITN ## ----------------------------------------------------------------------------------------------------------------------------------------- ##创建一个工作流程实例,并使用Asinh GS转换数据<-gatingset(itn)trans.obj <-trans_new(“ myasinh”,transform = asinh,inverse = sinh)tl < - transformerList(colnames(itn)[3:7],trans.obj)gs gs < - transform(gs gs),,,,TL)## ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ##识别T细胞人群LG <-lymphgate(GS_CYTO_DATA(GS),频道=C(“ CD3”,“ SSC”),Preselection =“ CD4”,FilterID =“ Tcells”,scale = 2.5)gs_pop_add(gs,lg)重新计算(GS)ggcyto(gs)(gs,aes,aes(x = cd3,y = ssc,y = ssc)) + geom_hex(bins = 32) + geom_gate(“ tcells”)## ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------#if(!“ Biocmanager”%rownames(installed.packages())) # install.packages("BiocManager") # BiocManager::install("flowCore") ## ----eval=FALSE--------------------------------------------------------------- # library("flowCore") ## ----eval=FALSE--------------------------------------------------------------- # browseVignettes(package="flowCore") ## ----eval=FALSE--------------------------------------------------------------- # help.start() ## ----------------------------------------------------------------------------- sessionInfo()