count_table <- data.frame(
sample1 = c(5, 10, 15, 20),
sample2 = c(6, 11, 16, 21),
sample3 = c(7, 12, 17, 22)
)
rownames(count_table) <- c("gene1", "gene2", "gene3", "gene4")
pcscore(count_table)
pcscore(count_table, pc = 2)
pcscore(count_table, pc = c(1, 2))
pcscore(count_table, pc = "all")
pcscore(count_table, pc = 1, stabilize_sign = TRUE)
Run the code above in your browser using DataLab