The R Project SVN R

Rev

Rev 89361 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89361 Rev 89646
Line 136... Line 136...
136 
(szc <- summary(z, polar = FALSE)) # Re(.) and  Im(.)
 136 
(szc <- summary(z, polar = FALSE)) # Re(.) and  Im(.)
137 
\dontshow{
 137 
\dontshow{
138 
stopifnot(all.equal(as.vector(szp), c( 1, (1+sqrt(2))/2, sqrt(2), pi*c(-3/4, 1/8, 1),  2)),
 138 
stopifnot(all.equal(as.vector(szp), c( 1, (1+sqrt(2))/2, sqrt(2), pi*c(-3/4, 1/8, 1),  2)),
139 
          all.equal(as.vector(szc), c(-1,       0,         1,           -1,   0,  1,   2)))
 139 
          all.equal(as.vector(szc), c(-1,       0,         1,           -1,   0,  1,   2)))
140 
}
 140 
}
141 
## treatment of raw -- experimental, via <integer> (since R 4.6.0):
 141 
summary(rx <- as.raw(1.5*x)) # default:  only {length(), class(), mode()}
142 
summary(rx <- as.raw(1.5*x))
 - 
 
143 
## more useful for data than R <= 4.5.x 's
 - 
 
144 
## Length  Class   Mode
- 
 
145 
##    100    raw    raw
- 
 
146 
}
 142 
}
147 
\keyword{methods}
 143 
\keyword{methods}