# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
layers = list(
spliced = matrix(c(4, 5, 6, 7), nrow = 2),
unspliced = matrix(c(8, 9, 10, 11), nrow = 2)
),
obsm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
value <- matrix(c(1,2,3,4), nrow = 2)
ad$X <- value
ad$X
ad$layers
ad$layers["spliced"]
ad$layers["test"] <- value
ad$layers
ad$to_df()
ad$uns
as.matrix(ad)
as.matrix(ad, layer = "unspliced")
dim(ad)
rownames(ad)
colnames(ad)
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$new`
## ------------------------------------------------
# }
# NOT RUN {
# use AnnData() instead of AnnDataR6$new()
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2"))
)
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$obs_keys`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2"))
)
ad$obs_keys()
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$obs_names_make_unique`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(rep(1, 6), nrow = 3),
obs = data.frame(field = c(1, 2, 3))
)
ad$obs_names <- c("a", "a", "b")
ad$obs_names_make_unique()
ad$obs_names
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$obsm_keys`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
obsm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
)
)
ad$obs_keys()
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$var_keys`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2"))
)
ad$var_keys()
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$var_names_make_unique`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(rep(1, 6), nrow = 2),
var = data.frame(field = c(1, 2, 3))
)
ad$var_names <- c("a", "a", "b")
ad$var_names_make_unique()
ad$var_names
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$varm_keys`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
)
)
ad$varm_keys()
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$uns_keys`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$chunk_X`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(runif(10000), nrow = 50)
)
ad$chunk_X(select = 10L) # 10 random samples
ad$chunk_X(select = 1:3) # first 3 samples
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$chunked_X`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(runif(10000), nrow = 50)
)
ad$chunked_X(10)
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$copy`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2)
)
ad$copy()
ad$copy("file.h5ad")
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$rename_categories`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2"))
)
ad$rename_categories("group", c(a = "A", b = "B")) # ??
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$strings_to_categoricals`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
)
ad$strings_to_categoricals() # ??
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$to_df`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
layers = list(
spliced = matrix(c(4, 5, 6, 7), nrow = 2),
unspliced = matrix(c(8, 9, 10, 11), nrow = 2)
)
)
ad$to_df()
ad$to_df("unspliced")
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$transpose`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2"))
)
ad$transpose()
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$write_csvs`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
ad$to_write_csvs("output")
unlink("output", recursive = TRUE)
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$write_h5ad`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
ad$write_h5ad("output.h5ad")
file.remove("output.h5ad")
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$write_loom`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
ad$write_loom("output.loom")
file.remove("output.loom")
# }
# NOT RUN {
## ------------------------------------------------
## Method `AnnDataR6$print`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
layers = list(
spliced = matrix(c(4, 5, 6, 7), nrow = 2),
unspliced = matrix(c(8, 9, 10, 11), nrow = 2)
),
obsm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
ad$print()
print(ad)
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
layers = list(
spliced = matrix(c(4, 5, 6, 7), nrow = 2),
unspliced = matrix(c(8, 9, 10, 11), nrow = 2)
),
obsm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
ad$raw <- ad
library(reticulate)
sc <- import("scanpy")
sc$pp$normalize_per_cell(ad)
ad[]
ad$raw[]
# }
# NOT RUN {
## ------------------------------------------------
## Method `RawR6$copy`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2)
)
ad$copy()
ad$copy("file.h5ad")
# }
# NOT RUN {
## ------------------------------------------------
## Method `RawR6$to_adata`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
layers = list(
spliced = matrix(c(4, 5, 6, 7), nrow = 2),
unspliced = matrix(c(8, 9, 10, 11), nrow = 2)
)
)
ad$raw <- ad
ad$raw$to_adata()
# }
# NOT RUN {
## ------------------------------------------------
## Method `RawR6$print`
## ------------------------------------------------
# }
# NOT RUN {
ad <- AnnData(
X = matrix(c(0, 1, 2, 3), nrow = 2),
obs = data.frame(group = c("a", "b"), row.names = c("s1", "s2")),
var = data.frame(type = c(1L, 2L), row.names = c("var1", "var2")),
layers = list(
spliced = matrix(c(4, 5, 6, 7), nrow = 2),
unspliced = matrix(c(8, 9, 10, 11), nrow = 2)
),
obsm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
varm = list(
ones = matrix(rep(1L, 10), nrow = 2),
rand = matrix(rnorm(6), nrow = 2),
zeros = matrix(rep(0L, 10), nrow = 2)
),
uns = list(a = 1, b = 2, c = list(c.a = 3, c.b = 4))
)
ad$raw <- ad
library(reticulate)
sc <- import("scanpy")
sc$pp$normalize_per_cell(ad)
ad[]
ad$raw[]
ad$print()
print(ad)
# }
Run the code above in your browser using DataLab