Как проверить, существует ли расширение mcrypt в php

Вы можете использовать функцию expand.grid ().

x <-c(1,2,3)
y <-c(100,200,300)
expand.grid(cond=x,rating=y)