Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Strand Lab
sc-TissueMapper
Commits
a8a133ff
Commit
a8a133ff
authored
Mar 01, 2021
by
Gervaise Henry
🤠
Browse files
Fix subset
parent
82f83860
Changes
1
Hide whitespace changes
Inline
Side-by-side
r.scripts/sc-TissueMapper_ID.R
View file @
a8a133ff
...
...
@@ -123,10 +123,10 @@ sc10x$lung <- labs.raw
Idents
(
sc10x
)
<-
"lin"
sc10x.epi
<-
subset
(
sc10x
,
idents
=
"Epithelia"
)
sc10x.fmst
<-
subset
(
sc10x
,
idents
=
colnames
(
sc10x
@
meta.data
)
%in%
c
(
"Fibroblast"
,
"Smooth Muscle"
))
sc10x.fmst
<-
subset
(
sc10x
,
idents
=
unique
(
Idents
(
sc10x
))[
unique
(
Idents
(
sc10x
)
)
%in%
c
(
"Fibroblast"
,
"Smooth Muscle"
)
]
)
sc10x.fib
<-
subset
(
sc10x
,
idents
=
"Fibroblast"
)
sc10x.sm
<-
subset
(
sc10x
,
idents
=
"Smooth Muscle"
)
sc10x.leu
<-
subset
(
sc10x
,
idents
=
colnames
(
sc10x
@
meta.data
)
%in%
c
(
"Lymphoid"
,
"Myeloid"
,
"Granulocyte"
))
sc10x.leu
<-
subset
(
sc10x
,
idents
=
unique
(
Idents
(
sc10x
))[
unique
(
Idents
(
sc10x
)
)
%in%
c
(
"Lymphoid"
,
"Myeloid"
,
"Granulocyte"
)
]
)
res
<-
c
(
seq
(
0.1
,
0.5
,
0.1
),
0.75
,
seq
(
1
,
5
,
1
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment