S3类 - 将数据帧转换为对象

Question

我正在使用数据集（具有5个变量和20000个观测值的数据框）来制作S3类。我想创建一个名为“LongData”的类，它描述了这个longData数据集的结构。然后我想设计类来表示“主题”，“访问”和“房间”的概念。

此外，一旦我定义了类，我想实现以下函数

first_func：将数据帧转换为“LongData”对象的函数 subject：用于提取特定主题信息的通用函数 visit：用于提取特定于访问的信息的通用函数 room：提取房间特定信息的通用功能

但是，按照您的学生示例，我无法定义我的课程。我有点困惑，我应该如何解决这个问题。

但是，我没有得到正确的约会日期。然后如上所述如何查看以下功能的数据。

LongData <- function(id, visit, room) {
  out <- list(id= id, visit = visit, room = room
 ,data=data.frame(id = id, visit = visit, room = room))
  class(out) <- "LongData"
  invisible(out)
}

## I want to  make a generic function for extracting customer-specific information
cumstomer <- function(qlist, value) {
    for(i in qlist) {   
        if (value %in% i) { 
            return(i)
        } else {
            return("none")
        }
    }
}

## generic print function 
print.LongData <- function(object) {
    cat("\nID =", object$id,
    "\nVisit =", object$visit, 
    "\nRoom =", object$room,  "\n") 
}