标签：type 入门 function sts nbsp 语言 zed cat time
mydata <- function(type) {
switch(type,
long = format(sys.time(),"%A %B %d %Y"),
short = format(sts.time(),"%m-%d-%y"),
cat(type,"is not recognized type\n")
)
}
标签：type 入门 function sts nbsp 语言 zed cat time
原文地址：http://www.cnblogs.com/modaidai/p/6668987.html
