adapt if C return a null value
This commit is contained in:
parent
8eccb63844
commit
2f55fd84d0
1 changed files with 1 additions and 1 deletions
|
@ -38,7 +38,7 @@ compare <- function(
|
||||||
}
|
}
|
||||||
})
|
})
|
||||||
|
|
||||||
if (is.null(ctc)) {
|
if (is.null(ctc) & !is.null(cc)) {
|
||||||
colnames(cc) <- colnames(dat)[-nc]
|
colnames(cc) <- colnames(dat)[-nc]
|
||||||
if (espresso) {
|
if (espresso) {
|
||||||
soles <- apply(
|
soles <- apply(
|
||||||
|
|
Loading…
Add table
Reference in a new issue