Question

我是第一次尝试在R中创建一个新类，我很难。

问题

你能否告诉我如何创建一个继承自类＆＃34; data.frame＆＃34;的类？但只能包含名为col1，col2和col3的3列。所有列必须是＆＃34;数字＆＃34;并且col1 + col2 = col3的关系必须成立。

用户可以

ClassName(col1 = rep(10,10), col2 = 1:10)

或

ClassName(col1 = rep(10,10), col3 = 11:20)

或

ClassName(col2 = 1:10, col3 = 11:20)

创建此类的对象。所有上述行都会产生类似的输出

data.frame(col1 = rep(10,10), col2 = 1:10, col3 = rep(10,10)+(1:10))
   col1 col2 col3
1    10    1   11
2    10    2   12
3    10    3   13
4    10    4   14
5    10    5   15
6    10    6   16
7    10    7   17
8    10    8   18
9    10    9   19
10   10   10   20

我尝试了什么

这是我到目前为止所做的一切。

setClass("newClass", representation(col1="numeric",col2="numeric",col3="numeric"), contains="numeric")

calc.newClass = function(obj)
{
    if (length(obj@col1)==0)
    {
        return(new("newClass", col1=obj@col3-obj@col2, col2=obj@col2, col3=obj@col3)    )
    }
    if (length(obj@col2)==0)
    {
        return(new("newClass", col1=obj@col1, col2=obj@col3-obj@col1, col3=obj@col3)    )
    }
    if (length(obj@col3)==0)
    {
        return(new("newClass", col1=obj@col1, col2=obj@col2, col3=obj@col1+obj@col2)    )
    }

}

o = calc.newClass(new("newClass", col1=rep(10,10), col3=11:20))

我未能

继承自＆＃34; data.frame＆＃34;
强制执行＆＃34; calc＆＃34;在构建新对象时自动应用类。

Answer 1

也许只是做一个S3类：

myclass <- function(col1, col2) {
  if (missing(col2)) { stopifnot(is.numeric(col1)); col2 <- col1*2 }
  if (missing(col1)) { stopifnot(is.numeric(col2)); col1 <- col2/2 }
  structure(data.frame(col1, col2), class = c("myclass", "data.frame"))
}
(res <- myclass(col2=1:3))
#   col1 col2
# 1  0.5    1
# 2  1.0    2
# 3  1.5    3
class(res)
# [1] "myclass"    "data.frame"

(res <- myclass(col1=1:3))
#   col1 col2
# 1    1    2
# 2    2    4
# 3    3    6

(res <- myclass(col1=letters[1:3]))
# Error: is.numeric(col1) ist nicht TRUE

(res <- myclass())
# Error in stopifnot(is.numeric(col1)) : 
#   argument "col1" is missing, with no default

R：为＆＃34; data.frame＆＃34;创建新的后代。具体的构造函数

1 个答案: