The R Project SVN R

Rev

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

Rev 23591 Rev 23645
Line 1... Line 1...
1 
 
 1 
 
2 
R : Copyright 2003, The R Development Core Team
 2 
R : Copyright 2003, The R Development Core Team
3 
Version 1.7.0 Under development (unstable) (2003-03-11)
 3 
Version 1.7.0 Under development (unstable) (2003-03-14)
4 
 
 4 
 
5 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 5 
R is free software and comes with ABSOLUTELY NO WARRANTY.
6 
You are welcome to redistribute it under certain conditions.
 6 
You are welcome to redistribute it under certain conditions.
7 
Type `license()' or `licence()' for distribution details.
 7 
Type `license()' or `licence()' for distribution details.
8 
 
 8 
 
Line 22... Line 22...
22 
> ####	 ~~~~~~~~~~~~~~~~~~~~~~~~~
 22 
> ####	 ~~~~~~~~~~~~~~~~~~~~~~~~~
23 
>
23 
>
24 
> bpos <- match("package:base",search())
 24 
> bpos <- match("package:base",search())
25 
> nn <- ls(pos=bpos)
 25 
> nn <- ls(pos=bpos)
26 
> length(nn) # 844 [R 0.62.0, March 25, 1998;  1067 R 0.64.0 March 1999]
 26 
> length(nn) # 844 [R 0.62.0, March 25, 1998;  1067 R 0.64.0 March 1999]
27 
[1] 1612
 27 
[1] 1636
28 
>
28 
>
29 
> is.primitive <- function (obj) is.function(obj) && is.null(args(obj))
 29 
> is.primitive <- function (obj) is.function(obj) && is.null(args(obj))
30 
> is.special <- function(obj) typeof(obj) == "special"
 30 
> is.special <- function(obj) typeof(obj) == "special"
31 
>
31 
>
32 
> Primf <- nn[sapply(nn, function(N) is.primitive(get(N, pos=bpos)))]
 32 
> Primf <- nn[sapply(nn, function(N) is.primitive(get(N, pos=bpos)))]
33 
> length(Primf) ## 195  R 0.62.0, March 25, 1998
 33 
> length(Primf) ## 195  R 0.62.0, March 25, 1998
34 
[1] 153
 34 
[1] 151
35 
> ## 132	R 0.62.2+
 35 
> ## 132	R 0.62.2+
36 
> Real.primitives <-
 36 
> Real.primitives <-
37 
+     list(
 37 
+     list(
38 
+ 	 specials = c("{", "(", "if", "for", "while", "repeat", "break", "next",
 38 
+ 	 specials = c("{", "(", "if", "for", "while", "repeat", "break", "next",
39 
+ 	 "return", "function", "quote",
 39 
+ 	 "return", "function", "quote",
Line 81... Line 81...
81 
+
81 
+
82 
+ 	 language3=
 82 
+ 	 language3=
83 
+ 	 c("environment<-",
 83 
+ 	 c("environment<-",
84 
+ 	   "length",	"length<-",
 84 
+ 	   "length",	"length<-",
85 
+ 	   "class",	"class<-",
 85 
+ 	   "class",	"class<-",
86 
+ 	   "dataClass", "objWithClass",
 - 
 
87 
+ 	   "attr", # again
 86 
+ 	   "attr", # again
88 
+ 	   "attr<-",
 87 
+ 	   "attr<-",
89 
+ 	   "attributes",	"attributes<-",
 88 
+ 	   "attributes",	"attributes<-",
90 
+ 	   "dim",		"dim<-",
 89 
+ 	   "dim",		"dim<-",
91 
+ 	   "dimnames",	"dimnames<-",
 90 
+ 	   "dimnames",	"dimnames<-",