library(Giotto)
$~$
path_to_matrix = system.file("extdata", "seqfish_field_expr.txt", package = 'Giotto') path_to_locations = system.file("extdata", "seqfish_field_locs.txt", package = 'Giotto') my_giotto_object = createGiottoObject(raw_exprs = path_to_matrix, spatial_locs = path_to_locations)
$~$
my_giotto_object <- filterGiotto(gobject = my_giotto_object, expression_threshold = 1, gene_det_in_min_cells = 10, min_det_genes_per_cell = 5)
$~$
my_giotto_object <- normalizeGiotto(gobject = my_giotto_object, scalefactor = 6000, verbose = T)
$~$
my_giotto_object <- addStatistics(gobject = my_giotto_object) my_giotto_object <- adjustGiottoMatrix(gobject = my_giotto_object, expression_values = c('normalized'), covariate_columns = c('nr_genes', 'total_expr'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.