counts_matrix<-cbind（原始计数$library0，原始计数$R0_0，原始计数$R1_0）rowData<-data.frame（sgRNA_id=raw_countsgrna_id，基因=raw_counts$基因）colData<-data.frame（样本名=c（“库”，“R1”，“R2”），#时间点命名约定：#T0->参考，#T1->已选择时间点=c（“T0”，“T1”，“T1”）se<-总结实验（分析=列表（计数=计数_矩阵），rowData=行数据，colData=列数据）

pse<-createToolScreenExp（se）

pse<-运行筛选（pse）