/dports/textproc/R-cran-readr/readr/R/ |
H A D | collectors.R | 39 warn_problems(parse_vector_(x, collector, na = na, locale_ = locale, trim_ws = trim_ws)) 73 parse_vector(x, col_logical(), na = na, locale = locale, trim_ws = trim_ws) 79 parse_vector(x, col_integer(), na = na, locale = locale, trim_ws = trim_ws) 85 parse_vector(x, col_double(), na = na, locale = locale, trim_ws = trim_ws) 91 parse_vector(x, col_character(), na = na, locale = locale, trim_ws = trim_ws) 155 parse_vector(x, col_number(), na = na, locale = locale, trim_ws = trim_ws) 194 …parse_vector(x, guess_parser(x, locale, guess_integer = guess_integer, na = na), na = na, locale =… 208 x[x %in% na] <- NA_character_ 386 parse_vector(x, col_datetime(format), na = na, locale = locale, trim_ws = trim_ws) 392 parse_vector(x, col_date(format), na = na, locale = locale, trim_ws = trim_ws) [all …]
|
H A D | write.R | 70 write_delim <- function(x, file, delim = " ", na = "NA", append = FALSE, argument 171 write_excel_csv <- function(x, file, na = "NA", append = FALSE, argument 218 write_excel_csv2 <- function(x, file, na = "NA", append = FALSE, argument 247 write_excel_csv(x, file, na, append, col_names, delim, 309 format_delim <- function(x, delim, na = "NA", append = FALSE, argument 329 …res <- vroom::vroom_format(x, delim = delim, eol = eol, col_names = col_names, na = na, quote = qu… functionVar 336 format_csv <- function(x, na = "NA", append = FALSE, col_names = !append, argument 346 …format_delim(x, delim = ",", na = na, append = append, col_names = col_names, eol = eol, quote = q… 362 …format_delim(x, delim = ";", na = na, append = append, col_names = col_names, eol = eol, quote = q… 367 format_tsv <- function(x, na = "NA", append = FALSE, col_names = !append, argument [all …]
|
/dports/science/xcrysden/xcrysden-1.6.2/F/ |
H A D | slabVthick.f | 61 na=0 63 na=na+1 65 read(1,99990) ai(i), x(1,na),x(2,na),x(3,na) 68 na=na+1 70 read(1,99990) ai(i), x(1,na),x(2,na),x(3,na) 97 do i=2,na 148 na=0 150 na=na+1 153 $ ': X=', x(1,na), ' Y=', x(2,na), ' Z=', x(3,na) 157 na=na+1 [all …]
|
/dports/lang/perl5.30/perl-5.30.3/cpan/Unicode-Collate/t/ |
H A D | cjkrange.t | 95 ok($coll->cmp("\x{9FEB}", "\x{9FFF}") == -1); # na < na 104 ok($coll->cmp("\x{2FFF}", "\x{4DB6}") == -1); # na < na 105 ok($coll->cmp("\x{2FFF}", "\x{4DBF}") == -1); # na < na 111 ok($coll->cmp("\x{2FFF}", "\x{2A6D7}") == -1); # na < na 112 ok($coll->cmp("\x{2FFF}", "\x{2A6DF}") == -1); # na < na 118 ok($coll->cmp("\x{2FFF}", "\x{2B735}") == -1); # na < na 119 ok($coll->cmp("\x{2FFF}", "\x{2B73F}") == -1); # na < na 125 ok($coll->cmp("\x{2FFF}", "\x{2B81E}") == -1); # na < na 126 ok($coll->cmp("\x{2FFF}", "\x{2B81F}") == -1); # na < na 132 ok($coll->cmp("\x{2FFF}", "\x{2CEA2}") == -1); # na < na [all …]
|
/dports/lang/perl5.32/perl-5.32.1/cpan/Unicode-Collate/t/ |
H A D | cjkrange.t | 95 ok($coll->cmp("\x{9FEB}", "\x{9FFF}") == -1); # na < na 104 ok($coll->cmp("\x{2FFF}", "\x{4DB6}") == -1); # na < na 105 ok($coll->cmp("\x{2FFF}", "\x{4DBF}") == -1); # na < na 111 ok($coll->cmp("\x{2FFF}", "\x{2A6D7}") == -1); # na < na 112 ok($coll->cmp("\x{2FFF}", "\x{2A6DF}") == -1); # na < na 118 ok($coll->cmp("\x{2FFF}", "\x{2B735}") == -1); # na < na 119 ok($coll->cmp("\x{2FFF}", "\x{2B73F}") == -1); # na < na 125 ok($coll->cmp("\x{2FFF}", "\x{2B81E}") == -1); # na < na 126 ok($coll->cmp("\x{2FFF}", "\x{2B81F}") == -1); # na < na 132 ok($coll->cmp("\x{2FFF}", "\x{2CEA2}") == -1); # na < na [all …]
|
/dports/math/R-cran-matrixStats/matrixStats/tests/ |
H A D | rowRanges.R | 134 x <- t(x) globalVar 153 x <- t(x) globalVar 175 na[2, 2] <- NA 179 na[2, ] <- NA 183 na[2, ] <- NaN 187 na[2, 2] <- Inf 191 na[2, ] <- Inf 195 na[2, 2] <- NaN 199 na[2, 2] <- NaN 203 na[2, ] <- NaN [all …]
|
/dports/lang/perl5.34/perl-5.34.0/cpan/Unicode-Collate/t/ |
H A D | cjkrange.t | 109 ok($coll->cmp("\x{9FFD}", "\x{9FFF}") == -1); # na < na 127 ok($coll->cmp("\x{2FFF}", "\x{2A6DE}") == -1); # na < na 128 ok($coll->cmp("\x{2FFF}", "\x{2A6DF}") == -1); # na < na 134 ok($coll->cmp("\x{2FFF}", "\x{2B735}") == -1); # na < na 135 ok($coll->cmp("\x{2FFF}", "\x{2B73F}") == -1); # na < na 141 ok($coll->cmp("\x{2FFF}", "\x{2B81E}") == -1); # na < na 142 ok($coll->cmp("\x{2FFF}", "\x{2B81F}") == -1); # na < na 148 ok($coll->cmp("\x{2FFF}", "\x{2CEA2}") == -1); # na < na 149 ok($coll->cmp("\x{2FFF}", "\x{2CEAF}") == -1); # na < na 155 ok($coll->cmp("\x{2FFF}", "\x{2EBE1}") == -1); # na < na [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/cpan/Unicode-Collate/t/ |
H A D | cjkrange.t | 104 ok($coll->cmp("\x{9FFD}", "\x{9FFF}") == -1); # na < na 122 ok($coll->cmp("\x{2FFF}", "\x{2A6DE}") == -1); # na < na 123 ok($coll->cmp("\x{2FFF}", "\x{2A6DF}") == -1); # na < na 129 ok($coll->cmp("\x{2FFF}", "\x{2B735}") == -1); # na < na 130 ok($coll->cmp("\x{2FFF}", "\x{2B73F}") == -1); # na < na 136 ok($coll->cmp("\x{2FFF}", "\x{2B81E}") == -1); # na < na 137 ok($coll->cmp("\x{2FFF}", "\x{2B81F}") == -1); # na < na 143 ok($coll->cmp("\x{2FFF}", "\x{2CEA2}") == -1); # na < na 144 ok($coll->cmp("\x{2FFF}", "\x{2CEAF}") == -1); # na < na 150 ok($coll->cmp("\x{2FFF}", "\x{2EBE1}") == -1); # na < na [all …]
|
/dports/textproc/p5-Unicode-Collate/Unicode-Collate-1.31/t/ |
H A D | cjkrange.t | 104 ok($coll->cmp("\x{9FFD}", "\x{9FFF}") == -1); # na < na 122 ok($coll->cmp("\x{2FFF}", "\x{2A6DE}") == -1); # na < na 123 ok($coll->cmp("\x{2FFF}", "\x{2A6DF}") == -1); # na < na 129 ok($coll->cmp("\x{2FFF}", "\x{2B735}") == -1); # na < na 130 ok($coll->cmp("\x{2FFF}", "\x{2B73F}") == -1); # na < na 136 ok($coll->cmp("\x{2FFF}", "\x{2B81E}") == -1); # na < na 137 ok($coll->cmp("\x{2FFF}", "\x{2B81F}") == -1); # na < na 143 ok($coll->cmp("\x{2FFF}", "\x{2CEA2}") == -1); # na < na 144 ok($coll->cmp("\x{2FFF}", "\x{2CEAF}") == -1); # na < na 150 ok($coll->cmp("\x{2FFF}", "\x{2EBE1}") == -1); # na < na [all …]
|
/dports/devel/R-cran-Hmisc/Hmisc/R/ |
H A D | varclus.s | 21 x <- list(formula=form, data=data, na.action=na.action, subset=subset) 43 isthere <- 1*(!is.na(x)) 44 x[is.na(x)] <- 0 69 if(any(is.na(x))) 91 if(length(x$na.action)) 92 naprint(x$na.action) 182 ismiss <- function(x) if(is.character(x))x=='' else is.na(x) 202 res$mean.na <- mean.na 215 mean.na <- obj$mean.na 247 s <- (1:length(na.per.var))[!is.na(mean.na)] [all …]
|
H A D | wtd.stats.s | 3 if(!length(weights)) return(mean(x, na.rm=na.rm)) 5 s <- !is.na(x + weights) 17 if(na.rm) x <- x[!is.na(x)] 22 s <- !is.na(x + weights) 40 return(quantile(x, probs=probs, na.rm=na.rm)) 104 w <- wtd.table(x, weights, normwt=normwt, na.rm=na.rm) 126 s <- !is.na(x + weights) 186 return(rank(x),na.last=if(na.rm)NA else TRUE) 188 tab <- wtd.table(x, weights, normwt=normwt, na.rm=na.rm) 206 s <- !is.na(x+y+weights) [all …]
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/lapack/testlapack/ |
H A D | dlaln2.go | 17 …Dlaln2(trans bool, na, nw int, smin, ca float64, a []float64, lda int, d1, d2 float64, b []float64… argument 52 a := randomGeneral(na, na, na+extra, rnd) 54 x := randomGeneral(na, nw, nw+extra, rnd) 56 …rmGot, ok := impl.Dlaln2(trans, na, nw, smin, ca, a.Data, a.Stride, d1, d2, b.Data, b.Stride, real… 66 if !generalOutsideAllNaN(x) { 67 t.Errorf("%v: out-of-range write to X\n%v", prefix, x.Data) 80 rowsum += math.Abs(x.Data[i*x.Stride+j]) 101 m := make([]complex128, na*na) 129 cx[i] = complex(x.Data[i*x.Stride], 0) 130 cb[i] = complex(scale*b.Data[i*x.Stride], 0) [all …]
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/testlapack/ |
H A D | dlaln2.go | 17 …Dlaln2(trans bool, na, nw int, smin, ca float64, a []float64, lda int, d1, d2 float64, b []float64… argument 52 a := randomGeneral(na, na, na+extra, rnd) 54 x := randomGeneral(na, nw, nw+extra, rnd) 56 …rmGot, ok := impl.Dlaln2(trans, na, nw, smin, ca, a.Data, a.Stride, d1, d2, b.Data, b.Stride, real… 66 if !generalOutsideAllNaN(x) { 67 t.Errorf("%v: out-of-range write to X\n%v", prefix, x.Data) 80 rowsum += math.Abs(x.Data[i*x.Stride+j]) 101 m := make([]complex128, na*na) 129 cx[i] = complex(x.Data[i*x.Stride], 0) 130 cb[i] = complex(scale*b.Data[i*x.Stride], 0) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/HP/src/ |
H A D | hp_summary.f90 | 45 100 FORMAT (/5x, 'bravais-lattice index = ',i12,/,5x, & 46 & 'lattice parameter (alat) = ',f12.4,' (a.u.)',/,5x, & 48 & 'number of atoms/cell = ',i12,/,5x, & 49 & 'number of atomic types = ',i12,/,5x, & 50 & 'kinetic-energy cut-off = ',f12.2,' (Ry)',/,5x, & 51 & 'charge density cut-off = ',f12.2,' (Ry)',/,5x, & 52 & 'conv. thresh. for NSCF = ',3x,1pe9.1,/,5x, & 53 & 'conv. thresh. for chi = ',3x,1pe9.1) 96 & (na, atm(ityp(na)), amass(ityp(na)), na, (tau(ipol,na), ipol=1,3), na=1,nat) 106 & na, atm(nt), amass(nt), na, (tau(ipol,na), ipol=1,3) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/src/utils/ |
H A D | Function.hpp | 470 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa); Point x=fakePoin… in Function() local 472 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa); Point x=fakePoin… in Function() local 474 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa); Point x=fakePoin… in Function() local 476 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa); Point x=fakePoin… in Function() local 522 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa, d); Point x=fakeP… in Function() local 524 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa, d); Point x=fakeP… in Function() local 526 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa, d); Point x=fakeP… in Function() local 528 …{init(reinterpret_cast<void*>(&f), na, typeid(f).name(), _kernel, _pointArg, pa, d); Point x=fakeP… in Function() local 574 …interpret_cast<void*>(&f), string_t(na), typeid(f).name(), _kernel, _pointArg, pa); Point x=fakePo… in Function() local 576 …interpret_cast<void*>(&f), string_t(na), typeid(f).name(), _kernel, _pointArg, pa); Point x=fakePo… in Function() local [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/eispack/ |
H A D | hqr2.f | 112 y = h(na,na) 125 y = x 249 wr(na) = x + zz 254 x = h(en,na) 282 320 wr(na) = x + p 355 h(na,na) = q / h(en,na) 358 720 call cdiv(0.0d0,-h(na,en),h(na,na)-p,q,h(na,na),h(na,en)) 397 x h(i,na),h(i,en)) 399 h(i+1,na) = (-ra - w * h(i,na) + q * h(i,en)) / x 400 h(i+1,en) = (-sa - w * h(i,en) - q * h(i,na)) / x [all …]
|
/dports/math/eispack/eispack-1.0_14/ |
H A D | hqr2.f | 112 y = h(na,na) 125 y = x 249 wr(na) = x + zz 254 x = h(en,na) 282 320 wr(na) = x + p 355 h(na,na) = q / h(en,na) 358 720 call cdiv(0.0d0,-h(na,en),h(na,na)-p,q,h(na,na),h(na,en)) 397 x h(i,na),h(i,en)) 399 h(i+1,na) = (-ra - w * h(i,na) + q * h(i,en)) / x 400 h(i+1,en) = (-sa - w * h(i,en) - q * h(i,na)) / x [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/eispack/ |
H A D | hqr2.f | 112 y = h(na,na) 125 y = x 249 wr(na) = x + zz 254 x = h(en,na) 282 320 wr(na) = x + p 355 h(na,na) = q / h(en,na) 358 720 call cdiv(0.0d0,-h(na,en),h(na,na)-p,q,h(na,na),h(na,en)) 397 x h(i,na),h(i,en)) 399 h(i+1,na) = (-ra - w * h(i,na) + q * h(i,en)) / x 400 h(i+1,en) = (-sa - w * h(i,en) - q * h(i,na)) / x [all …]
|
/dports/math/R-cran-matrixStats/matrixStats/inst/benchmarking/ |
H A D | colRowVars.md.rsp | 17 genefilter_colVars <- function(x, ...) genefilter_rowVars(t(x), ...) 37 colVarColMeans <- function(x, na.rm = TRUE) { 38 if (na.rm) { 39 n <- colSums(!is.na(x)) 41 n <- nrow(x) 43 var <- colMeans(x*x, na.rm = na.rm) - (colMeans(x, na.rm = na.rm))^2 53 rowVarRowMeans <- function(x, na.rm = TRUE) { 55 n <- rowSums(!is.na(x)) 57 n <- ncol(x) 59 mu <- rowMeans(x, na.rm = na.rm) [all …]
|
H A D | colRowMads.md.rsp | 25 rowMads2 <- function(x, const = 1.4826, na.rm = FALSE) { 26 mu <- rowMedians(x, na.rm = na.rm) 27 x <- abs(x - mu) 28 mad <- rowMedians(x, na.rm = FALSE) 32 colMads2 <- function(x, const = 1.4826, na.rm = FALSE) { 33 mu <- colMedians(x, na.rm = na.rm) 35 mad <- colMedians(x, na.rm = FALSE) 42 rowMads_R <- function(x, na.rm = FALSE) { 43 apply(x, MARGIN = 1L, FUN = mad, na.rm = na.rm) 46 colMads_R <- function(x, na.rm = FALSE) { [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/eispack/ |
H A D | hqror2.f | 129 y = h(na,na) 135 t = t + x 142 y = x 277 wr(na) = x + zz 283 x = h(en,na) 285 p = x / s 320 wr(na) = x + p 392 h(na,na) = q / h(en,na) 397 h(na,na)=-h(na,en)*q/z3 441 h(i+1,na) = (-ra - w * h(i,na) + q * h(i,en)) / x [all …]
|
/dports/graphics/argyllcms/Argyll_V1.9.2/xicc/ |
H A D | iccgamut.c | 332 double x, y, z; in main() local 333 if (sscanf(na+1,":%lf:%lf:%lf",&x,&y,&z) == 3) { in main() 335 } else if (sscanf(na+1,":%lf:%lf",&x,&y) == 2) { in main() 356 double x, y, z; in main() local 357 if (sscanf(na+1,":%lf:%lf:%lf",&x,&y,&z) == 3) { in main() 359 } else if (sscanf(na+1,":%lf:%lf",&x,&y) == 2) { in main() 361 } else if (sscanf(na+1,":%lf",&x) == 1) { in main() 362 vc_g = x; in main() 442 double x = vc_wxy[0]; in main() local 632 int x, y; in diag_gamut() local [all …]
|
/dports/math/cppad/CppAD-20210000.8/example/general/ |
H A D | interface2c.cpp | 56 arg = (x - a[3*i+1]) / a[3*i+2]; in sumGauss() 68 void sumGauss(float x, float a[], float *y, float dyda[], size_t na) in sumGauss() argument 94 ADfloat X = x; in sumGauss() 119 bool NearEqual(float x, float y, float r, float a) in NearEqual() argument 120 { return CppAD::NearEqual(x, y, r, a); in NearEqual() 131 float x, a[6], y, dyda[6], tmp[6]; in Interface2C() local 135 na = 6; in Interface2C() 140 x = 1.; in Interface2C() 147 sumGauss(x, a, &y, dyda, na); in Interface2C() 163 sumGauss(x, a, &yp, tmp, na); in Interface2C() [all …]
|
/dports/textproc/R-cran-readr/readr/src/ |
H A D | write_delim.cpp | 15 const cpp11::sexp& x, 23 const cpp11::list& x, in stream_delim_row() argument 29 int p = Rf_length(x); in stream_delim_row() 32 stream_delim(connection, x.at(j), i, delim, na, escape); in stream_delim_row() 35 stream_delim(connection, x.at(p - 1), i, delim, na, escape); in stream_delim_row() 92 switch (TYPEOF(x)) { in validate_col_type() 176 const cpp11::sexp& x, in stream_delim() argument 181 switch (TYPEOF(x)) { in stream_delim() 183 int value = LOGICAL(x)[i]; in stream_delim() 194 int value = INTEGER(x)[i]; in stream_delim() [all …]
|
/dports/math/R-cran-zoo/zoo/man/ |
H A D | na.locf.Rd | 25 It is not supported if \code{x} or \code{xout} is specified.} 109 na.locf(z.na)[as.POSIXlt(time(z.na))$mday == 5] 125 merge(z.na, filled1 = na.locf(z.na, maxgap = 1)) 128 ## by the growth in second column. Note that elements of x-x 129 ## are NA if the corresponding element of x is NA and zero else 143 x <- c(NA, 10, NA, NA, 20, NA) 144 f <- function(x) x[1] 145 ave(x, cumsum(!is.na(x)), FUN = f) 149 f <- function(x) if (length(x) > 3) x else x[1] # like maxgap 150 f <- function(x) replace(x, 1:min(length(x)), 3) # replace up to 2 NAs [all …]
|