vignettes/tut3_giotto_dim_reduction.Rmd
tut3_giotto_dim_reduction.Rmd
\(~\)
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)
my_giotto_object <- normalizeGiotto(gobject = my_giotto_object)
\(~\)
# run PCA
my_giotto_object <- runPCA(gobject = my_giotto_object)
# identify most informative principal components
screePlot(my_giotto_object, ncp = 20)
jackstrawPlot(my_giotto_object, ncp = 20)
# plot PCA results
plotPCA(my_giotto_object)
\(~\)