/dports/math/R-cran-VGAM/VGAM/R/ |
H A D | family.robust.R | 26 zedd <- (x - mu) / sigma functionVar 33 val[zedd < (-k)] <- (log(ceps) + log(fk) + ( k * (zedd+k)))[zedd < (-k)] 34 val[zedd > (+k)] <- (log(ceps) + log(fk) + (-k * (zedd-k)))[zedd > (+k)] 36 val <- (ceps) * dnorm(zedd) 37 val[zedd < (-k)] <- ((ceps) * fk * exp( k * (zedd + k)))[zedd < (-k)] 38 val[zedd > (+k)] <- ((ceps) * fk * exp(-k * (zedd - k)))[zedd > (+k)] 153 zedd <- (q - mu) / sigma functionVar 154 x <- -abs(zedd) 326 cond2 <- (abs(zedd) <= myk) 327 cond3 <- (zedd > myk) [all …]
|
H A D | family.exp.R | 412 zedd <- (x - location) / scale functionVar 413 zedd[scale <= 0] <- NaN 434 zedd <- (q - location) / scale functionVar 435 zedd[scale <= 0] <- NaN 439 ans <- log(0.5) + log1p(zedd / sqrt(4 + zedd^2)) 443 ans <- 0.5 * (1 + zedd / sqrt(4 + zedd^2)) 449 ans <- log(0.5) + log1p(-zedd / sqrt(4 + zedd^2)) 453 ans <- 0.5 * exp(log1p(-zedd / sqrt(4 + zedd^2))) 688 zedd <- (y - locat) / Scale functionVar 690 dl.dlocat <- 3 * zedd / (Scale * (4 + zedd^2)) [all …]
|
H A D | family.extremes.R | 555 A <- 1 + shape * zedd 1058 dA.dshape <- zedd 1161 logdensity <- -zedd - exp(-zedd) - log(scale) 1523 xok <- (!scase) & (zedd > 0) & (1 + shape*zedd > 0) 1526 outofbounds <- (!scase) & ((zedd <= 0) | (1 + shape*zedd <= 0)) 1573 pos <- (zedd >= 0) 2541 ell1 <- -log(sc[cen0]) - zedd[cen0] - exp(-zedd[cen0]) 2565 ezedd <- exp(-zedd) 2595 d2l.dsc2 <- (2 - zedd) * zedd * ezedd / sc^2 3089 temp200 <- dnorm(zedd) / (1-pnorm(zedd)) [all …]
|
H A D | profilevglm.R | 129 zedd <- 0 functionVar 135 abs(zedd) < zmax) { 170 zedd <- sgn * sqrt(zee) 171 zi <- c(zi, zedd)
|
H A D | family.others.R | 1320 zedd <- (x - location) / scale functionVar 1326 logdensity[zedd > 0] <- log.s2[zedd > 0] 1342 zedd <- (q - location) / scale functionVar 1348 ans <- rep_len(0.0, length(zedd)) 1349 ans[zedd <= 0] <- s1[zedd <= 0] 1350 ans[zedd > 0] <- s2[zedd > 0] 1544 zedd <- (y - mylocat) / myscale functionVar 1545 cond2 <- (zedd > 0) 1741 zedd <- (y - mylocat) / myscale functionVar 1742 cond2 <- (zedd > 0) [all …]
|
H A D | wald0.R | 187 zedd <- zee # sgn * sqrt(zee) functionVar 188 signed.Lrt.0[kay] <- sqrt(zedd) * 190 Lrt.0[kay] <- zedd
|
H A D | s.vam.q | 13 s.vam <- function(x, zedd, wz, smomat, which, smooth.frame, bf.maxit = 10, argument 158 y = as.double(zedd), wz = as.double(wz), 193 dim(fit$y) <- dim(zedd) 194 dimnames(fit$y) <- dimnames(zedd)
|
H A D | family.normal.R | 675 zedd <- (y-mymu) / mysd functionVar 1861 ans <- exp(2 * (log(abs(zedd)) + dnorm(zedd, log = TRUE)) - 1883 zedd <- (y - mum) / sdm functionVar 1884 dl.dmu <- zedd / sdm 3034 zedd <- (y - mu) / sdev functionVar 3547 zedd <- y*alpha functionVar 3548 tmp76 <- pnorm(zedd) 3549 tmp86 <- dnorm(zedd) 3562 zedd <- ysim*alpha 3563 tmp76 <- pnorm(zedd) [all …]
|
H A D | rrvglm.fit.q | 280 bf.call <- expression(vlm.wfit(xmat = X.vlm.save, zedd, 289 zedd <- as.matrix(z) functionVar 291 zedd[, Index.corner] <- zedd[, Index.corner] - latvar.mat 293 zedd <- z
|
H A D | family.univariate.R | 5106 zedd <- (y - Loc) / Sca functionVar 5174 temp1 <- temp0 * zedd^2 5175 dl.dloc <- (Dof + 1) * zedd / (Sca * (Dof + zedd^2)) 5407 zedd <- (y - Loc) / Sca functionVar 5476 dl.dlocat <- (Dof + 1) * zedd / (Sca * (Dof + zedd^2)) 6877 zedd <- (y-a)/b functionVar 6879 dl.db <- (zedd * (exp(zedd) - k) - 1) / b 7288 zedd <- (q / scale)^d functionVar 9570 temp100 <- 1 + zedd 10657 ezedd <- exp(-zedd) [all …]
|
H A D | family.aunivariate.R | 1744 zedd <- (x-mu)/sigma functionVar 1746 ifelse(abs(zedd) < smallno, 1748 log1p(-exp(-zedd^2/2)) - log(sqrt(2*pi)*sigma*zedd^2)) 1750 ifelse(abs(zedd) < smallno, 1752 -expm1(-zedd^2/2)/(sqrt(2*pi)*sigma*zedd^2)) 1782 zedd <- (q - mu)/sigma functionVar 1792 zedd[ii] <= 0.0) { 1919 zedd <- (y-mu)/sigma functionVar 1962 zedd <- (y - mu) / sigma functionVar 2016 zedd <- (y - mu) / sigma functionVar [all …]
|
H A D | family.qreg.R | 34 zedd <- ((x/mu)^lambda - 1) / (lambda * sigma) functionVar 42 logden <- dnorm(zedd, log = TRUE) + log.dz.dy 252 z2m1 <- zedd * zedd - 1 254 dl.dlambda <- zedd * (zedd - log(y/mymu) / sigma) / lambda - 3118 zedd <- abs(ymat - locat) / Scale functionVar 3478 zedd <- abs(ymat-locat) / Scale functionVar 3663 zedd <- abs(y - locat) / Scale functionVar 3721 zedd <- (q - location) / scale functionVar 3739 ans <- ifelse(q < location, 0.5 * exp(zedd), 1 - 0.5 * exp(-zedd)) 3746 ans <- ifelse(q < location, 1 - 0.5 * exp(zedd), 0.5 * exp(-zedd)) [all …]
|
H A D | family.rcim.R | 1320 zedd <- abs(qnorm((1 - conf.level) / 2)) functionVar 1321 lsd.tops <- estimates + zedd * QuasiSE / sqrt(2) 1322 lsd.tails <- estimates - zedd * QuasiSE / sqrt(2)
|
H A D | vsmooth.spline.q | 391 zedd.c <- matrix(0, neff, ncb) 399 zedd.c[ii, ] <- solve(Wmat.c[,, ii], 401 wzyb.c[ii, ] <- one.Wmat.c %*% zedd.c[ii, ]
|
H A D | cao.fit.q | 613 smooth.frame <- s.vam(x = nu1mat, zedd = NULL, 678 etamat = as.double(usethiseta), fv = double(NOS*n), zedd = double(n*M), 786 wresiduals = ans1$zedd - t(ans1$etamat), # n x M 887 smooth.frame <- s.vam(x = nu1mat, zedd = NULL, wz = NULL, 978 zedd = double(n*M), 1020 assign(".VGAM.CAO.z", ans1$zedd, envir = VGAMenv) 1071 wresiduals = ans1$zedd - t(ans1$etamat), # n x M
|
H A D | family.rrr.R | 359 M <- ncol(zedd <- as.matrix(z)) functionVar 371 zedd[,Index.corner] <- zedd[,Index.corner] - latvar.mat 383 zedd[, i5, drop = FALSE], 399 zedd, Hlist = clist2, U = U,
|
/dports/math/R-cran-VGAM/VGAM/man/ |
H A D | biamhcopUC.Rd | 62 zedd <- dbiamhcop(ox[, 1], ox[, 2], apar = apar) 64 contour(x, x, matrix(zedd, N, N), col = "blue") 65 zedd <- pbiamhcop(ox[, 1], ox[, 2], apar = apar) 66 contour(x, x, matrix(zedd, N, N), col = "blue")
|
H A D | bifgmcopUC.Rd | 63 zedd <- dbifgmcop(ox[, 1], ox[, 2], apar = apar) 64 contour(x, x, matrix(zedd, N, N), col = "blue") 65 zedd <- pbifgmcop(ox[, 1], ox[, 2], apar = apar) 66 contour(x, x, matrix(zedd, N, N), col = "blue")
|
H A D | biplackettcopUC.Rd | 70 zedd <- dbiplackcop(ox[, 1], ox[, 2], oratio = oratio) 71 contour(x, x, matrix(zedd, N, N), col = "blue") 72 zedd <- pbiplackcop(ox[, 1], ox[, 2], oratio = oratio) 73 contour(x, x, matrix(zedd, N, N), col = "blue")
|
H A D | bifrankcopUC.Rd | 68 zedd <- dbifrankcop(ox[, 1], ox[, 2], apar = apar) 69 contour(xx, xx, matrix(zedd, N, N)) 70 zedd <- pbifrankcop(ox[, 1], ox[, 2], apar = apar) 71 contour(xx, xx, matrix(zedd, N, N))
|
H A D | binormcopUC.Rd | 82 zedd <- dbinormcop(ox[, 1], ox[, 2], rho = Rho, log = TRUE) 83 contour(x, x, matrix(zedd, N, N), col = "blue", labcex = 1.5) 84 zedd <- pbinormcop(ox[, 1], ox[, 2], rho = Rho) 85 contour(x, x, matrix(zedd, N, N), col = "blue", labcex = 1.5)
|
H A D | biclaytoncopUC.Rd | 98 zedd <- dbiclaytoncop(ox[, 1], ox[, 2], apar = Rho, log = TRUE) 100 contour(x, x, matrix(zedd, N, N), col = "blue", labcex = 1.5, las = 1)
|
H A D | bistudenttUC.Rd | 119 zedd <- dbistudentt(ox[, 1], ox[, 2], df = mydf, rho = Rho, log = TRUE) 120 contour(x, x, matrix(zedd, N, N), col = "blue", labcex = 1.5) } }
|
H A D | bigamma.mckay.Rd | 127 mdata <- transform(mdata, zedd = rgamma(nn, shape = shape2, scale = scalepar)) 128 mdata <- transform(mdata, y2 = y1 + zedd) # Z is defined as Y2-y1|Y1=y1
|
H A D | weightsvglm.Rd | 150 (zedd <- predict(fit) + wresid) # Adjusted dependent vector
|