Skip to content
master
Go to file
Code

Latest commit

 

Git stats

Files

Permalink
Failed to load latest commit information.
Type
Name
Latest commit message
Commit time
R
 
 
 
 
man
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

README.md

ymse

ymse [y`msə] adjective

Various, of various kind, not specified

Old Norse ýmsir, ýmissir, pl. ýmiss, ímiss

Usage

library(devtools)
install_github("AkselA/R-ymse")
library(ymse)

# Effect of an uneven d20 die on summed PDF 
d20l <- d20 <- dice(20)
d20l[c(16, 11)] <- 0.6
d20l[c(3, 20, 18, 19)] <- 1.2

c0 <- combodice(list(dice(6), dice(10), d20), method="conv", name="fair")
cl <- combodice(list(dice(6), dice(10), d20l), method="conv", name="uneven")

set_mar()
plot(c0, type="o", pch=16, col="grey")
points(cl, col=2, type="o", lwd=1, pch=16, cex=0.6)
legend("topright", c("fair", "uneven"), bty="n", col=c("grey", "red"), lwd=2:1)

graph

graph

About

Various more or less useful R functions

Resources

Releases

No releases published

Packages

No packages published
You can’t perform that action at this time.