Merhabaarkadaşlar，Buyazıdasizlere R ile Sesİşlemeüzerinebazıbildiklerimi aktarmayaçalışacağım。 Benimiçindeyenibaşlayanbir heyecan sesişleme。 Fakat elimdengeldiğindebu konudaTürkçekaynaklarçıkarmayaçalışacağım。
时域，时空通讯，时事通讯，时事通讯，时事通讯，时事通讯。 时域中的时空说出的内容是：sinyalin zamaniçindekişiddetini。
- 如何以音频工程师的身份发现签名声音
- Phonograph.js：可容忍的移动网络音频
- Linux Audio：概述
- 数字音频超越预卷的四种方式。
- KA-101：微型音频监控套件，Ricevitore e Microregistratore
ÖncelikleRStudio’yuçalıştırıyoruzveüstündeçalışacağımızklasörübelirliyyuz。 文件中的文件>更多>设置为工作目录butonunatıklıyoruz
Benimklasörümdekendikaydetmişolduğum “ samet.wav” adınabir sesdosyasıvar。 瓦斯（Wav）dosyalarını手风琴edebilmek“ 调音” adındabir paketindireceğiz。 Bununiçinsolkısımdabulunan “ Console” kısmınaaşağıdabulunan koduyazmamızgerekiyor。
install.packages（“ tuneR”）
EvetartıkbaşarıylatuneRadlıpaketiyükledik。 Şimdi推崇dahil edelim。
库（“ tuneR”）
ArtıkR projemizdetuneR’ıntümözelliklerindefaydalanabiliriz。 您的声音说的是RStudioortamınadahil edelim。
声音<-readWave（“ samet.wav”）
str（声音）
带有6个插槽的正式类'Wave'[package“ tuneR”]
.. @左：int [1：72192] 24 23 26 25 22 25 17 22 20 22 ...
.. @右：num（0）
.. @立体声：logi错误
.. @采样率：整数44100
.. @位：整数16
.. @ pcm：logi是
“ samet.wav” dosyamıbaşarıylaRStudioortamınadahil ettim ve声音adındabirdeğişkeneaktardım。 Dahasonrasındastr（）从现在开始下载。
Çıktıyabakacak olursak mono bir sesdosyasıolduğunugörebiliriz。 Tekkanallıbir sesdosyası。 72192 sampledanoluşuyor。 采样率’i 44100 ve bit depth’i 16 olarakgörüyoruz。 Bu sesdosyasınınkaçsaniyedenoluştuğunuöğrenmekistersek basit olarakaşağıdaverilenişlemsayesinde bulabiliriz;
Toplam样本/采样率
72192 / sound@samp.rate
[1] 1.637007
声音在对象中的声音。
audioData <-声音@左
Sol kanalda bulunantümses verileriniaudioData’nıniçerisineaktardık。 readWave可以读取int提示。 Biz verilerimizi 0 ve 1arasındabulunan floatlaraçevireceğiz。 声音对象16位声音2位（2位）-1声音。 Buyüzdenaşağıdakiformülüuygulayarak 0–1arasındaçekeceğiz。
audioData <- audioData / 2 ^（ 声音 @位-1）
Evetartıkverilerimizgösterilmeyehazır。 Bununöncesindehala eksik olan zamanaralığımızıoluşturmamızgerekiyor。 HatırlarsanızToplam样品/采样率ilekaçsaniyedenoluştuğunubulabiliyorduk。
时间<-（0 :( 72192 -1））/ sound@samp.rate
时间<-时间* 1000
Buşekilde她的双胞胎样本来自zamanınıoluşturdukve bunu 1000 ileçarparakmilisaniyeyegenişlettik。
情节（时间， audioData ，type ='l'，col ='black'，xlab ='Time（ms）'，ylab ='Amplitude'）
情节komutları普通olarakaynıdır。 Zaman ve veri bilgilerimizigeçerekbize bir grafikoluşturmasınısöylüyoruz。
时区时区图片居泽尔·比尔·塞克尔德德grafiksel bir hale getirdik。 Yazınınenbaşındasöylediğimgibi benimiçindeyeni bir macera bu sesişlemekonularıfakat elimdengeldiğincearaştırmalaryaparak kendimigeliştirmeyeçalışıyorum。 Bugelişmelerdensizleride haberdar etmek beni sevindiriyor。 我的杂种。 贝尼dinlediğiniziçinteşekkürler🙂
Kaynak：http：//samcarcagno.altervista.org/blog/basic-sound-processing-r/
