2017-09-28 12 views
0

안녕하세요, 하위 공간 클래스의 데이터 값을 바꿀 수있는 능력을 가진 '부분 공간'클래스를 만들려고합니다. 다음과 같은 사항이 있지만 여전히 오류가 발생합니다. 누구든지 도와 줄 수 있습니까?S4 설정 <- 메소드 오류. 존재하지 않는 정의 함수

65 # CLASS CREATION OF SUBSPACE 
66 #| 
67 #| SUBSPACE CLASS                    
68 #| Nik Pocuca July 21th - 2017                 
69 #| Definition of subspace of dataspace class. Each subspace conatins the dataset with the  | 
70 #| referenced partition, and a coupled lexicon vector.           
71 #|                        
72 #| 
73 subspace <- setClass(Class = "subspace", 
74 slots = c(
75 data = "data.frame", 
76 vectors = "Lexicon Vector" 
77)) 
78 
79 
80 # SETTING GENERICS FOR CLASSES 
81 setGeneric("updateSubspace", function(x)standardGeneric("updateSubspace")) 
82 
83 setGeneric("updateSubspace<-", function(x, value)standardGeneric("updateSubspace<-")) 
84 
85 
86 # SETTING METHODS FOR ACCESSING INFORMATION 
87 setMethod("$", "subspace", function(x, name) { 
88  slot(x, name) 
89 }) 
90 
91 
92 setMethod("updateSubspace", "subspace", function(x){ 
93   [email protected] 
94 }) 
95 
96 # SETTING REPLACE METHOD FOR REPLACING INFO 
97 
98 setReplaceMethod("updateSubspace",  c("subspace","data.frame"),function(x,newData) { 
99 [email protected] <- newData 
100 x 
101 }) 
102 
103 

나는 이것을 할 수있는 지점을 얻으려고 노력하고있다.

updateSubspace(partSpace) <- newData 

여기서 partSpace는 어떤 값을 가지고 있습니다. partSpace $ 데이터.

현재 나는이 오류가 무엇입니까 :

Error in setMethod("updateSubspace", "subspace", function(x) { : 
    no existing definition for function ‘updateSubspace’ 
> sourceCode() 
    Error in conformMethod(signature, mnames, fnames, f, fdef, 
definition) : 
    in method for ‘updateSubspace<-’ with signature 
‘x="subspace",value="data.frame"’: formal arguments (value = 
"data.frame") omitted in the method definition cannot be in the 
signature 

답변

0

나는 그것을 알아 냈 :

enter code here 
#Generic is like prototyping apparently. 

setGeneric("updateSub", function(x,newData) 
standardGeneric("updateSub")) 


# Setting Method 

setMethod("updateSub", function(x,newData) { 
[email protected] <- newData 
x 
}