Ideone.com

fork download

x <- as.integer(runif(10000) * 5)
y <- as.integer(runif(10000) * 5)
tapply(rep(1, 10000), list(x, y), length)

Success #stdin #stdout 0.47s 24152KB

stdin

Standard input is empty

stdout

    0   1   2   3   4
0 374 398 406 393 429
1 398 391 374 392 370
2 365 431 393 394 371
3 422 370 418 434 422
4 413 420 397 421 404

https://ideone.com/VShvuM

language:

R (R 3.5.2)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!