The R Project SVN R

Rev

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

Rev 61160 Rev 61168
Line 110... Line 110...
110
str(1:12)
110
str(1:12)
111
str(ls)
111
str(ls)
112
str(args) #- more useful than  args(args) !
112
str(args) #- more useful than  args(args) !
113
str(freeny)
113
str(freeny)
114
str(str)
114
str(str)
115
str(.Machine, digits.d = 20)# extra digits for identification of binary numbers
115
str(.Machine, digits.d = 20) # extra digits for identification of binary numbers
116
str( lsfit(1:9,1:9))
116
str( lsfit(1:9, 1:9))
117
str( lsfit(1:9,1:9), max.level = 1)
117
str( lsfit(1:9, 1:9), max.level = 1)
118
str( lsfit(1:9,1:9), width = 60, strict.width = "cut")
118
str( lsfit(1:9, 1:9), width = 60, strict.width = "cut")
119
str( lsfit(1:9,1:9), width = 60, strict.width = "wrap")
119
str( lsfit(1:9, 1:9), width = 60, strict.width = "wrap")
120
op <- options(); str(op) # save first;
120
op <- options(); str(op)   # save first;
121
                         # otherwise internal options() is used.
121
                           # otherwise internal options() is used.
122
need.dev <-
122
need.dev <-
123
  !exists(".Device") || is.null(.Device) || .Device == "null device"
123
  !exists(".Device") || is.null(.Device) || .Device == "null device"
124
{ if(need.dev) postscript()
124
{ if(need.dev) postscript()
125
  str(par())
125
  str(par())
126
  if(need.dev) graphics.off()
126
  if(need.dev) graphics.off()
Line 148... Line 148...
148
 ##-- Some "crazy" objects
148
 ##-- Some "crazy" objects
149
 str(array(1:5, dim = 20))
149
 str(array(1:5, dim = 20))
150
 str(factor(character(0)))
150
 str(factor(character(0)))
151
 str(as.data.frame(NULL))
151
 str(as.data.frame(NULL))
152
}
152
}
153
str(quote( { A+B; list(C,D) } ))
153
str(quote( { A+B; list(C, D) } ))
154
 
154
 
155
% package attaching/detaching only when needed:
155
% package attaching/detaching only when needed:
156
\dontshow{
156
\dontshow{
157
had.stats4 <- "package:stats4" \%in\% search()
157
had.stats4 <- "package:stats4" \%in\% search()
158
if(!had.stats4)
158
if(!had.stats4)