The R Project SVN R

Rev

Rev 59039 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61433
Line 52... Line 52...
52 
}
 52 
}
53 
\examples{
 53 
\examples{
54 
## following the example shown in the setMethod documentation ...
 54 
## following the example shown in the setMethod documentation ...
55 
setClass("track",
 55 
setClass("track",
56 
         representation(x="numeric", y="numeric"))
 56 
         representation(x="numeric", y="numeric"))
57 
setClass("trackCurve",
57 
setClass("trackCurve",
58 
         representation("track", smooth = "numeric"))
 58 
         representation("track", smooth = "numeric"))
59 
 
 59 
 
60 
t1 <- new("track", x=1:20, y=(1:20)^2)
 60 
t1 <- new("track", x=1:20, y=(1:20)^2)
61 
 
 61 
 
62 
tc1 <- new("trackCurve", t1)
 62 
tc1 <- new("trackCurve", t1)