R语言sample函数的应用——扑克牌洗牌发牌问题

如何用R语言模拟两幅扑克牌，发给四个玩家？
（概率与分布，sample（）函数，基本语法格式，x可以是数组，向量）