First 50 rows of r
| uuidstring | repo_namestring | relative_pathstring | contentstring | categorystring | algo_rel_scorefloat64 | quality_scorefloat64 |
|---|---|---|---|---|---|---|
| 2fecb062-78dd-44e4-91d6-4a65b175b793 | briancabbott/programming-sandbox-r | R/R-4.1.2/src/library/graphics/R/mtext.R | mtext <- function (text, side = 3, line = 0, outer = FALSE, at = NA, adj = NA, padj = NA, cex = NA, col = NA, font = NA, ...) invisible(.External.graphics(C_mtext, as.graphicsAnnot(text), side, line, outer, at, adj, padj, cex, col, font, ...)) | TOOL | 0.8297984004020691 | 5.153584957122803 |
| 0e8a7907-d859-41db-a446-1066c7139788 |
| R/logtrans.R |
| logtrans <- function(object, ...) UseMethod("logtrans") logtrans.default<- function(object, ..., alpha = seq(0.5, 6, by = 0.25) - min(y), plotit = TRUE, interp = (plotit && (m < 100)), xlab = "alpha", ylab = "log Likelihood") { if(is.null(object$y) || is.null(object$qr)) … |
| TOOL |
| 0.6053959131240845 |
| 4.913801670074463 |
| 8df79c68-b6c4-494b-8852-ea091d681923 | r-lib/testthat | R/snapshot-reporter-parallel.R | MainprocessSnapshotReporter <- R6::R6Class( "MainprocessSnapshotReporter", inherit = SnapshotReporter, public = list( end_file = function() { # No thing to do, this is done in the subprocess } ) ) SubprocessSnapshotReporter <- R6::R6Class( "SubprocessSnap… | TOOL | 0.7072983384132385 | 4.305603981018066 |
| 7b1107ab-c223-4205-b684-9d355b69fe4d | johndharrison/seleniumPipes | man-roxygen/ret7.R | #' @return invisible(webElem): An object of class "wElement" is invisibly #' returned. A webElement object see \code{\link{wbElement}}. This #' allows for chaining from this function to other functions that take #' such an object as an argument. See examples for further … | TOOL | 0.7922593951225281 | 5.445562839508057 |
| e2681bc7-9a01-40b4-903d-9c6396c5c35b | ProjectTw/TwitteR2Mongo | R/mongoConnection.R | #' Set MongoDB Credentials #' #' Function to set MongoDB credentials. Type can be hometimeline or filterstream. #' Creates either hometimeline or filterstream as a connection element. #' #' @param type Type to set the MongoDB credentials for: hometimeline or filterstream #' @para… | TOOL | 0.6950346231460571 | 5.0174970626831055 |
| c8dabebf-5e31-466e-ad86-780206907869 | harveyl888/shinylive-test | docs/site_libs/quarto-contrib/shinylive-0.2.1/shinylive/webr/vfs/usr/lib/R/tests/timezone.R | ## moved from reg-tests-1d.R and datetime.R as failure should not be fatal ## to make check-devel. ## PR#17186 - Sys.timezone() on some Debian-derived platforms (S.t <- Sys.timezone()) ## NB: This will fail on non-standard platforms, or even standard new OSes. ## -- We are stri… | TOOL | 0.532285749912262 | 5.643886566162109 |
| ea774b63-2cc9-403c-bc27-bb1bf2281656 | humAsif-govcio/snyk-scan-rpackages | lme4_1.1-35.5.tar/lme4/tests/optimizer.R | library(lme4) source(system.file("test-tools-1.R", package = "Matrix"), keep.source = FALSE) ## N.B. is.all.equal4() and assert.EQ() use 'tol', not 'tolerance' ## should be able to run any example with any bounds-constrained optimizer ... ## Nelder_Mead, bobyqa built in; optimx… | TEST | 0.6989144682884216 | 6.847430229187012 |
| 0a13ae39-a791-4df1-b478-00b27c015f21 | eugenedemidenko/advancedstatistics | RcodeData/gampois.r | gampois <- function(lambda=5,alpha=300,nSim=100000) { dump("gampois","c:\\StatBook\\gampois.r") par(mfrow=c(1,2),mar=c(4,4,1,1)) Nmax=24*60 # minutes in a day talpha=rep(NA,nSim) #array of times ind=1:Nmax for(i in 1:nSim) { x=rpois(Nmax,lambda=lambda) xsum=cumsum(x) #cum… | DATA | 0.5572834610939026 | 3.5432651042938232 |
| d0b574ae-9c75-47e1-9fed-37889c9222ce | bioconductor-source/MAST | R/LmWrapper.R | ## Methods for LMlike ##' Display info ##' ##' Prints information on a LMlike object ##' @export ##' @param object an object of some type ##' @rdname show ##' @title show ##' @return side effect of printing to console setMethod('show', signature=c(object='LMlike'), function(obje… | TOOL | 0.7946284413337708 | 4.267129898071289 |
| c3a9116f-4001-46dd-9d8b-87c9586086e0 | Bhavatharanig/CSA1693--DWDM | median.R | x <-c(12,7,3,4.2,18,2,54,-21,8,-5) result.median <-median(x) print(result.median) | DATA | 0.8025356531143188 | 5.1277008056640625 |
| c39491a8-5496-40bd-b394-a0583d45d847 | iNZightVIT/screenshot | R/capture.R | #' Capture Screenshot #' #' @param file The name of the file #' @param grid optional, if TRUE then a grid is overlaid to help with #' positioning #' @return NULL, generates a file called 'file.png' #' @export capture <- function(file, grid = getOption("screenshot.dev.… | TOOL | 0.7904027700424194 | 5.876819133758545 |
| dffb1fd7-2b15-4ab2-8d93-0ad8bacc7c0d | catbot0/pawr-package | R/meowscraper_tiny.R | #' Random cat find image URL (faster) #' #' Returns URL of a randomly selected cat image from Wikimedia.org #' #' @usage find_tinyCat() #' #' @param NA None yet #' #' @importFrom rvest read_html html_nodes #' #' @examples find_tinyCat() #' #' @export find_tinyCat <- function() { … | DATA | 0.700652539730072 | 4.373471260070801 |
| 404d37b5-76f8-42c4-b511-ed894c30ed45 | cran/r2redux | R/r2_diff2.r | #' r2_diff function #' #' This function estimates var(R2(y~x\[,v1]) - R2(y~x\[,v2])) #' where R2 is the R squared value of the model, #' y is N by 1 matrix having the dependent variable, and #' x is N by M matrix having M explanatory variables. #' v1 or v2 indicates the ith colum… | DATA | 0.6440174579620361 | 3.0479485988616943 |
| 63c8d521-7804-4a99-be0f-d25801e70f31 | bioconductor-source/nearBynding | R/ExtractTranscriptomeSequence.R | #' @title ExtractTranscriptomeSequence #' #' @description Writes a FASTA file of transcript sequences from a list of #' transcripts. #' #' @param transcript_list A vector of transcript names that represent the most #' expressed isoform of their respective genes and correspond to … | DATA | 0.585955798625946 | 4.426648139953613 |
| 41df2f35-37fa-45f5-acc0-2218254d33f5 | lanl/BASS | inst/testf5.R | ############################################################### ## f5: Ishigami function, continuous variables (https://www.sfu.ca/~ssurjano/ishigami.html) ############################################################### library(BASS) f<-function(x,a=7,b=.1) sin(x[,1])*(1+b*x[,… | DATA | 0.5578987002372742 | 4.923620700836182 |
| 91f20a20-4065-42e5-b1e7-361b71e6a5b2 | pnacht/simplysql | R/validate_connection_args.R | #' @importFrom assertthat assert_that #' @importFrom DBI dbCanConnect #' @importFrom glue glue #' @importFrom rlang is_call_simple .validate_connection_args <- function(args) { names <- names(args) assertthat::assert_that( !any(names == ""), msg = "All arguments give… | TOOL | 0.8088362812995911 | 6.656659126281738 |
| 778a2711-4517-4373-8c6c-eca272fb085c | AlexKnyshov/reduvioid_phylogenomic_pipeline | R_scripts/lbfilter.R | library(ape) library(phangorn) args = commandArgs(trailingOnly=TRUE) if (length(args) == 0){ cat("Syntax: Rscript lbfilter.R [path to tree] [path to alignment] [seq type: dna, prot] [threshold]\n") cat("Example: Rscript lbfilter.R locus.tre locus.fas dna 4\n") quit() } tree… | DATA | 0.6394689083099365 | 4.9705400466918945 |
| 981d4236-f60b-45d3-9544-f46da6d1abd1 | rparrish/ccdm | R/connections.R | #' #' @imports duckdb duckdb #' @imports here here get_ccdm_connection <- function() { conn <- duckdb::duckdb() if(!config::get()$environment == "local") { drv <- duckdb::duckdb(here::here("Data/ccdm.db")) conn <- dbConnect(drv) } if(config::get()$e… | TOOL | 0.6415843963623047 | 5.6779255867004395 |
| c73e0b89-bbbc-41aa-b76b-5984060a5bf5 | bjebert/adventofcode | 2023/21-1.R | rm(list=ls()) source("utilities.R") inp <- get_input("2023/21", parse = F, deesblake = F, cache = T) inp <- strsplit("........... .....###.#. .###.##..#. ..#.#...#.. ....#.#.... .##..S####. .##..#...#. .......##.. .##.#.####. .##..##.##. ...........", "\n")[[1]] mat <- inp2mat(… | ALGO | 0.8063656091690063 | 6.399072647094727 |
| 5a26ea0c-1a35-44d4-91e0-39ed4698654e | voltek62/seo-viz-install | R-Portable/App/R-Portable/library/foreach/unitTests/iteratorTest.R | # test matrix iterator with foreach test01 <- function() { m <- matrix(rnorm(25 * 16), 25) x <- foreach(col=iter(m, by='col'), .combine='cbind') %do% col checkEquals(m, x) x <- foreach(col=iter(m, by='col'), .combine='cbind') %dopar% col checkEquals(m, x) x <- fore… | TEST | 0.8017938733100891 | 6.418354511260986 |
| 2914da80-6d1f-4fd7-8435-8343821041be | ms609/TreeDist | R/Plot3.R | #' Pseudo-3D plotting #' #' `Plot3()` displays three-dimensional data in two dimensions, reflecting the #' third dimension with point scaling, overlap and fogging. #' Points with a lower `z` value are smaller than, fainter than, and overlapped #' by points with a higher value. #… | DATA | 0.6096193194389343 | 3.8629310131073 |
| 9b403285-38b6-453c-8d4d-83d091e8abc6 | mayerantoine/Rdhis2PresepiMigration | R/enrollInProgram.R | #' Enroll Tracked Entity Instance in the Program Presepi #' #' #' @param payload list #' #' @return the enrollment id or try-error if failed enrollInProgram <- function(payload) { url_enrol <- "http://<IP_ADDRESS>:8082/dhis/api/enrollments" res <- POST(url = url_enrol, … | TOOL | 0.7805969715118408 | 3.300248861312866 |
| 68ba0e17-8ebf-496e-be46-5153de2f0229 | STAT545-UBC-hw-2018-19/hw07-yukirang | foofactors/R/fdetect.R | #' Detect factors that should be character #' @param a factor #' #' @return boolean #' @export fdetect <- function(a) { if (!is.factor(a)) { stop("Please input a factor") } # check whether length of unique values == length return(length(unique(a)) == length(a)) } | TOOL | 0.8538812398910522 | 5.564505100250244 |
| 5f0e341e-2275-4d80-b80c-d60d879a3d40 | myominnoo/shinyAuthX | R/signup.R | #' Sign-up UI module #' #' Shiny UI module to be used with \link{signupServer}. #' #' @param id The ID for the UI module. #' @param ... Additional arguments to be passed to the shiny::wellPanel function. #' @param .header header for the sign-in panel, defaults to `NULL`. #' #' … | WEB | 0.6283401250839233 | 4.879571437835693 |
| 9bea3a2f-0b2b-4b53-95da-b87691355d02 | deepin-community/survival | R/blogit.R | # bounded links for pseudovalues blogit <- function(edge=.05) { new <- make.link("logit") new$linkfun <- function(mu) { x <- (pmax(edge, pmin(mu, 1-edge))) log(x/(1-x)) } new$name <- "blogit" new } bcloglog <- function(edge=.05) { new <-… | TOOL | 0.8322943449020386 | 4.696124076843262 |
| 3c6cc88b-5b50-43ff-8f81-c92d68b20831 | wangyuexiang/GitHub | SA/RPackages/Rcpp/unitTests/runit.Module.client.package.R | .tearDown <- function(){ gc() } ## The unit test in this file fails on OS X 10.5.* but pass on 10.6.* ## Sys.info release comes back with 10.* for the latter but 9.* for the former ## Thanks to Simon Urbanek and Baptiste Auguie for suggesting and testing this .badOSX <- (Sys.in… | TEST | 0.5936241149902344 | 5.952321529388428 |
| 0812a0bc-4d42-4f20-8783-09808f02b585 | Edouard-Legoupil/kobocruncher | R/utils-pipe.R | #' Pipe operator #' #' See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details. #' #' @name %>% #' @rdname pipe #' @keywords internal #' @export #' @importFrom magrittr %>% #' @usage lhs \%>\% rhs #' @param lhs A value or the magrittr placeholder. #' @param rhs A function ca… | CONFIG | 0.8302549719810486 | 5.833021640777588 |
| a71a3bbf-caa2-48f6-a738-5d3b1d2c98c3 | n-kall/bayesian-workflow-wiki | R/tikzpicture-template.R | require(tikzDevice) # define plot saving method save_tikz_plot <- function( plot, filename, width = NA, height = NA, asp = NA ) { # automatic scaling if (is.na(asp)) asp <- 1.618 if (is.na(width) && is.na(height)) { height <- 3.71 width <- height * asp } el… | TOOL | 0.5762160420417786 | 4.964572429656982 |
| 99d0290c-d46f-49d7-8795-a61d5acc6c4a | sluca91/PfizerPASS1021analysis | Data characterisation/PfizerScript/p_steps/functions/SeparateCodes.R | SeparateCodes <- function(codesheet,code_col,separator,vars){ new2 <-list() for(j in code_col){ codesheet_k <- codesheet[!is.na(codesheet[[j]]),c(vars,j)] codesheet1 <- codesheet_k[grepl(pattern = separator,codesheet_k[[j]]), c(vars,j)] codesheet2 <-… | DATA | 0.7275919318199158 | 3.4140677452087402 |
| 06ff2575-7960-429b-a22f-3ff9d50debe4 | shoaibrayeen/R | Continuous Distribution Functions/uniform_distribution.R | #uniform continous distribution # alpha beta is the limits where uniform distribution lies # low and high are the integration limits (low<high) uniform<-function(alpha, beta ,low , high ) { result<-(b-a)/(beta-alpha) result<-formatC(result,digits=6,format="f") return(result) }… | ALGO | 0.8811342716217041 | 4.890726566314697 |
| 26f949fe-af79-45e5-8f7c-7bb6c25ae093 | sysbio-bioinf/DynamicDriverSets | NetworkDiameters_calculation.R | library(igraph) library(gtools) library(BoolNet) conv2adjmat <- function(network, inputcorrected = FALSE){ "Converts an SBML object to adjacency matrix. If inputcorrected = T, all input edges are set to zero. A vertex v is said to be an input if it is only regulated by i… | DATA | 0.7281341552734375 | 4.861537456512451 |
| 2d52646a-fdbd-46da-92fc-84c38f962e79 | Chloever-Lee/CS-251_WN23_Chloe-Heejin-Lee | HOP01-Chloe Lee/dataTypes.R | A<-"ABC"; print(class(A)); A <-123; print (class(A)); A <-TRUE; print(class(A)); | TOOL | 0.7359647154808044 | 4.380900859832764 |
| b38af2f5-20c6-4dd6-8f09-13bc70ff7b35 | r-world-devs/GitAI | R/find_records.R | #' Finding top K records in a vector database. #' #' @param query A character, user query. #' @param top_k A numeric, number of top K records to return. #' @inheritParams process_repos #' #' @export find_records <- function( gitai, query, top_k = 1, verbose = is_verbose… | TOOL | 0.7926622033119202 | 4.604456424713135 |
| b77146f1-b6be-426b-8bbf-837763922807 | cran/gert | R/diff.R | #' Git Diff #' #' View changes in a commit or in the current working directory. #' #' @export #' @rdname git_diff #' @name git_diff #' @inheritParams git_open #' @family git #' @param ref a reference such as `"HEAD"`, or a commit id, or `NULL` #' to the diff the working directory… | TOOL | 0.7919907569885254 | 4.571964263916016 |
| 02347ab7-5c08-4c2b-996b-d3a7d84d343d | cran/sephora | R/local_min_max.R | #' Local minimum and maximum of a real-valued continuous function over an open interval #' #' Gets local minimum and maximum of a given function expression #' on an interval using basic calculus criteria #' #' @param f function expression #' @param f1der function expression… | ALGO | 0.8784175515174866 | 5.238894939422607 |
| ad7cc4f2-33a4-4b85-b66e-9265b9553e65 | vegandevs/vegan | R/rad.preempt.R | "rad.preempt" <- function (x, family = poisson, ...) { canfun <- function(p, x, ...) { if (length(x) <= 1) return(0) p <- plogis(p) if (p == 1) p <- 1 - .Machine$double.eps fv <- linkinv(logJ + log(p) + log(1 - p) * … | ALGO | 0.867736279964447 | 5.189946174621582 |
| 68486933-669f-4b87-9615-0574c345abc0 | tmcd82070/Rdistance | R/groupSizes.R | #' @title Group Sizes #' #' @description #' Extract the group size information from #' an Rdistance model frame. #' #' @inheritParams startLimits #' #' @param ... Ignored #' #' @return A vector containing group sizes contained #' in the Rdistance model frame or fitted object… | TOOL | 0.6247654557228088 | 6.67181921005249 |
| d8726b56-98a3-4ad0-b158-3cdd19a72f9a | cran/Certara.RsNLME | R/NlmeIndirectParameters.R | LINEAR_ALPHA_TYPE <- 1 LINEAR_BETA_TYPE <- 2 LINEAR_GAMMA_TYPE <- 3 ModelLinearNames <- c("E = EAlpha ", "E = EAlpha + EBeta*C ", "E = EAlpha + EBeta*C + EGam*C^2") #' Class represents an NLME/PML Indirect PD model parameters #' #' Class represents an NLME/PML Indirect PD model… | TOOL | 0.7857182025909424 | 6.023152828216553 |
| 453263e1-e406-40cb-b4d0-32e6ae0820b5 | himchan-jeong/hmc_mixed_copula | copulalinks.R | # cop.int code: # 1=normal, 2=clayton, 3=gumbel, 4=frank link_normal <- function(x) atanh(x) link_clayton <- function(x) log(x + 1) link_gumbel <- function(x) log(x - 1) link_frank <- function(x) x invlink_normal <- function(x) tanh(x) invlink_clayton <- function(x) exp(x) … | ALGO | 0.8638360500335693 | 5.279942989349365 |
| c357a4f3-3375-49a7-98ed-4e43589f933e | cran/r4lineups | R/d_bar.boot.R | #Helper function for bootstrapping average diagnosticity ratio for k lineup pairs d_bar.boot <- function(df, d=d){ numerator <- df[d] %>% sum(df[3,]*df[2,]) denominator <- df[d] %>% sum(df[3,]) d_bar1 <- exp(numerator/denominator) return(d_bar1) } | DATA | 0.6402056813240051 | 4.7169976234436035 |
| f73c7b42-1e95-4b45-b3e0-6c528f48f5bd | henobe/flexoptr | R/format_da_prices.R | #' Make a day ahead price list #' #' Reformats a vector of price data into a day ahead format that is compatible #' with \code{optimise_schedule}. #' #' Data is grouped into groups of 24 and put into a list, the first element #' containing the first 24 prices, the next 23 element… | DATA | 0.8477169275283813 | 5.3173394203186035 |
| 7b1cb83f-7d6b-480f-9529-3de553b9a3ca | tempbioc/AnVIL | R/avworkflow_configuration.R | #' @name avworkflow_config-deprecated #' #' @aliases avworkflow_configurations #' #' @title Workflow configuration #' #' @inheritParams avworkflows-deprecated #' #' @description `r lifecycle::badge("deprecated")`\cr #' Functions on this help page facilitate getting, #' updati… | TOOL | 0.819472074508667 | 5.026484966278076 |
| c583e2ae-aca3-4c77-a3f5-edf54b348816 | ddegras/RRR | R/simulate.pls.model.R | simulate.pls.model <- function(n, p, q, r, sigma2 = NULL, center = TRUE) { r <- min(p, q, r) if (is.null(sigma2)) { sigma <- rep(1, 4) } else { stopifnot(all(sigma2 > 0)) sigma <- rep_len(sqrt(sigma2), 4) } tt <- matrix(rnorm(n*r), n, r) # common factors pp <- matrix(rnorm(p*r… | DATA | 0.5813771486282349 | 3.054305076599121 |
| 1d2a3a5c-db83-4ad2-b6b7-674af1e8d01e | godsc1997/StatComp20021 | R/StatComp20021R.R | #' @title Use four inputs to calculate the empirical log likelihood of the mean of the original two-dimensional sample using R. #' @description The theorem could be found in the book Empirical Likelihood by Art B.Owen. #' @import MASS #' @importFrom Rcpp evalCpp #' @importFrom st… | DATA | 0.537061333656311 | 3.8635950088500977 |
| 9dcebf75-2d1c-4672-9574-6269182dd31a | martintomas/iterative_prediction_of_pollutants | core/scripts/create-ncdf.r | createNcdf <- function(file.addr, col=121, row=121, lev=1, time=25, variables) { #time=default values of emis file #setup dimensions dim3 <- dim.def.ncdf("TSTEP","time",1:time, unlim=TRUE) dim2 <- dim.def.ncdf("LAY","levels",1:lev) #only one level, under ground dim1 <- di… | TOOL | 0.7005623579025269 | 3.495241403579712 |
| cbd50e33-b7c9-4788-85e7-31a34b5b85f2 | cbergmeir/tsExpKit | R/normalizeData.R | #' Data normalization. #' #' The input matrix is column-wise normalized. The parameter \code{type} specifies how: #' \describe{ #' \item{0_1}{values are normalized to the [0,1]-interval. The minimum in the data is mapped to zero, the maximum to one.} #' \item{center}{the data is … | DATA | 0.8614560961723328 | 4.828028202056885 |
| e182a06b-8c14-4b50-a315-d0cca1f1bc0c | elexielle/Nonparametric-Statistics | LESSONS/0_R_introduction.R | install.packages("name_of_package") #to install package library(name_of_package) #to load package #discussion examples numeric_vector = c(1, 2, 3, 4, 5) character_vector = c("a", "b", "c") logical_vector = c(T, T, F) class(logical_vector) #random things i tried lol a_vector = … | TOOL | 0.7323904633522034 | 4.6670942306518555 |
| ea4e85f4-9536-47de-9441-e57257e16250 | svn2github/rkward-svn-mirror | branches/release_branches/rkward_0.6.2/tests/distributions/geom_probabilities.rkcommands.R | local({ ## Compute result <- (pgeom (q = c (0.95), prob = 0.50, lower.tail=TRUE, log.p = FALSE)) ## Print result rk.header ("Geometric probability", list ("Vector of quantiles", "c (0.95)", "Probability of success in each trial", "0.50", "Tail", "lower.tail=TRUE", "Probabilities … | TOOL | 0.6627617478370667 | 4.312402725219727 |
| 75eebdb0-ca51-4015-9a25-d6a87c42ac86 | allr/r-instrumented | src/library/base/R/apply.R | apply <- function(X, MARGIN, FUN, ...) { FUN <- match.fun(FUN) ## Ensure that X is an array object dl <- length(dim(X)) if(!dl) stop("dim(X) must have a positive length") if(is.object(X)) X <- if(dl == 2L) as.matrix(X) else as.array(X) ## now record dim … | ALGO | 0.8900355100631714 | 3.9717748165130615 |
| 2584313d-71d9-4a66-9935-0df5197ddd02 | nzilbb/labbcat-R | R/transcriptUpload.R | #' Upload a transcript file and associated media files. #' #' Uploading files is the first stage in adding or modifying a transcript to LaBB-CAT. #' The second stage is transcriptUploadParameters() #' #' *NB* Using transcriptUpload and transcriptUploadParameters is an alternative… | TOOL | 0.5699448585510254 | 3.8289108276367188 |
