Mercurial > hg > pitch-accuracy-and-interaction-in-unaccompanied-duet-singing

view latex/scripts/drift_graph.R @ 4:3e666d0329b5 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated code
author Jiajie Dai <daijiajie1@gmail.com>
date Sat, 06 Jan 2018 12:20:49 +0000
parents 6531169e6866
children
line wrap: on
line source
makeDriftGraph <- function(data, singermode) {
	
	subdata <- data[data$singermode == singermode, ]
	
	meanpitch <- median(subdata$pitchmedian-subdata$semitone)
	print(meanpitch)
	
	plot(I(subdata$pitchmedian - subdata$semitone) ~ I(subdata$run * 25 + subdata$noteid), 
	     pch = "+",
         ylim = meanpitch + c(-1.5,1.5),
         xlab = "note number",
         ylab = "pitch after score subtraction")
	
	fit <- lm(I(subdata$pitchmedian - subdata$semitone) ~ I(subdata$run * 25 + subdata$noteid))
	abline(fit)
}