1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
useDynLib(robustbase, .registration=TRUE)# -> R >= 2.3.0
importFrom("graphics", plot)# < more ?
importFrom("stats", anova, coef, cov, family, fitted,
logLik, model.frame, predict, residuals, terms, vcov)
## ^^^^ MASS has a bit more; take it as example
##no longer: importFrom("MASS", psi.bisquare, psi.hampel, psi.huber)
## MASS has many rlm S3 methods; should we use some of them - for rnls() ?!
## we also currently use MASS::cov.rob(); but probably only temporarily
## Functions defined in this package
export(Sn, Qn, Qn.old,
s_Sn, s_Qn, s_mad, s_IQR,
summarizeRobWeights,
wgt.himedian,
h.alpha.n,
covMcd,
ltsReg,
tolEllipsePlot,
## RENAME ?!? :
covPlot, ltsPlot,
## NO! ddplot, distplot, chi2qqplot
rrcov.control,## << RENAME --- FIXME
huberM,
covOGK, covGK, hard.rejection, scaleTau2,
psiFunc, huberPsi,
## Not yet:
## hampelPsi,
## tukeyPsi, # = biweight / bisquare
tukeyChi, tukeyPsi1, # <- used by lmrob.*()
lmrob, lmrob.fit,
lmrob.fit.MM, lmrob..M..fit, lmrob..D..fit,
lmrob.S,
lmrob.control,
mc, # Mia Hubers's medcouple
adjbox,
adjboxStats,
adjOutlyingness,
glmrob,
nlrob,
glmrobMqle.control
)
## S3 methods for ``our own'' S3 generics:
S3method(ltsReg, default)
S3method(ltsReg, formula)
S3method(mc, default)
S3method(adjbox, default)
S3method(adjbox, formula)
## Register all the methods for S3 generics elsewhere
## in case namespace is loaded but not currently attached.
S3method(anova, lmrob)
S3method(anova, glmrob)
S3method(model.matrix, lmrob)
S3method(formula, nlrob)
S3method(fitted, nlrob)
S3method(plot, lts)
S3method(plot, mcd)
S3method(plot, lmrob)
S3method(predict, lmrob)
S3method(predict, glmrob)
S3method(predict, nlrob)
S3method(print, glmrob)
S3method(print, lts)
S3method(print, mcd)
S3method(print, nlrob)
S3method(print, lmrob)
S3method(print, summary.glmrob)
S3method(print, summary.lmrob)
S3method(print, summary.nlrob)
S3method(print, summary.lts)
S3method(residuals, nlrob)
S3method(residuals, glmrob)
S3method(summary, glmrob)
S3method(summary, lmrob)
S3method(summary, lts)
S3method(summary, mcd)
S3method(summary, nlrob)
S3method(vcov, glmrob)
S3method(vcov, lmrob)
##not there: S3method(print, summary.mcd)
if(getRversion() < "2.13") {
export(nobs)
S3method(nobs, lm)
S3method(nobs, glm)
if(getRversion() < "2.12") {
export(droplevels)
S3method(droplevels, factor)
S3method(droplevels, data.frame)
}
}
## S4 Generics {only those defined in this package}:
export(
chgDefaults
)
exportClasses(
"functionX", # function(x, <tune_par>): VECTORIZED in 'x'
"functionXal", # a functional: function of tuning par.s only
"psi_func" # containing rho(), psi(), psi'(), ...
)
exportMethods(
chgDefaults
)
|
