The R Project SVN R

Rev

Rev 74873 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 74873 Rev 88536
Line 1... Line 1...
1 
#  Copyright (C) 1997-2018 The R Core Team
 1 
#  Copyright (C) 1997-2025 The R Core Team
2 
 
 2 
 
3 
### The Base package has a couple of non-functions:
 3 
### The Base package has a couple of non-functions:
4 
##
 4 
##
5 
## These may be in "base" when they exist;  discount them here
 5 
## These may be in "base" when they exist;  discount them here
6 
## (see also  'dont.mind' in checkConflicts() inside library()) :
 6 
## (see also  'dont.mind' in checkConflicts() inside library()) :
Line 131... Line 131...
131 
 
 131 
 
132 
is.ALL(numeric(0), true=TRUE)
 132 
is.ALL(numeric(0), true=TRUE)
133 
is.ALL(array(1,1:3), true=TRUE)
 133 
is.ALL(array(1,1:3), true=TRUE)
134 
is.ALL(cbind(1:3), true=TRUE)
 134 
is.ALL(cbind(1:3), true=TRUE)
135 
 
 135 
 
136 
is.ALL(structure(1:7, names = paste("a",1:7,sep="")))
 136 
is.ALL(structure(1:7, names = paste0("a",1:7)))
137 
is.ALL(structure(1:7, names = paste("a",1:7,sep="")), true.only = TRUE)
 137 
is.ALL(structure(1:7, names = paste0("a",1:7)), true.only = TRUE)
138 
 
 138 
 
139 
x <- 1:20 ; y <- 5 + 6*x + rnorm(20)
 139 
x <- 1:20 ; y <- 5 + 6*x + rnorm(20)
140 
lm.xy <- lm(y ~ x)
 140 
lm.xy <- lm(y ~ x)
141 
is.ALL(lm.xy)
 141 
is.ALL(lm.xy)
142 
is.ALL(structure(1:7, names = paste("a",1:7,sep="")))
 142 
is.ALL(structure(1:7, names = paste0("a",1:7)))
143 
is.ALL(structure(1:7, names = paste("a",1:7,sep="")), true.only = TRUE)
 143 
is.ALL(structure(1:7, names = paste0("a",1:7)), true.only = TRUE)