R語言中，簡單的S3和S4類的定義

成都創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務領域包括：成都網(wǎng)站建設、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的河南網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴！

# 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

另外有需要云服務器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應用場景需求。

網(wǎng)站標題：R語言中，簡單的S3和S4類的定義-創(chuàng)新互聯(lián)
當前URL：http://jinyejixie.com/article30/cshppo.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、定制開發(fā)、品牌網(wǎng)站設計、用戶體驗、面包屑導航、云服務器

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)