The R Project SVN – R – Diff – /trunk/tests/reg-large.R

Rev 85820		Rev 88200
Line 410...		Line 410...
410	`head(r)`	410	`head(r)`
411	`stopifnot(r[1:6] == 1:6)`	411	`stopifnot(r[1:6] == 1:6)`
412	`rm(r,x)`	412	`rm(r,x)`
413		413
414	`## rank(<largish) -- PR#18630`	414	`## rank(<largish) -- PR#18630`
415	`vals <- 1:1475000000 # (immedate, thanks to ALTREP)`	415	`vals <- 1:1475000000 # (immediate, thanks to ALTREP)`
416	`system.time( ranks <- rank(vals) ) # ~ 130 sec`	416	`system.time( ranks <- rank(vals) ) # ~ 130 sec`
417	`head(ranks, 11)`	417	`head(ranks, 11)`
418	`stopifnot(ranks[1:11] == 1:11, min(ranks) == 1)`	418	`stopifnot(ranks[1:11] == 1:11, min(ranks) == 1)`
419	`## min(ranks) was -1073741824, in R <= 4.3.2`	419	`## min(ranks) was -1073741824, in R <= 4.3.2`
420		420

The R Project SVN R