R語(yǔ)言tuneR包恰起，extractWave手工截取音頻
5015c6f1-4282-4445-9114-1892c4f68ff9.png
Snipaste_2020-12-01_01-52-42.png
# Tue Dec 01 01:11:46 2020 -
# 字符編碼：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 個(gè)人筆記不負(fù)責(zé)任
# —— 拎了個(gè)梨??
rm(list=ls());gc()
.rs.restartR()
require(tuneR)
# extractWave函數(shù)
# 提取器功能惠赫，允許提取Wave或WaveMC對(duì)象的內(nèi)部部分（交互）赘娄。
# https://wwa.lanzous.com/iEvu1ixqbqj
dt <- readWave(filename = 'cat2.wav') %>%
extractWave()
# Tue Dec 01 01:52:48 2020 --
dt <- readWave('cat2.wav') %>%
extractWave(
# from = 2, # 開始提取的樣本數(shù)或時(shí)間（以秒為單位）（請(qǐng)參見(jiàn)xunit）仆潮。
# to = 5 # 停止提取的樣本數(shù)或時(shí)間（以秒為單位）（請(qǐng)參見(jiàn)xunit）。如果to<from遣臼，對(duì)象將按原樣返回性置。
,interact = T # 邏輯指示是否選擇要交互提取的范圍（如果為TRUE）
)
plot(dt)
play(dt)
# Tue Dec 01 02:14:40 2020 --end
#
