VGAM/R/family.normal.R

2705     for (jlocal in seq_along(nasgn2)) {  functionVar
2706       for (klocal in 1:link.list.lengths[jlocal]) {
2708           if (any(names(link.list) == nasgn2[jlocal]))
2709             link.list[[(nasgn2[jlocal])]] else
2712           if (any(names(earg.list) == nasgn2[jlocal]))
2713             earg.list[[(nasgn2[jlocal])]] else
2768     for (jlocal in seq_along(mynames1)) {
2769       mynames1[jlocal] <- namesof(mynames1[jlocal],
2770                                 link = link.list[[jlocal]],
2771                                 earg = earg.list[[jlocal]], short = TRUE)
2803       for (jlocal in seq_along(nasgn2)) {
2804         if (link.list[[jlocal]] %in%
2807             abs(jfit.coeff[jlocal] - 0.5) >= 0.5)
2808           jfit.coeff[jlocal] <- 0.5 +
2809             sign(jfit.coeff[jlocal] - 0.5) * 0.25
2811         if (link.list[[jlocal]] %in% c("rhobitlink", "fisherzlink") &&
2812             abs(jfit.coeff[jlocal]) >= 1)
2813           jfit.coeff[jlocal] <- sign(jfit.coeff[jlocal]) * 0.5
2815         if (link.list[[jlocal]] == "logloglink" &&
2816             abs(jfit.coeff[jlocal]) <= 1)
2817           jfit.coeff[jlocal] <- 1 + 1/8
2819         if (link.list[[jlocal]] == "logofflink" &&
2820             is.numeric(LLL <- (earg.list[[jlocal]])$offset) &&
2821             jfit.coeff[jlocal] <= -LLL) {
2822           jfit.coeff[jlocal] <- max((-LLL) * 1.05,
2826         if (link.list[[jlocal]] == "loglinklink" &&
2827             jfit.coeff[jlocal] <= 0.001)
2828           jfit.coeff[jlocal] <- 1/8
2844       for (jlocal in 1:ncol(etamat.init)) {
2848           extra$earg.list[[jlocal]]
2852             !extra$is.multilogitlink[jlocal])
2853           etamat.init[, jlocal] <-
2854             theta2eta(thetamat.init[, jlocal],
2855                       link = extra$link.list[[jlocal]],
2940   for (jlocal in 1:ncol(coffs)) {  functionVar
2941     earg.use <- if (!length(extra$earg.list[[jlocal]])) {
2944       extra$earg.list[[jlocal]]
2948         !extra$is.multilogitlink[jlocal]) {
2949       iskip <- (jlocal > max(extra$col.index.is.multilogitlink))
2950       coffs[, jlocal] <- eta2theta(eta[, jlocal - iskip],
2951                                    link = extra$link.list[[jlocal]],
3055     for (jlocal in 1:ncol(coffs)) {
3056       earg.use <- if (!length(extra$earg.list[[jlocal]])) {
3059         extra$earg.list[[jlocal]]
3063           !extra$is.multilogitlink[jlocal]) {
3065                  (jlocal  > max(extra$col.index.is.multilogitlink))
3066         coffs[, jlocal] <- eta2theta(eta[, jlocal - iskip],
3067                                      link = extra$link.list[[jlocal]],
3080   for (jlocal in 1:ncol(coffs)) {
3082         !extra$is.multilogitlink[jlocal]) {
3083       earg.use <- if (!length(extra$earg.list[[jlocal]])) {
3086         extra$earg.list[[jlocal]]
3088       dcoffs.deta[, jlocal] <-
3089         dtheta.deta(coffs[, jlocal],
3090                     link = extra$link.list[[jlocal]],