Vectors of S4 Classes

I have a function from which I wish to return two vectors of equal length of
a class

eg

setClass("ClassOne", representation(x="numeric"))

[1] "ClassOne"

first<-new("ClassOne", x=1)
second<-new("ClassOne",x=2)
first<-rbind(first,second)
first

first
second

Is it possible to create vector or list of an S4 class?

Phineas

version

_
platform i386-pc-mingw32
arch     i386
os       mingw32
system   i386, mingw32
status
major    2
minor    1.0
year     2005
month    04
day      18
language R