是否可以在R中編碼音樂並播放它？ （Mac OS X）

Question

我不知道是否有方法在r中編寫腳本來創建音樂。像編碼程序（SuperCollider或更少的編碼，但仍然是純數據），我想知道是否有方法在R中生成聲音。

其實，我知道這是非常好的How can I play birthday music using R?。但我想要做和絃和多樂器組合。可能嗎？

在R中播放音樂的方式比生日快樂鏈接更簡單嗎？

Answer 1

在R中可以編程使用調音器庫

首先，你需要爲每一個音符創建簡單的正弦波並連接所有的筆記爲載體創作音樂。

現在調會準備好，你可以使用不同的聲音處理技術，如音色，過濾等

實例創建一個簡單的A4筆記編輯您的聲音：

library(tuneR)  #import the tuneR library 
setWavPlayer("audacious") 
f=440     #frequency of A4 note 
sr=8000 
bits=16 
secs=2    #length of the note set to 2 
amp=1 
t=seq(0, secs, 1/sr) 
y= amp*sin(2*pi*f*t) #make a sinewave with above attributes 
s=floor(2^(bits-2)*y) #floor it to make it an integer value 
u=Wave(s, samp.rate=sr, bit=bits) #make a wave structure 
play(u) 

要連接兩個票據x和y，我們簡單地使用向量記號：

z=c(x,y) 
w= Wave(z, samp.rate=sr, bit-bits) 

同時播放兩個音符（例如播放和絃）

z=x+y 
w= Wave(z, samp.rate=sr, bit-bits) 

Answer 2

就目前而言，這是我想出來的最好的：

library("audio") 
library(tuneR)  #import the tuneR library 
for (i in 1:10) { 
yo=abs(round(rnorm(1,400,500))) 
f=yo     #frequency of A4 note 
sr=1000000 
bits=116 
secs=5    #length of the note set to 2 
amp=1 
t=seq(0, secs, 1/sr) 
y= amp*sin(2*pi*f*t) #make a sinewave with above attributes 
s=floor(2^(bits-2)*y) #floor it to make it an integer value 
# u=Wave(s, samp.rate=sr, bit=bits) #make a wave structure 
u=audioSample(x = s, rate = sr,bits = bits) 
audio::play(u) 
}