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
cbf93511
Commit
cbf93511
authored
Jun 14, 2018
by
Rauschenberger
Browse files
automation
parent
10c41a50
Changes
1
Hide whitespace changes
Inline
Side-by-side
R/function.R
View file @
cbf93511
...
...
@@ -22,7 +22,7 @@ match.samples <- function(...,message=TRUE){
list
<-
list
(
...
)
if
(
length
(
list
)
==
1
&
is.list
(
list
[[
1
]])){
list
<-
list
[[
1
]]}
names
<-
names
(
list
)
names
<-
sapply
(
substitute
(
list
(
...
))[
-1
],
deparse
)
# check input
cond
<-
sapply
(
list
,
function
(
x
)
!
is.matrix
(
x
))
...
...
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