參數和類中的R

Question

寫入（通用）功能，我想作一個小小的[R包裝出來的一些非常簡單的功能。我使用的文獻是「創建R包：教程」和「編寫R擴展」。儘管我嘗試過，但我並不真正理解泛型函數和方法的概念，以及如何處理不同函數中的參數。

這裏我的代碼看起來像一個小例子：

#Make generic function 
f <- function(x,...) UseMethod("newmethod") 

#Default method 
f.default <- function(a,b=5,c=3,...){ 
    out <- a+b+c 
    class(out) <- "fclass" 
} 

# Print method 
print.f <- function(x,...){ 
    cat("Result:") 
    print(x) 
} 

# Summary method 
summary.f <- function(object,...){ 
    res <- object 
    class(res) <- "fsummary" 
    print(res) 
} 

# Plot method 
plot.f <-function(x,p=0.3,...){} 

我有一個所謂的F帶有默認f.default功能。其實我的函數需要幾個參數（非它們被定義爲x），所以我該如何使我的泛型函數？ 打印方法應該簡單地打印f.default的輸出（在簡單情況下類似於彙總輸出）。 plot.f方法使用f.default的輸出和一個附加參數（強制性）。我該如何正確編寫這些功能？通常的方法使用「object」和「x」等參數......但正如我所說的，我的函數中不需要任何變量x ......我有點困惑......也許有人可以提供幫助。

如果有一個人在那裏如何願意幫我解決這個問題，我也可以發送「真正的」 R代碼（不只是這個虛構的例子）。

Answer 1

你得進到這裏亂七八糟......

首先，你的構造函數可能不應該是通用/方法。喜歡的東西：

makefclass = function(a,b,c){ 
     l = list(a=a,b=b,c=c) 
     class(l)="fclass" 
     return(l) 
     } 

然後，你可以寫print.fclass：

print.fclass=function(x,...){ 
    cat("I'm an fclass!") 
    cat("my abc is ",x$a,x$b,x$c,"\n") 
} 

然後你做：

> f=makefclass(1,2,3) 
> f 
I'm an fclass!my abc is 1 2 2 

希望幫助...

Answer 2

，我已經修復你的代碼，並在我所固定的一些意見...

UPDATE正如@Spacedman指出的那樣，「構造函數」函數可能不是通用的。但我會保留在這裏，所以你看到如何完成一個通用功能。

#Make generic function 
# This is the "constructor" function... 
# ... UseMethod should have the name of the function! 
f <- function(x,...) UseMethod("f") 

#Default method 
# ... The class name should be the same as the constructor 
f.default <- function(a,b=5,c=3,...){ 
    out <- a+b+c 
    class(out) <- "f" 
    out # must return the object out, not the class name! 
} 

# Print method 
# The "f" part of "print.f" must be the same as the class! 
print.f <- function(x,...){ 
    cat("Result for f: ") 
    print(unclass(x)) # Must unclass to avoid infinite recursion 
    # NextMethod(x) # Alternative, but prints the class attribute... 
} 

# Summary method 
# Should return a summary object (and not print it!) 
# Need a unique class for it ("fsummary") 
summary.f <- function(object,...){ 
    res <- object 
    class(res) <- "fsummary" 
    res 
} 

# Now need to print the summary too: 
print.fsummary <- function(x, ...) { 
    cat("f summary!\n") 
    # Nice summary print goes here... 
} 

# Plot method 
plot.f <-function(x,p=0.3,...){ cat("PLOTTING!\n") } 

# Try it out: 

x <- f(3) 
x # print x 

y <- summary(x) # 
y # print summary 

plot(x)