Print mtmutObj object

# S3 method for class 'mtmutObj'
format(x, ...)

# S3 method for class 'mtmutObj'
print(x, ...)

is.mtmutObj(x)

## Use the example data
f <- system.file("extdata", "mini_dataset.tsv.gz", package = "scMitoMut")
## Create a temporary h5 file
## In real case, we keep the h5 in project folder for future use
f_h5_tmp <- tempfile(fileext = ".h5")
## Load the data with parse_table function
f_h5 <- parse_table(f, sep = "\t", h5_file = f_h5_tmp)
f_h5
#> [1] "/tmp/RtmppwH5Ub/file2395d75cd14d3.h5"
## open the h5 file and create a mtmutObj object
x <- open_h5_file(f_h5)
x
#> mtmutObj object
#> -------------------------------------------------
#> h5 file: /tmp/RtmppwH5Ub/file2395d75cd14d3.h5
#> Available loci: 16
#> Selected loci: 16
#> Available cells: 1359
#> Selected cells: 1359
#> Loci passed the filter: 0
#> filter parameters: 
#> 	min_cell: 1
#> 	model: bb
#> 	p_threshold: 0.05
#> 	alt_count_threshold: 0
#> 	p_adj_method: fdr
print(x)
#> mtmutObj object
#> -------------------------------------------------
#> h5 file: /tmp/RtmppwH5Ub/file2395d75cd14d3.h5
#> Available loci: 16
#> Selected loci: 16
#> Available cells: 1359
#> Selected cells: 1359
#> Loci passed the filter: 0
#> filter parameters: 
#> 	min_cell: 1
#> 	model: bb
#> 	p_threshold: 0.05
#> 	alt_count_threshold: 0
#> 	p_adj_method: fdr