The R Project SVN R

Rev

Rev 73972 | Rev 77944 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 73972 Rev 75263
Line 233... Line 233...
233 
##__with.start:
 233 
##__with.start:
234 
## failed to find n in 2.2.x
 234 
## failed to find n in 2.2.x
235 
## found wrong n in 2.3.x
 235 
## found wrong n in 2.3.x
236 
## finally worked in 2.4.0
 236 
## finally worked in 2.4.0
237 
##__no.start: failed in 3.0.2
 237 
##__no.start: failed in 3.0.2
- 
 
 238 
## 2018-09 fails on macOS with Accelerate framework.
238 
stopifnot(all.equal(.n(t1[[1]]), .n(t1[[2]])))
 239 
stopifnot(all.equal(.n(t1[[1]]), .n(t1[[2]])))
239 
rm(a,b)
 240 
rm(a,b)
240 
t2 <- test(FALSE)
 241 
t2 <- test(FALSE)
241 
stopifnot(all.equal(lapply(t1, .n),
 242 
stopifnot(all.equal(lapply(t1, .n),
242 
		    lapply(t2, .n), tolerance = 0.16))# different random error
 243 
		    lapply(t2, .n), tolerance = 0.16))# different random error