Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Strand Lab
sc-TissueMapper
Commits
0fc0965a
Commit
0fc0965a
authored
Jan 12, 2019
by
Gervaise Henry
🤠
Browse files
Add set.seed to QuSAGE downsample
parent
0d605c79
Changes
1
Hide whitespace changes
Inline
Side-by-side
r.scripts/sc-TissueMapper_functions.R
View file @
0fc0965a
...
...
@@ -506,6 +506,7 @@ scQuSAGE <- function(sc10x,gs,save=FALSE,type,id,ds=0,nm="pops",print="tsne"){
for
(
i
in
unique
(
labels
)){
cell
<-
WhichCells
(
sc10x
,
ident
=
sub
(
"Cluster_"
,
""
,
i
))
if
(
length
(
cell
)
>
ds
&
ds
!=
0
){
set.seed
(
71682
)
rnd
<-
sample
(
1
:
length
(
cell
),
ds
)
cell
<-
cell
[
rnd
]
}
...
...
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