tests/howmany.r

library(memuse)

same <- function(a, b) stopifnot(all.equal(a, b))

x = mu(1000000)
hm = howmany(x)
same(hm, c(353, 353))

hm = howmany(x, 1000)
same(hm, c(1000, 125))

hm = howmany(x, ncol=1000)
same(hm, c(125, 1000))

Try the memuse package in your browser

Any scripts or data that you put into this service are public.

memuse documentation built on Feb. 16, 2023, 6:36 p.m.