Mercurial > hg > pitch-accuracy-and-interaction-in-unaccompanied-duet-singing
annotate latex/scripts/drift_graph.R @ 4:3e666d0329b5 tip
updated code
| author | Jiajie Dai <daijiajie1@gmail.com> |
|---|---|
| date | Sat, 06 Jan 2018 12:20:49 +0000 |
| parents | 6531169e6866 |
| children |
| rev | line source |
|---|---|
| daijiajie1@1 | 1 makeDriftGraph <- function(data, singermode) { |
| daijiajie1@1 | 2 |
| daijiajie1@1 | 3 subdata <- data[data$singermode == singermode, ] |
| daijiajie1@1 | 4 |
| daijiajie1@1 | 5 meanpitch <- median(subdata$pitchmedian-subdata$semitone) |
| daijiajie1@1 | 6 print(meanpitch) |
| daijiajie1@1 | 7 |
| daijiajie1@1 | 8 plot(I(subdata$pitchmedian - subdata$semitone) ~ I(subdata$run * 25 + subdata$noteid), |
| daijiajie1@1 | 9 pch = "+", |
| daijiajie1@1 | 10 ylim = meanpitch + c(-1.5,1.5), |
| daijiajie1@1 | 11 xlab = "note number", |
| daijiajie1@1 | 12 ylab = "pitch after score subtraction") |
| daijiajie1@1 | 13 |
| daijiajie1@1 | 14 fit <- lm(I(subdata$pitchmedian - subdata$semitone) ~ I(subdata$run * 25 + subdata$noteid)) |
| daijiajie1@1 | 15 abline(fit) |
| daijiajie1@1 | 16 } |