The wang13
R package implements Wang et al.’s (2013) roughness model.
Try an interactive demo here!
Within R, you can install the current version of wang13
from Github as
follows:
if (!require(devtools)) install.packages("devtools")
devtools::install_github("wang13")
Higher scores correspond to greater roughness.
library(wang13)
# Octave
roughness_wang(c(60, 72))
#> [1] 0.2005657
# Semitone
roughness_wang(c(60, 61))
#> [1] 1.124933
Wang, Y. S., Shen, G. Q., Guo, H., Tang, X. L., & Hamade, T. (2013). Roughness modelling based on human auditory perception for sound quality evaluation of vehicle interior noise. Journal of Sound and Vibration, 332(16), 3893–3904. https://doi.org/10.1016/j.jsv.2013.02.030
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.