The R Project SVN R

Rev

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

Rev 24331 Rev 25249
Line 206... Line 206...
206 
summary(attenu) # ``one line''
 206 
summary(attenu) # ``one line''
207 
lst <- levels(attenu$station)
 207 
lst <- levels(attenu$station)
208 
levels(attenu$station)[lst == "117"] <- paste(rep(letters,3),collapse="")
 208 
levels(attenu$station)[lst == "117"] <- paste(rep(letters,3),collapse="")
209 
summary(attenu) # {2 + one long + 2 } variables
 209 
summary(attenu) # {2 + one long + 2 } variables
210 
## in 1.7.0, things were split to more lines
 210 
## in 1.7.0, things were split to more lines
- 
 
 211 
 
- 
 
 212 
## format.default(*, nsmall > 0)  -- for real and complex
- 
 
 213 
 
- 
 
 214 
sf <- function(x, N=14) sapply(0:N, function(i) format(x,nsmall=i))
- 
 
 215 
sf(2)
- 
 
 216 
sf(3.141)
- 
 
 217 
sf(-1.25, 20)
- 
 
 218 
 
- 
 
 219 
oDig <- options(digits= 3)
- 
 
 220 
sf(pi)
- 
 
 221 
sf(1.2e7)
- 
 
 222 
sf(1.23e7)
- 
 
 223 
s <- -0.01234
- 
 
 224 
sf(s)
- 
 
 225 
 
- 
 
 226 
sf(pi + 2.2i)
- 
 
 227 
sf(s + pi*1i)
- 
 
 228 
 
- 
 
 229 
options(oDig)