The R Project SVN R

Rev

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

Rev 25118 Rev 26000
Line 117... Line 117...
117 
  discussion of details and ongoing development, see the web page
117 
  discussion of details and ongoing development, see the web page
118 
  \url{http://developer.r-project.org/methodsPackage.html} and the
 118 
  \url{http://developer.r-project.org/methodsPackage.html} and the
119 
  pointers from that page.
 119 
  pointers from that page.
120 
}
 120 
}
121 
\examples{
 121 
\examples{
122 
\testonly{  require(modreg)
 122 
\dontshow{  require(modreg)
123 
  setClass("track",
 123 
  setClass("track",
124 
    representation(x="numeric", y = "numeric"))
 124 
    representation(x="numeric", y = "numeric"))
125 
  setClass("trackCurve", representation("track",
 125 
  setClass("trackCurve", representation("track",
126 
    smooth = "numeric"))
 126 
    smooth = "numeric"))
127 
  setClass("trackMultiCurve", representation(x="numeric", y="matrix", smooth="matrix"),
 127 
  setClass("trackMultiCurve", representation(x="numeric", y="matrix", smooth="matrix"),
Line 186... Line 186...
186 
## The method definition can include the arguments, but
 186 
## The method definition can include the arguments, but
187 
## if they're omitted, class "missing" is assumed.
 187 
## if they're omitted, class "missing" is assumed.
188 
 
 188 
 
189 
setMethod("summary", "missing", function() "<No Object>")
 189 
setMethod("summary", "missing", function() "<No Object>")
190 
 
 190 
 
191 
\testonly{
 191 
\dontshow{
192 
 
 192 
 
193 
stopifnot(identical(summary(), "<No Object>"))
 193 
stopifnot(identical(summary(), "<No Object>"))
194 
 
 194 
 
195 
## for the primitives
 195 
## for the primitives
196 
## inherited methods
 196 
## inherited methods