#50_140825_R_AUDIO GRAPH

728x90

# AUDIO GRAPH

n audio 데이터 그래프 출력(심작박동 소리 비교)

> install.packages("tuneR")

> library(tuneR)

> audio <- readWave("output.wav")

> str(audio)

Formal class 'Wave' [package "tuneR"] with 6 slots

..@ left : int [1:2646250] 0 0 0 0 0 0 0 0 0 0 ...

..@ right : int [1:2646250] 0 0 0 0 0 0 0 0 0 0 ...

..@ stereo : logi TRUE

..@ samp.rate: int 44100

..@ bit : int 16

..@ pcm : logi TRUE

> head(audio@left,100)

[1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1

[34] -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1

[67] -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2

[100] -2

> plot(head(audio@left,1000))

> audio1 <- readWave("normal.wav")

> plot(audio1)

> audio2 <- readWave("ps.wav")

> plot(audio2)

> audio3 <- readWave("mr.wav")

> plot(audio3)

> audio4 <- readWave("ar.wav")

> plot(audio4)

저작자표시 비영리 변경금지