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
Armin Rauschenberger
joinet
Commits
c1b98027
Commit
c1b98027
authored
Jul 26, 2018
by
Rauschenberger
Browse files
automation
parent
92c56696
Changes
1
Hide whitespace changes
Inline
Side-by-side
R/functions.R
View file @
c1b98027
...
...
@@ -842,7 +842,7 @@ test.multiple <- function(Y,X,map,rho=c(0,0.5,1),spec=1,steps=20){
p
<-
nrow
(
map
$
genes
)
# permutations
if
(
FALSE
){
if
(
FALSE
){
# old
min
<-
5
max
<-
p
/
0.05+1
limit
<-
ceiling
(
0.05
*
max
/
p
)
...
...
@@ -852,7 +852,7 @@ test.multiple <- function(Y,X,map,rho=c(0,0.5,1),spec=1,steps=20){
steps
<-
c
(
min
,
diff
(
unique
(
round
(
base
^
(
seq
(
from
=
from
,
to
=
to
,
length.out
=
20
))))))
}
if
(
TRUE
){
if
(
FALSE
){
# new
max
<-
p
/
0.05+1
limit
<-
ceiling
(
0.05
*
max
/
p
)
steps
<-
diff
(
limit
^
seq
(
from
=
1
,
to
=
log
(
max
)
/
log
(
limit
),
length.out
=
pmin
(
p
,
steps
)))
# was (p,20)
...
...
@@ -861,6 +861,10 @@ test.multiple <- function(Y,X,map,rho=c(0,0.5,1),spec=1,steps=20){
steps
[
length
(
steps
)]
<-
max
-
sum
(
steps
[
-
length
(
steps
)])
}
if
(
TRUE
){
# temporary trial, delete this!
max
<-
limit
<-
steps
<-
100
}
if
(
max
!=
sum
(
steps
)){
stop
(
"Invalid combination?"
,
call.
=
FALSE
)}
if
(
spec
==
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