/dports/devel/R-cran-withr/withr/tests/testthat/ |
H A D | test-seed.R | 4 runif(10)) 11 expect_false(with_seed(1, runif(1)) == runif(1)) 23 x <<- runif(10) 29 x <<- runif(10) 34 y <<- runif(10) 41 x <<- runif(10) 46 y <<- runif(10) 53 x <<- runif(1) 62 x <<- runif(1) 67 y <<- runif(1) [all …]
|
/dports/graphics/R-cran-pROC/pROC/tests/testthat/ |
H A D | test-multiclass.R | 85 preds <- lapply(n, function(x) runif(x, 0.8, 1)) 87 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0, 0.2)), 100 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0.2, 0.8)), 123 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0.2, 0.8)), 147 preds <- lapply(n, function(x) runif(x, 0.8, 1)) 149 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0, 0.2)), 158 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0.2, 0.8)), 179 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0, 0.2)), 190 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0.2, 0.8)), 212 "X2" = c(runif(n[1], 0.1, 0.4), preds[[2]], runif(n[3], 0, 0.2)), [all …]
|
/dports/math/R-cran-dimRed/dimRed/R/ |
H A D | dataSets.R | 86 y <- stats::runif(n, 0, 30) 98 y <- stats::runif(n, 0, 30) 113 t <- stats::runif(n, 0, 2 * pi) 126 x <- stats::runif(n, -1, 1) 127 y <- stats::runif(n, -1, 1) 142 phi <- stats::runif(n, 0, 2 * pi) 151 phi <- stats::runif(n, 0, 2 * pi) 166 phi <- stats::runif(n, 0, 2 * pi) 169 r <- stats::runif(n) ^ (1 / 3) 184 y <- stats::runif(n, 0, 2) [all …]
|
/dports/www/R-cran-shiny/shiny/tests/testthat/ |
H A D | test-utils.R | 55 public <- c(runif(1), runif(1), runif(1)) 57 private <- c(withPrivateSeed(runif(1)), withPrivateSeed(runif(1)), withPrivateSeed(runif(1))) 65 public[1] <- runif(1) 66 private[1] <- withPrivateSeed(runif(1)) 67 private[2] <- withPrivateSeed(runif(1)) 68 public[2] <- runif(1) 69 public[3] <- runif(1) 70 private[3] <- withPrivateSeed(runif(1))
|
/dports/math/R-cran-MCMCpack/MCMCpack/src/ |
H A D | rng.h | 145 return runif(); in operator() 159 double runif () in runif() function 177 *it = runif(); in runif() 377 unif = runif (); in rbern() 574 unif = runif (); in rlogis() 1038 x = runif()* 1094 x = runif() 1163 x = runif() 1233 x = runif() 1454 u = runif (); in rgamma1() [all …]
|
H A D | wrapped_generator.h | 109 inline double runif() in runif() function 140 inline Matrix<double,O> runif(unsigned int rows, in runif() function 143 return rng<wrapped_generator<ENGINE> >::runif<O, S>(rows, cols); in runif() 167 Matrix<double,Col,Concrete> runif (unsigned int rows, in runif() function 170 return rng<wrapped_generator<ENGINE> >::runif<Col,Concrete>(rows, in runif()
|
H A D | mersenne.h | 193 inline double runif() in runif() function 225 inline Matrix<double,O,S> runif(unsigned int rows, in runif() function 228 return rng<mersenne>::runif<O,S>(rows, cols); in runif() 252 Matrix<double,Col,Concrete> runif(unsigned int rows, in runif() function 255 return rng<mersenne>::runif<Col,Concrete>(rows, cols); in runif()
|
H A D | MCMCnbutil.h | 52 int comp = ceil((rmat2.rows()) * stream.runif()); in init_aux() 68 double U = stream.runif(); in sample_discrete() 109 U = stream.runif(); in rho_slice_sampler() 113 V = stream.runif(); in rho_slice_sampler() 136 U = stream.runif(); in rho_slice_sampler() 145 U = stream.runif(); in rho_slice_sampler() 183 U = stream.runif(); in rho_prior_sampler() 187 V = stream.runif(); in rho_prior_sampler() 210 U = stream.runif(); in rho_prior_sampler() 219 U = stream.runif(); in rho_prior_sampler() [all …]
|
/dports/devel/R-cran-gbm/gbm/R/ |
H A D | test.gbm.R | 13 X1 <- runif(N) 14 X2 <- 2*runif(N) 18 X6 <- 3*runif(N) 55 X1 <- runif(N) 56 X2 <- 2*runif(N) 85 X1 <- runif(N) 86 X2 <- runif(N) 125 X1 <- runif(N) 126 X2 <- runif(N) 155 X1 <- runif(N) [all …]
|
/dports/math/R-cran-DEoptimR/DEoptimR/R/ |
H A D | JDEoptim.R | 30 ignore <- runif(d) > CRtrial 34 trial <- if (runif(1) <= pFtrial) 212 (1 + jitter_factor*runif(d, -0.5, 0.5)) %o% runif(NP, Fl, Fu) 213 else matrix(runif(NP, Fl, Fu), nrow = 1) 214 CR <- runif(NP) 215 pF <- runif(NP) 256 Ftrial <- if (runif(1) <= tau_F) { 258 runif(1, Fl, Fu) * (1 + jitter_factor*runif(d, -0.5, 0.5)) 259 else runif(1, Fl, Fu) 262 CRtrial <- if (runif(1) <= tau_CR) runif(1) else CR[i] [all …]
|
/dports/graphics/R-cran-shape/shape/demo/ |
H A D | colorshapes.r | 224 Arrowhead(x0=runif(10),y0=runif(10),angle=runif(10)*360, 227 Arrowhead(x0=runif(10),y0=runif(10),angle=runif(10)*360, 230 Arrowhead(x0=runif(10),y0=runif(10),angle=runif(10)*360, 241 x0<-runif(100,xlim[1],xlim[2]) 242 y0<-runif(100,ylim[1],ylim[2]) 243 x1<-x0+runif(100,-1,1) 244 y1<-y0+runif(100,-1,1) 246 ang <- runif(100,-360,360) 255 x0<-runif(100,xlim[1],xlim[2]) 257 x1<-x0+runif(100,-1,1) [all …]
|
/dports/devel/R-cran-lubridate/lubridate/tests/testthat/ |
H A D | test-instants.R | 32 y <- as.integer(runif(N, 1800, 2200)) 33 m <- as.integer(runif(N, 1, 12)) 34 d <- as.integer(runif(N, 1, 28)) 35 H <- as.integer(runif(N, 0, 23)) 36 M <- as.integer(runif(N, 0, 59)) 37 S <- runif(N, 0, 59) 41 S <- as.integer(runif(N, 0, 59))
|
/dports/devel/R-cran-rgexf/rgexf/demo/ |
H A D | gexfrandom.R | 28 edges1 <- edges1[,which(runif(ncol(edges1)) > (1-prb))] 32 edges2 <- edges2[,which(runif(ncol(edges2)) > (1-prb))] 36 edges3 <- edges3[, which(runif(ncol(edges3)) > (1 - prb))] 41 size <- runif(n, max = 100) 43 color <- color[order(runif(n))][1:n] 46 color2 <- color2[order(runif(n))][1:n] 49 color3 <- color3[order(runif(n))][1:n]
|
/dports/devel/R-cran-purrr/purrr/tests/testthat/ |
H A D | test-partial.R | 4 out <- partialised_body(partial(runif, n = rpois(1, 5))) 5 exp <- quo((!!runif)(n = rpois(1, 5), ...)) 138 out <- partialised_body(partial(runif, n = rpois(1, 5), .first = FALSE)) 139 exp <- quo((!!runif)(..., n = rpois(1, 5))) 143 expect_identical(partialised_body(partial(runif, .first = TRUE)), quo((!!runif)(...))) 144 expect_identical(partialised_body(partial(runif, .first = FALSE)), quo((!!runif)(...)))
|
/dports/graphics/R-cran-visNetwork/visNetwork/inst/tests/ |
H A D | highlight_combinaison.R | 4 edges <- data.frame(from = trunc(runif(5)*(5-1))+1, 5 to = trunc(runif(5)*(5-1))+1) 15 edges <- data.frame(from = trunc(runif(5)*(5-1))+1, 16 to = trunc(runif(5)*(5-1))+1) 29 edges <- data.frame(from = trunc(runif(5)*(5-1))+1, 30 to = trunc(runif(5)*(5-1))+1) 40 edges <- data.frame(from = trunc(runif(5)*(5-1))+1, 41 to = trunc(runif(5)*(5-1))+1) 50 edges <- data.frame(from = trunc(runif(5)*(5-1))+1, 51 to = trunc(runif(5)*(5-1))+1)
|
/dports/graphics/R-cran-shape/shape/man/ |
H A D | Arrowhead.Rd | 56 Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, 58 Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, 60 Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, 61 arr.length = runif(10), arr.type = "triangle",
|
H A D | Arrows.Rd | 74 x0 <- runif(100, xlim[1], xlim[2]) 75 y0 <- runif(100, ylim[1], ylim[2]) 76 x1 <- x0+runif(100, -1, 1) 77 y1 <- y0+runif(100, -1, 1) 83 x0 <- runif(100, xlim[1], xlim[2]) 84 y0 <- runif(100, ylim[1], ylim[2]) 85 x1 <- x0 + runif(100, -1, 1) 86 y1 <- y0 + runif(100, -1, 1) 126 y0 <- runif(100, ylim[1], ylim[2]) 127 x1 <- x0+runif(100, -1, 1) [all …]
|
/dports/biology/cufflinks/cufflinks-2.2.1-89-gdc3b0cb/src/locfit/ |
H A D | random.c | 15 double runif() in runif() function 55 u = runif(); 56 rnormk = 1.715527769 * (runif()-0.5) / u; 64 { return(-log(runif())/lb); 88 q *= runif(); 106 u = c5 * runif(); 107 e = -log(runif()); 127 y = delta - 2*d*log(runif())/delta;
|
/dports/devel/R-cran-bitops/bitops/tests/ |
H A D | consistency.R | 84 a <- round(runif(500)*2^33) 98 is.na(bitShiftR(a,runif(10)*32)[-b]) 99 is.na(bitShiftL(a,runif(10)*32)[-b]) 114 is.na(bitShiftR(a,runif(10)*32)[-b]) 115 is.na(bitShiftL(a,runif(10)*32)[-b]) 130 is.na(bitShiftR(a,runif(10)*32)[-b]) 131 is.na(bitShiftL(a,runif(10)*32)[-b]) 146 is.na(bitShiftR(a, runif(10)*32)[-b]) 147 is.na(bitShiftL(a, runif(10)*32)[-b]) 162 is.na(bitShiftR(a, runif(10)*32)[-b]) [all …]
|
/dports/devel/R-cran-rgexf/rgexf/inst/doc/ |
H A D | rgexf.R | 48 edges1 <- edges1[, which(runif(ncol(edges1)) > (1 - prb))] 52 edges2 <- edges2[, which(runif(ncol(edges2)) > (1 - prb))] 56 edges3 <- edges3[, which(runif(ncol(edges3)) > (1 - prb))] 61 size <- runif(n, max = 100) 63 color <- color[order(runif(n))][1:n] 67 color2 <- color2[order(runif(n))][1:n] 71 color3 <- color3[order(runif(n))][1:n]
|
/dports/devel/R-cran-Hmisc/Hmisc/tests/ |
H A D | redun.r | 3 x1 <- runif(n) 4 x2 <- runif(n) 5 x3 <- x1 + x2 + runif(n)/10 6 x4 <- x1 + x2 + x3 + runif(n)/10
|
/dports/math/R-cran-geometry/geometry/tests/testthat/ |
H A D | test-tsearch-tsearchn-comparison.R | 4 X <- runif(50) 5 Y <- runif(50) 7 XI <- runif(1000) 8 YI <- runif(1000)
|
/dports/finance/R-cran-timeSeries/timeSeries/inst/unitTests/ |
H A D | runit.NA.R | 33 nCol = trunc(runif(nNA, 1, M+1)) 34 nRow = trunc(runif(nNA, 1, N+1)) 74 nCol = trunc(runif(nNA, 1, M+1)) 75 nRow = trunc(runif(nNA, 1, N+1)) 135 nCol = trunc(runif(nNA, 1, M+1)) 136 nRow = trunc(runif(nNA, 1, N+1))
|
/dports/math/R-cran-igraph/igraph/tests/testthat/ |
H A D | test_dimSelect.R | 16 expect_that(dim_select(runif(100)), equals(69)) 17 expect_that(dim_select(runif(100)), equals(88)) 18 expect_that(dim_select(runif(100)), equals(3)) 19 expect_that(dim_select(runif(100)), equals(99))
|
/dports/devel/R-cran-gbm/gbm/demo/ |
H A D | gaussian.R | 7 X1 <- runif(N) 8 X2 <- 2*runif(N) 12 X6 <- 3*runif(N) 64 X1 <- runif(N) 65 X2 <- 2*runif(N) 69 X6 <- 3*runif(N)
|