如何数组/列表添加到对象

Question

我创建了一个学生类：

setClass("student", slots=list(name="character", age="numeric", GPA="numeric")) 

现在我想创建另一个类：

setClass("classRoom", slots=list(id = "numeric"),contains = "student") 

唯一的问题是不是一个学生，我想要添加学生列表。

我该如何做到这一点？

Answer 1

我想你已经达到了你想要的。 在classRoom中添加学生课程可以访问班级学生的所有属性。您现在可以在班级中输入具有班级学生属性的新学生。

# define a class called student 
setClass("student", slots=list(name="character", age="numeric", GPA="numeric")) 

# inherit from student 
setClass("classRoom", slots=list(id = "numeric"),contains = "student") 

# Now create new objects of classroom: 
> s1 <- new("classRoom",name="John", age=21, GPA=3.5, id=001) 
> s2 <- new("classRoom",name="Grisham", age=24, GPA=345, id=002) 
> s3 <- new("classRoom",name="Flamingo", age=22, GPA=3.8, id=003) 

像这样，您已经在您的课室中添加了学生。