Home
last modified time | relevance | path

Searched +refs:rownames +refs:mat (Results 1 – 25 of 118) sorted by relevance

12345

/dports/devel/R-cran-reshape/reshape/R/
H A Ddimnames.r14 dimnames(m) <- lapply(rdimnames(m), rownames)
37 rownames(df) <- do.call("paste", c(df, sep="_"))
73 colnames(unx) <- rownames(rcolnames(x))
79 rownames(r.df) <- 1:nrow(r.df)
93 mat <- as.matrix.data.frame(x[, setdiff(names(x), ids)]) functionVar
95 rownames(mat) <- rownames(rrownames(x))
96 colnames(mat) <- rownames(rcolnames(x))
98 attr(mat, "idvars") <- attr(x, "idvars")
99 attr(mat, "rdimnames") <- attr(x, "rdimnames")
101 class(mat) <- c("cast_matrix", class(mat))
[all …]
H A Dpretty.r31 rownames(result) <- rep("", nrow(result))
46 mat <- apply(df, c(1,2), as.character) functionVar
47 …do.call(cbind, lapply(1:ncol(mat), function(x) clear.dup(mat[,1:x, drop=FALSE], mat[,x, drop=FALSE…
/dports/science/R-cran-bayesm/bayesm/R/
H A Dsummary.bayesm.mat.R17 mat=rbind(mat,sqrt(matrix(apply(X,2,var),nrow=1)))
26 mat=rbind(mat,num_se,rel_eff,eff_s_size)
27 colnames(mat)=names
28 rownames(mat)[1]="mean"
29 rownames(mat)[2]="std dev"
30 rownames(mat)[3]="num se"
31 rownames(mat)[4]="rel eff"
32 rownames(mat)[5]="sam size"
36 mat=rbind(tvalues,mat) }
39 print(t(mat),digits=2)
[all …]
/dports/textproc/R-cran-utf8/utf8/R/
H A Dutf8_print.R36 rownames <- as_style("rownames", rownames)
160 mat <- matrix(x[ix], functionVar
164 np <- print_table(mat,
168 names = names, rownames = rownames,
186 names = names, rownames = rownames,
212 mat <- matrix(x[seq_len(n - extra)], ncol = ncol, byrow = TRUE) functionVar
213 rownames(mat) <- nm[seq(from = 1L, by = ncol, length.out = nrow(mat))]
215 nprint <- print_table(mat,
219 rownames = rownames, escapes = escapes,
297 mat <- matrix(x[ix], nrow, ncol, dimnames = dimnames[1:2]) functionVar
[all …]
/dports/math/R-cran-matrixStats/matrixStats/src/
H A Dnaming.c30 void setDimnames(SEXP mat/*Answer matrix*/, SEXP dimnames, R_xlen_t nrows, in setDimnames() argument
33 dimnamesgets(mat, dimnames); in setDimnames()
40 if (nrows == 0 || rownames == R_NilValue) { in setDimnames()
43 SET_VECTOR_ELT(ansDimnames, 0, rownames); in setDimnames()
84 dimnamesgets(mat, ansDimnames); in setDimnames()
97 SEXP rownames = VECTOR_ELT(dimnames, 0); in set_rowDiffs_Dimnames() local
102 if (nrows == 0 || rownames == R_NilValue) { in set_rowDiffs_Dimnames()
105 SET_VECTOR_ELT(ansDimnames, 0, rownames); in set_rowDiffs_Dimnames()
149 dimnamesgets(mat, ansDimnames); in set_rowDiffs_Dimnames()
162 SEXP rownames = VECTOR_ELT(dimnames, 0); in set_colDiffs_Dimnames() local
[all …]
/dports/science/R-cran-etm/etm/R/
H A Dprint.etmCIF.R11 cat("Covariate: ", rownames(x$X), "\n")
20 mat <- matrix(0, ncol = 4, nrow = l.trans) functionVar
23 mat[j, 1] <- temp[[j]][n.temp, "time"]
24 mat[j, 2] <- temp[[j]][n.temp, "P"]
25 mat[j, 3] <- sqrt(temp[[j]][n.temp, "var"])
26 mat[j, 4] <- sum(temp[[j]][, "n.event"])
29 … rownames(mat) <- paste("CIF ", sapply(strsplit(sub("\\s", "|", names(temp)[1:l.trans]), "\\|"),
31 colnames(mat) <- c("time", "P", "se(P)", "n.event")
33 cat("\n", paste(rownames(x$X), " = ", x$X[i], sep = ""), "\n")
35 print(mat)
/dports/math/R-cran-VGAM/VGAM/R/
H A DlogLik.vlm.q130 rownames.arg = TRUE, # 20170606
161 mat.ans <- matrix(unlist(ans), nrow = M)
163 rownames(mat.ans) <- object@misc$predictors.names
164 if (length(object@misc$colnames.X_vlm) == ncol(mat.ans))
165 colnames(mat.ans) <- object@misc$colnames.X_vlm
168 if (colnames.arg || rownames.arg) {
169 rownames.cm <- colnames(predict(object))
170 if (!rownames.arg || nrow(mat.ans) != length(rownames.cm))
171 rownames.cm <- NULL
174 dimnames(mat.ans) <- list(rownames.cm, colnames.cm)
[all …]
H A Dfamily.rcim.R391 mat <- as.matrix(mat)
395 rnames <- if (is.null(rownames(mat))) {
398 rownames(mat)
408 which(rownames(mat) == rbaseline) else
436 rownames(yswap) <- new.rnames
499 orig.raxisl <- rownames(object@y)
609 which(rownames(mat) == roffset) else
640 rownames.mat <- rownames(mat)
969 rownames(contmat) <- model@xlevels[[factorname]]
1025 rownames(covmat)[1] <-
[all …]
/dports/math/R-cran-spdep/spdep/R/
H A Dimpacts.R204 mat <- x$mat functionVar
209 mat <- x$semat
214 mat <- x$zmat
215 rownames(mat) <- attr(x, "bnames")
224 rownames(xx) <- attr(x, "bnames")
592 rownames(mat) <- attr(x, "bnames")
616 mat
633 print(mat)
777 print(mat)
818 rownames(mat) <- attr(x, "bnames")
[all …]
/dports/math/R-cran-psych/psych/R/
H A Dtetrachor.R63 mat <- matrix(0,nvar,nvar) functionVar
64 colnames(mat) <- rownames(mat) <- colnames(x)
72 mat[i,j] <- mat[j,i] <- tetra$rho} else {mat[i,j] <- mat[j,i] <- NA}
75 diag(mat) <- 1
79 if(smooth) {mat <- cor.smooth(mat) } #makes it positive semidefinite
98 mat <- matrix(0,nx,ny)
100 rownames(mat) <- colnames(x)
206 rownames(mat) <- colnames(y)
215 return(mat)
262 rnames <- rownames(x)
[all …]
H A Dpolychoric.R77 rownames(tau) <- names(xt)[1:(nvalues-1)]
81 mat <- matrix(0,nvar,nvar) functionVar
82 colnames(mat) <- rownames(mat) <- colnames(x)
92 mat[i,j] <- mat[j,i] <- poly$rho } else {
95 mat[i,j] <- mat[j,i] <- poly }
96 } else {mat[i,j] <- mat[j,i] <- NA}
99 diag(mat) <- 1
100 if(any(is.na(mat))) {warning("some correlations are missing, smoothing turned off")
103 if(smooth) {mat <- cor.smooth(mat) }
105 result <- list(rho = mat,tau = tau,n.obs=nsub,Call=cl)
/dports/math/R/R-4.1.2/src/library/stats/R/
H A Dproj.R54 dimnames(result) <- list(rownames(object$fitted.values), nmeffect)
98 tnames <- setNames(lapply(colnames(tfactor), function(x, mat) argument
99 rownames(mat)[mat[, x] > 0], tfactor),
102 enames <- c(rownames(tfactor)
143 nms[as.logical(x)], rownames(tfactor))
147 rownames(efactor)[as.logical(efactor[, err])]
149 c(rownames(efactor)[as.logical(efactor %*% rep.int(1, ncol(efactor)))],
180 select <- rownames(object[[i]]$qr$qr) %||%
181 rownames(object[[i]]$residuals)
/dports/math/libRmath/R-4.1.1/src/library/stats/R/
H A Dproj.R54 dimnames(result) <- list(rownames(object$fitted.values), nmeffect)
98 tnames <- setNames(lapply(colnames(tfactor), function(x, mat) argument
99 rownames(mat)[mat[, x] > 0], tfactor),
102 enames <- c(rownames(tfactor)
143 nms[as.logical(x)], rownames(tfactor))
147 rownames(efactor)[as.logical(efactor[, err])]
149 c(rownames(efactor)[as.logical(efactor %*% rep.int(1, ncol(efactor)))],
180 select <- rownames(object[[i]]$qr$qr) %||%
181 rownames(object[[i]]$residuals)
/dports/science/R-cran-bayesm/bayesm/man/
H A Drmultireg.Rd79 mat = apply(betadraw, 2, quantile, probs=c(0.01, 0.05, 0.5, 0.95, 0.99))
80 mat = rbind(as.vector(B),mat)
81 rownames(mat)[1] = "beta"
82 print(mat)
85 mat = apply(Sigmadraw, 2 ,quantile, probs=c(0.01, 0.05, 0.5, 0.95, 0.99))
86 mat = rbind(as.vector(Sigma),mat); rownames(mat)[1]="Sigma"
87 print(mat)
/dports/math/R-cran-psych/psych/man/
H A Derror.crosses.Rd13 \item{labels}{the names of each pair -- defaults to rownames of x }
43 error.crosses(x,y,xlab=rownames(x),ylab=rownames(y))
67 map.mat <- describe.by(maps[10:17],maps$Film,mat=TRUE)
68 …sses(map.mat[c(1:4,17:20),],map.mat[c(5:8,21:24),],labels=films[map.mat$group1],xlab="Energetic Ar…
/dports/math/R-cran-lava/lava/R/
H A Destimate.default.R290 clidx <- mets::cluster.index(id,mat=iidtheta,return.all=TRUE) functionVar
452 iid1 <- mets::cluster.index(id,mat=iid1,return.all=FALSE)
462 iid3 <- mets::cluster.index(id,mat=iid3,return.all=FALSE)
501 rownames(res) <- nn
505 if (is.null(rownames(res))) rownames(res) <- paste0("p",seq(nrow(res)))
574 rownames(res$coefmat) <- labels
577 rownames(res$coefmat) <- make.unique(unlist(lapply(rownames(res$coefmat),
710 rownames(cc) <- make.unique(unlist(lapply(rownames(cc),
745 rownames(cc)[-sep.pos] <- paste0(indent, rownames(cc)[-sep.pos])
777 coef.estimate <- function(object,mat=FALSE,list=FALSE,messages=lava.options()$messages,...) { argument
[all …]
/dports/biology/mmseqs2/MMseqs2-13-45111/util/
H A Dformat_substitution_matrix.R6 mat <- as.matrix(read.table(textConnection(lines) , comment.char = "#", header = T)) globalVar
7 alphabet <- rownames(mat)
11 mat <- mat[alphabet, alphabet] globalVar
12 R <- 2**(0.5*mat)
18 mat <- mat[alphabet, alphabet] globalVar
19 R <- 2**(0.5*mat)
30 out <- paste0(capture.output(write.table(mat, quote = F, sep = "\t")), collapse = "\n")
/dports/science/R-cran-Epi/Epi/R/
H A DLCa.fit.R115 oldmb <- oldmat <- mat$deviance
171 newmat <- mat$deviance
192 + mat$df.null-mat$df.res # no. parms in mat
216 rownames( ax ) <-
217 rownames( pi ) <-
218 rownames( ci ) <- a.pt
219 rownames( kp ) <- p.pt
220 rownames( kc ) <- c.pt
288 vcov <- as.matrix( vcov$mat )
323 mod.at = mat,
[all …]
/dports/finance/R-cran-timeSeries/timeSeries/inst/extensionsTests/
H A DchicPlots.R71 mat <- getDataPart(tS2) globalVar
74 plot(mat[, 1], mat[, 2])
75 plot(mat[, 1], mat[, 2], pch=19, cex=0.2)
287 rownames = as.Date(xts:::time.xts(y)) functionVar
288 rownames = format(strptime(rownames, format = date.format.in),
333 rownames))
/dports/devel/R-cran-Rcpp/Rcpp/inst/tinytest/
H A Dtest_matrix.R150 expect_equal(rownames(m), letters[1:2])
157 expect_equal(rownames(m), c("A", "B", "C"))
191 rownames(M) <- letters[1:nrow(M)]
199 rownames(M) <- letters[1:nrow(M)]
207 rownames(M) <- letters[1:nrow(M)]
233 mat <- matrix(FALSE, 3, 3) globalVar
234 diag(mat) <- TRUE
235 expect_equal(lgl_eye(3), mat, info = "eye - logical")
/dports/math/R-cran-spdep/spdep/man/
H A Ddroplinks.Rd30 rownames(mns) <- ns
33 rownames(mxs) <- ns
41 mat <- diag(ns[i]*ns[i]) - rho[j] * wmat
42 res <- diag(solve(t(mat) \%*\% mat))
/dports/science/R-cran-eco/eco/R/
H A Deminfo.R90 vec<-function(mat) { argument
91 v<-as.vector(mat, mode="any")
95 tr<-function(mat) { argument
96 trace<-sum(diag(mat))
548 colnames(Sigma)<-rownames(Sigma)<-c("W1","W2")
550 if (!fix.rho) colnames(DM)<-rownames(DM)<-c("u1","u2","s1","s2","r12")
551 if (fix.rho) colnames(DM)<-rownames(DM)<-c("u1","u2","s1","s2")
555 colnames(Sigma)<-rownames(Sigma)<-c("X","W1","W2")
558 colnames(DM)<-rownames(DM)<-c("u1","u2","s1","s2","r1x","r2x","r12")
561 colnames(DM)<-rownames(DM)<-c("u1","u2","s1","s2","r1x","r2x")
[all …]
/dports/devel/R-cran-vcd/vcd/R/
H A Dlodds.R122 colnames(contr) <- rownames(X)
123 rownames(contr) <- rep("", R-1)
128 rownames(contr)[rix] <- paste(rownames(X)[Rix[i,]], collapse = ":")
142 rownames(contr) <- rn
148 for(i in 1:(R-1)) dn[[1]][i] <- paste(rownames(X)[Rix[i,]], collapse = ":")
170 mat <- log(as.vector(x) + add) * t(contr) functionVar
171 nas <- apply(contr != 0 & is.na(t(mat)), 1, any)
172 coef <- apply(mat, 2, sum, na.rm = TRUE)
/dports/devel/R-cran-repr/repr/R/
H A Drepr_matrix_df.r83 mat <- switch(omit, functionVar
95 rownames(mat) <- c(head(rownms, nrow(parts[[1]])), ellip_v, tail(rownms, nrow(parts[[2]])))
98 colnames(mat)[[ncol(parts[[1]]) + 1L]] <- ellip_h
101 mat
113 arr_parts_combine(f_parts, rownames(a), colnames(a))
190 row_head <- sprintf(row_head, escape_fun(rownames(x)[[r]]))
/dports/math/R-cran-NMF/NMF/R/
H A DextractFeatures.R295 mat <- object
296 vect <- mat[,i]
304 if( any(mat[index,-i] >= vect[index]) )
326 if( !is.null(rownames(object)) ){
329 setNames(x, rownames(object)[x])

12345