# # # R代码从装饰图案的flowTrans来源。Rnw“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:loaddata # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(flowTrans)数据(GvHD)转换< -lapply(如(GvHD[1:4],“列表”)、功能(x) flowTrans (dat = x,有趣=“mclMultivArcSinh”, dim = c (“FSC-H”、“SSC-H”), n2f = FALSE, parameters.only = FALSE));# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:参数# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #参数< -do.call (rbind,拉普(转换函数(x) extractParams (x)[[1]]))参数;# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块3号:情节# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # par (mfrow = c(2, 2))情节(GvHD [[2]], c (“FSC-H”、“SSC-H”),主要=“Untransformed样本”)轮廓(GvHD [[2]], c (“FSC-H”、“SSC-H”),添加= TRUE);情节(转换美元[[2]]的结果,c (“FSC-H”、“SSC-H”),主要=“转换示例”)轮廓(转换美元[[2]]的结果,c (“FSC-H”、“SSC-H”),添加= TRUE);情节(GvHD [[4]], c (“FSC-H”、“SSC-H”),主要=“Untransformed样本”)轮廓(GvHD [[4]], c (“FSC-H”、“SSC-H”),添加= TRUE);情节(转换美元[[4]]的结果,c (“FSC-H”、“SSC-H”),主要=“转换示例”)轮廓(转换美元[[4]]的结果,c (“FSC-H”、“SSC-H”),添加= TRUE);# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:multivtrans # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # transformed2 < -flowTrans (dat = GvHD[[2]],有趣=“mclMultivArcSinh dim = c (“FSC-H”、“SSC-H”), n2f = FALSE, parameters.only = TRUE) transformed2