# R/comval.R In robeth: R Functions for Robust Statistics

```"comval" <-
function() {
ipsi <- integer(1)
c <- single(1)
h1 <- single(1)
h2 <- single(1)
h3 <- single(1)
xk <- single(1)
d <- single(1)
bta <- single(1)
bt0 <- single(1)
iucv <- integer(1)
a2 <- single(1)
b2 <- single(1)
chk <- single(1)
ckw <- single(1)
bb <- single(1)
bt <- single(1)
cw <- single(1)
em <- single(1)
cr <- single(1)
vk <- single(1)
np <- integer(1)
enu <- single(1)
v7 <- single(1)
iwww <- integer(1)
f.res <- .Fortran("comvalz",
ipsi = as.integer(ipsi),
c = as.single(c),
h1 = as.single(h1),
h2 = as.single(h2),
h3 = as.single(h3),
xk = as.single(xk),
d = as.single(d),
bta = as.single(bta),
bt0 = as.single(bt0),
iucv = as.integer(iucv),
a2 = as.single(a2),
b2 = as.single(b2),
chk = as.single(chk),
ckw = as.single(ckw),
bb = as.single(bb),
bt = as.single(bt),
cw = as.single(cw),
em = as.single(em),
cr = as.single(cr),
vk = as.single(vk),
np = as.integer(np),
enu = as.single(enu),
v7 = as.single(v7),
iwww = as.integer(iwww))
list(ipsi = f.res\$ipsi, c = f.res\$c, h1 = f.res\$h1, h2 = f.res\$h2,
h3 = f.res\$h3, xk = f.res\$xk, d = f.res\$d, bta = f.res\$bta,
bt0 = f.res\$bt0, iucv = f.res\$iucv, a2 = f.res\$a2, b2 = f.res\$
b2, chk = f.res\$chk, ckw = f.res\$ckw, bb = f.res\$bb, bt = f.res
\$bt, cw = f.res\$cw, em = f.res\$em, cr = f.res\$cr, vk = f.res\$vk,
np = f.res\$np, iwww = f.res\$iwww)
}
```

## Try the robeth package in your browser

Any scripts or data that you put into this service are public.

robeth documentation built on Aug. 24, 2018, 5:06 p.m.