R语言中，简单的S3和S4类的定义-创新互联

R语言中，简单的S3和S4类的定义

成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站建设、成都做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的河南网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

# S3 class

newstudent <- function(sid, sname, ssex){

 tmp <- list(id = sid, name = sname, sex = ssex)

 class(tmp) <- "student"

 return(tmp)

}

print.student <- function(st){

 cat(st$id, "\n")

 cat(st$name, "\n")

 cat(st$sex, "\n")

}

st = newstudent(11, "jack", "male")

#print(st)

st

# S4 class

setClass("student",

     representation(

      id = "numeric",

      name = "character",

      sex = "character"

     ))

# print is not a S4 generic. show methods are mapped to print for convenience, though.

setMethod("show", "student",

     function(object){

      cat(object@id, "\n")

      cat(object@name, "\n")

      cat(object@sex, "\n")

     })

st = new("student", id = 41, name = "tom",  sex = "male")

#print(st)

st

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

网站标题：R语言中，简单的S3和S4类的定义-创新互联
当前URL：https://www.cdcxhl.com/article30/cshppo.html

成都网站建设公司_创新互联，为您提供网站收录、定制开发、品牌网站设计、用户体验、面包屑导航、云服务器

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联