#R#简单的抽签

午饭,公司点餐,现在都是一个人在点。为了增加点乐趣,大家觉得抽签。所以,搞了个简单的不能再简单的东西了,见R code:

 person.sample <- function(person,type)
{

# type=T,是有放回抽签;Type=F,是不放回抽签,可以自己选择是否有放回;

#person,待抽签的人名List


# perface
print("让我们开始抽签吧!")
print("===============================")
print("抽到的同学,依次为:")

set.seed(as.numeric(Sys.time()))

# sample
sample.data <- sample(1:length(person),length(person),replace=type)

#print

i <- 1:length(person)

print(paste(i,person[sample.data],sep=":",collapse=";"))

print("抽签完毕")
print("=================================")
print("如果不满意,请打10086咨询!!!!")

 }


你可能感兴趣的:(R)