想形成一个0:1随机数组成的矩阵。这个函数用数字直接带入能正常运行。
但是，转化成函数形式，能运行，却无法返回sam矩阵。总是显示找不到对象‘sam’。

toss<-function(n,k){
sam<-matrix(sample(0:1,n*k,replace=TRUE),nr=k,nc=n)}