# #设置,包括= FALSE ----------------------------------------------------- 库(knitr) knitr: opts_chunk设置(echo = TRUE) # #美元——coregx_load隐藏= TRUE,消息= FALSE ------------------------------------ 库(CoreGx)图书馆(Biobase)图书馆(SummarizedExperiment) # #——CoreSet_class ------------------------------------------------------------ getClass(“CoreSet ") ## ---- CoreSet_accessors -------------------------------------------------------- (class = " CoreSet方法 ") ## ---- the_cSet_object ---------------------------------------------------------- 数据(clevelandSmall_cSet) clevelandSmall_cSet # #——cSet_accessor_demo ------------------------------------------------------- mProf < - molecularProfiles (clevelandSmall_cSet rna) mProf [seq_len (5), seq_len (5 )] ## ---- cSet_accessor_demo1 ------------------------------------------------------ cInfo < - sampleInfo (clevelandSmall_cSet) cInfo [seq_len (5), seq_len (5 )] ## ---- cSet_accessor_demo2 ------------------------------------------------------ sensProf < - sensitivityProfiles (clevelandSmall_cSet) sensProf [seq_len (5),seq_len (5 )] ## ---- defining_a_new_class ----------------------------------------------------- DemoSet < - setClass(“DemoSet”,表示(demoSlot =“性格”),包含”=“CoreSet”)getClass (DemoSet ") ## ---- inherit_methods ---------------------------------------------------------- (class = " DemoSet方法 ") ## ---- defining_methods_for_a_new_class ----------------------------------------- clevelandSmall_dSet < - DemoSet (clevelandSmall_cSet)类(clevelandSmall_dSet@molecularProfiles [[rna的]])expressionSets < -拉普(molecularProfilesSlot (clevelandSmall_dSet)有趣=,'ExpressionSet') molecularProfilesSlot(clevelandSmall_dSet) <- expressionSets #现在这将错误tryCatch({molecarprofiles (clevelandSmall_dSet， 'rna')}，错误=函数(e)打印(粘贴("错误:“e美元消息 ))) ## ---- redefine_the_method ------------------------------------------------------ setMethod (molecularProfiles、签名(“DemoSet”)、功能(对象,mDataType) {pData (object@molecularProfiles [[mDataType ]]) }) ## ---- testing_new_method ------------------------------------------------------- # 现在我们测试新方法mProf < - molecularProfiles (clevelandSmall_dSet rna的)头(mProf) [seq_len (5),seq_len (5 )] ## ---- defining_setter_methods -------------------------------------------------- # 定义通用的setter方法setGeneric (demoSlot < -,函数(对象、价值)standardGeneric (demoSlot < -)) #定义一个setter方法setReplaceMethod (demoSlot,签名(对象=“DemoSet”,值=“性格”),函数(对象、价值){object@demoSlot < -价值回报(对象)})#允许添加一些我们demoSlot demoSlot (clevelandSmall_dSet) < - c(“这”,“是”,“”,“demoSlot ") ## ---- defining_getter_methods -------------------------------------------------- # 定义通用的getter方法setGeneric (demoSlot,函数(对象,…)standardGeneric(“demoSlot”))#定义一个getter方法setMethod(“demoSlot”,签名(“DemoSet”),函数(对象){粘贴(object@demoSlot,崩溃 =" ") }) # 测试我们的getter方法demoSlot (clevelandSmall_dSet) # #——sessionInfo -------------------------------------------------------------- sessionInfo ()