Science Score: 10.0%
This score indicates how likely this project is to be science-related based on various indicators:
-
○CITATION.cff file
-
○codemeta.json file
-
○.zenodo.json file
-
○DOI references
-
○Academic publication links
-
✓Committers with academic emails
3 of 7 committers (42.9%) from academic institutions -
○Institutional organization owner
-
○JOSS paper metadata
-
○Scientific vocabulary similarity
Low similarity (12.0%) to scientific vocabulary
Repository
RT distributions in R
Statistics
- Stars: 47
- Watchers: 7
- Forks: 14
- Open Issues: 10
- Releases: 0
Metadata Files
README.md
rtdists: Response time distributions in R
Features
Distribution functions for response time models:
- distribution function or probability density function (PDF)
- cumulative distribution function (CDF)
- random number generation (RNG)
The following choice RT models are currently supported:
- diffusion model (using fast-dm C code by Andreas and Jochen Voss)
- LBA with varying distributions of the drift rate variability
Installation
From CRAN:
install.packages("rtdists")Development version from Github:
Note, for installing the development version packagedevtoolsis needed which may require some additional software (see here section "Getting started")devtools::install_github("rtdists/rtdists")
Get Started:
``` require(rtdists)
LBA: recovers parameters
rt1 <- rLBA(500, A=0.5, b=1, t0 = 0.5, meanv=c(2.4, 1.6), sdv=c(1,1.2)) head(rt1)
rt response
1 0.9618439 1
2 1.4018867 1
3 1.2188635 2
4 1.2192848 2
5 1.3690870 1
6 0.9478666 2
prop.table(table(rt1$response))
1 2
0.67 0.33
objective_fun <- function(par, rt, response, distribution = "norm") { # simple parameters spar <- par[!grepl("[12]$", names(par))]
# distribution parameters: distparnames <- unique(sub("[12]$", "", grep("[12]$" ,names(par), value = TRUE))) distpar <- vector("list", length = length(distparnames)) names(distpar) <- distparnames for (i in distparnames) distpar[[i]] <- as.list(unname(par[grep(i, names(par))])) distpar$sdv <- c(1, distpar$sd_v)
# get summed log-likelihood: d <- do.call(dLBA, args = c(rt=list(rt), response=list(response), spar, dist_par, distribution=distribution, silent=TRUE)) if (any(d == 0)) return(1e6) else return(-sum(log(d))) }
objectivefun(c(A=0.5, b=1, t0=0.5, meanv1=2.4, meanv2=1.6, sdv1=1.2), rt=rt1$rt, response=rt1$response)
[1] -80.07828
initpar <- c(runif(3, 0, 0.5), runif(3, 0.5, 2)) names(initpar) <- c("A", "b", "t0", "meanv1", "meanv2", "sdv2") nlminb(objectivefun, start = init_par, rt=rt1$rt, response=rt1$response, lower = 0)
$par
A b t0 meanv1 meanv2 sd_v1
0.6132217 0.9290514 0.5308384 2.1996558 1.6219721 0.8583436
$objective
[1] -84.46802
$convergence
[1] 0
$iterations
[1] 50
$evaluations
function gradient
74 332
$message
[1] "relative convergence (4)"
Diffusion
example(Diffusion)
```
Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
Owner
- Name: rtdists
- Login: rtdists
- Kind: organization
- Repositories: 3
- Profile: https://github.com/rtdists
GitHub Events
Total
- Issues event: 1
- Watch event: 2
Last Year
- Issues event: 1
- Watch event: 2
Committers
Last synced: almost 3 years ago
Top Committers
| Name | Commits | |
|---|---|---|
| singmann | s****n@g****m | 165 |
| singmann | h****n@p****e | 139 |
| Matthew Gretton | m****n@u****u | 18 |
| MG | M****n | 3 |
| unknown | m****n@F****l | 1 |
| Dirk Eddelbuettel | e****d@d****g | 1 |
| Tomas Kalibera | k****a@c****u | 1 |
Committer Domains (Top 20 + Academic)
Issues and Pull Requests
Last synced: about 1 year ago
All Time
- Total issues: 12
- Total pull requests: 7
- Average time to close issues: 22 days
- Average time to close pull requests: 3 months
- Total issue authors: 9
- Total pull request authors: 6
- Average comments per issue: 0.92
- Average comments per pull request: 1.57
- Merged pull requests: 5
- Bot issues: 0
- Bot pull requests: 0
Past Year
- Issues: 0
- Pull requests: 0
- Average time to close issues: N/A
- Average time to close pull requests: N/A
- Issue authors: 0
- Pull request authors: 0
- Average comments per issue: 0
- Average comments per pull request: 0
- Merged pull requests: 0
- Bot issues: 0
- Bot pull requests: 0
Top Authors
Issue Authors
- singmann (3)
- bnicenboim (2)
- YuanboBQ (1)
- drussellmrichie (1)
- DominiqueMakowski (1)
- GidonFrischkorn (1)
- Angus-Reynolds (1)
- japhir (1)
- crsh (1)
- guntherklobe (1)
Pull Request Authors
- singmann (2)
- eddelbuettel (1)
- psychelzh (1)
- MGretton (1)
- wjhopper (1)
- kalibera (1)
Top Labels
Issue Labels
Pull Request Labels
Packages
- Total packages: 1
-
Total downloads:
- cran 2,095 last-month
- Total docker downloads: 24,162
- Total dependent packages: 7
- Total dependent repositories: 15
- Total versions: 13
- Total maintainers: 1
cran.r-project.org: rtdists
Response Time Distributions
- Homepage: https://github.com/rtdists/rtdists/
- Documentation: http://cran.r-project.org/web/packages/rtdists/rtdists.pdf
- License: GPL (≥ 3)
-
Latest release: 0.11-5
published over 4 years ago
Rankings
Maintainers (1)
Dependencies
- R >= 3.0.0 depends
- Rcpp * imports
- evd * imports
- gsl * imports
- msm * imports
- stats * imports
- RWiener * suggests
- binom * suggests
- dplyr * suggests
- glba * suggests
- knitr * suggests
- lattice * suggests
- latticeExtra * suggests
- purrr * suggests
- rmarkdown * suggests
- testthat * suggests
- tidyr * suggests