# NOT RUN {
# Load mutational signature
load(system.file("extdata", "toy_mutational_signature.RData",
package = "sigminer", mustWork = TRUE
))
s1 <- get_sig_similarity(sig2, Ref = sig2)
s1
s2 <- get_sig_similarity(sig2)
s2
s3 <- get_sig_similarity(sig2, sig_db = "SBS")
s3
## Remove some components
## in similarity calculation
s4 <- get_sig_similarity(sig2,
Ref = sig2,
pattern_to_rm = c("T[T>G]C", "T[T>G]G", "T[T>G]T")
)
s4
## Same to DBS and ID signatures
# }
Run the code above in your browser using DataLab