| /dports/math/R-cran-VGAM/VGAM/R/ |
| H A D | model.matrix.vglm.q | 74 if (M != nrow(Hlist[[1]]))
77 M <- nrow(Hlist[[1]])
127 M <- nrow(Hlist[[1]])
159 orig.assign.lm <- attr(x, "orig.assign.lm") # NULL if x = F
189 attr(X.vlm, "orig.assign.lm") <- orig.assign.lm
357 X.vlm <- lm2vlm.model.matrix(x = x, Hlist = Hlist, Xm2 = Xm2,
372 Hlist <- Hlist
866 orig.w <- if (is.numeric(model@extra$orig.w))
890 w.orig <- if (length(orig.w) != n.lm)
892 orig.w
[all …]
|
| H A D | rrvglm.fit.q | 35 orig.stepsize <- control$stepsize
55 stepsize <- orig.stepsize
200 all(trivial.constraints(Hlist) == 1)
202 Hlist <- Hlist.save <- replace.constraints(Hlist, Amat, colx2.index)
205 ncolHlist <- unlist(lapply(Hlist, ncol))
209 tmp500 <- lm2qrrvlm.model.matrix(x = x, Hlist = Hlist,
281 Hlist = if (control$Quadratic) H.list else Hlist,
349 if (trace && orig.stepsize == 1) {
370 ((orig.stepsize != 1) ||
378 stepsize <- 2 * min(orig.stepsize, 2*stepsize)
[all …]
|
| H A D | vglm.fit.q | 36 orig.stepsize <- control$stepsize
51 stepsize <- orig.stepsize
110 Hlist <- process.constraints(constraints, x = x, M = M, functionVar
115 ncolHlist <- unlist(lapply(Hlist, ncol))
125 lm2vlm.model.matrix(x, Hlist, xij = control$xij, Xm2 = Xm2)
177 Hlist = NULL, U = U,
207 if (trace && orig.stepsize == 1) {
246 stepsize <- orig.stepsize / 4
253 stepsize <- (1 + (orig.stepsize != 1)) * orig.stepsize
435 constraints = Hlist,
[all …]
|
| H A D | vgam.fit.q | 103 Hlist <- process.constraints(constraints, x = x, M = M, functionVar
107 ncolHlist <- unlist(lapply(Hlist, ncol))
120 "Hlist, ncolHlist, M = M, qbig = qbig, Umat = U, ",
143 X.vlm.save <- lm2vlm.model.matrix(x, Hlist, xij = control$xij,
209 Hlist = Hlist, U = U, matrix.out = FALSE, is.vlmX = TRUE,
235 sm.osps.list$fixspar <- sm.osps.list$orig.fixspar
416 constraints = Hlist,
462 orig.assign = attr(x, "assign"),
556 new.assign <- function(X, Hlist) { argument
558 M <- nrow(Hlist[[1]])
[all …]
|
| H A D | predict.vlm.q | 116 Hlist <- object@constraints functionVar
117 ncolHlist <- unlist(lapply(Hlist, ncol))
144 Hlist <- canonical.Hlist(Hlist)
145 object@constraints <- Hlist
150 X_vlm <- lm2vlm.model.matrix(X, Hlist = Hlist, M = M,
231 Hlist <- subconstraints(object@misc$orig.assign, object@constraints)
424 canonical.Hlist <- function(Hlist) { argument
425 for (ii in seq_along(Hlist)) {
426 temp <- Hlist[[ii]] * 0
428 Hlist[[ii]] <- temp
[all …]
|
| H A D | predict.vgam.q | 66 Hlist <- object@constraints functionVar
67 ncolHlist <- unlist(lapply(Hlist, ncol))
71 Hlist <- canonical.Hlist(Hlist)
72 object@constraints <- Hlist
157 Hlist <- subconstraints(object@misc$orig.assign,
159 ncolHlist <- unlist(lapply(Hlist, ncol))
185 eta.mat <- if (raw) rawMat else (rawMat %*% t(Hlist[[ii]]))
|
| H A D | logLik.vlm.q | 137 Hlist <- ans <- slot(object, "constraints") # For "lm" (formerly "vlm") functionVar
140 oassign.LM <- object@misc$orig.assign
151 ans[[ii]] <- (Hlist[[col.ptr]])
|
| H A D | cqo.fit.q | 259 if (p1 + p2 != length(Hlist))
260 stop("'Hlist' is the wrong length")
268 Hlist1[[kk]] <- Hlist[[(colx1.index[kk])]]
270 Hlist2[[kk]] <- Hlist[[(colx2.index[kk])]]
330 orig.stepsize <- control$stepsize
470 ncolHlist <- unlist(lapply(Hlist, ncol))
475 tmp500 <- lm2qrrvlm.model.matrix(x = x, Hlist = Hlist,
545 constraints = Hlist,
567 orig.assign = attr(x, "assign"),
800 alt <- valt.1iter(x = x, z = z, U = U, Hlist = Hlist,
[all …]
|
| H A D | cao.fit.q | 518 Hlist.
620 X.vlm.save = bnumat, Hlist = Hlist. ,
634 Hlist.[[1]] <- NULL
697 Hlist = as.double(unlist( Hlist. )),
879 origHlist <- Hlist. <-
893 X.vlm.save = bnumat, Hlist = Hlist.,
919 Hlist.[[1]] <- NULL
1183 gridd.orig <- gridd
1185 gridd <- gridd.orig
1849 if (!length(ylim.orig <- ylim)) {
[all …]
|
| /dports/math/R-cran-VGAM/VGAM/man/ |
| H A D | notdocumentedyet.Rd | 494 % \alias{A1A2A3.orig} 20140909; same as A1A2A3(hwe = TRUE)
551 % \alias{canonical.Hlist}
|
| /dports/math/R-cran-VGAM/VGAM/ |
| H A D | NEWS | 35 by some new arguments, and 'as.summary' changed to 'orig.SE'.
643 o Calls to N.hat.posbernoulli() used Hlist = constraints rather
644 than Hlist = Hlist; this failed for RR-VGLMs.
919 o Variables "Blist" replaced by "Hlist".
|
| /dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/ |
| H A D | cif2hkl.F90 | 23185 Subroutine Get_Setting_Info(Mat,orig,setting,matkind) argument
23188 real(kind=cp), dimension ( 3),intent( in) :: orig local
28250 call get_setting_info(Mat,orig,setting,matkind)
28345 trn=matmul(Sinv,tr-matmul(e-Rot,orig))
28522 call get_setting_info(Mat,orig,setting,matkind)
28665 trn=matmul(Sinv,tr-matmul(e-Rot,orig))
35699 Subroutine Hkl_Equiv_Listi(H,Spacegroup,Friedel,Mul,Hlist) argument
35755 Subroutine Hkl_Equiv_ListR(H,Spacegroup,Friedel,Mul,Hlist) argument
42403 pos(:) = Ate%Atm(i)%x(:,j)-orig(:)
49445 call Get_Transf(transf_key,trans,orig)
[all …]
|