View source: R/Script_PLATE_07_PCA_0_RunPCA.R
| RunPCA | R Documentation | 
Performs principle component analysis on splicing or gene data. This is a wrapper function for RunPCA.PSI and RunPCA.Exp.
RunPCA( MarvelObject, cell.group.column, cell.group.order = NULL, cell.group.colors = NULL, sample.ids = NULL, min.cells = 25, features, point.size = 0.5, point.alpha = 0.75, point.stroke = 0.1, seed = 1, method.impute = "random", cell.group.column.impute = NULL, level )
| MarvelObject | Marvel object. S3 object generated from  | 
| cell.group.column | Character string. The name of the sample metadata column in which the variables will be used to label the cell groups on the PCA. | 
| cell.group.order | Character string. The order of the variables under the sample metadata column specified in  | 
| cell.group.colors | Character string. Vector of colors for the cell groups specified for PCA analysis using  | 
| sample.ids | Character strings. Specific cells to plot. | 
| min.cells | Numeric value. The minimum no. of cells expressing the splicing event or gene for the event or gene, respectively, to be included for analysis. | 
| features | Character string. Vector of  | 
| point.size | Numeric value. Size of data points on reduced dimension space. | 
| point.alpha | Numeric value. Transparency of the data points on reduced dimension space. Take any values between 0 to 1. The smaller the value, the more transparent the data points will be. | 
| point.stroke | Numeric value. The thickness of the outline of the data points. The larger the value, the thicker the outline of the data points. | 
| seed | Numeric value. Only applicable when  | 
| method.impute | Character string. Only applicable when  | 
| cell.group.column.impute | Character string. Only applicable when  | 
| level | Character string. Indicate  | 
An object of class S3 with new slots MarvelObject$PCA$PSI$Results, MarvelObject$PCA$PSI$Plot, and MarvelObject$PCA$PSI$Plot.Elbow or MarvelObject$PCA$Exp$Results, MarvelObject$PCA$Exp$Plot, and MarvelObject$PCA$Exp$Plot.Elbow, when level option specified as "splicing" or "gene", respectively.
marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL"))
# Define splicing events for analysis
df <- do.call(rbind.data.frame, marvel.demo$PSI)
tran_ids <- df$tran_id
# PCA
marvel.demo <- RunPCA(MarvelObject=marvel.demo,
                      sample.ids=marvel.demo$SplicePheno$sample.id,
                      cell.group.column="cell.type",
                      cell.group.order=c("iPSC", "Endoderm"),
                      cell.group.colors=NULL,
                      min.cells=5,
                      features=tran_ids,
                      level="splicing",
                      point.size=2
                      )
# Check outputs
head(marvel.demo$PCA$PSI$Results$ind$coord)
marvel.demo$PCA$PSI$Plot
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.