最近带学生实习课，需要抽同学回答问题，用R做了一个随机抽学生回答问题的小程序，欢迎拍砖~~
#random aske student to ansower question
reply=function(seed){
set.seed=as.numeric(seed)
fulist<-read.csv("d:/list.csv",header=T)
sid<-sample(fulist$code,1)
rep<-subset(fulist,fulist$code==sid)
rep}
reply(Sys.Date())

只需修改学生名单储存路径，并把学号名称改为code,即可拿来用~~
运行结果：