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

view latex/scripts/drift_graph.R @ 1:6531169e6866

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latex files
author Jiajie Dai <daijiajie1@gmail.com>
date Tue, 21 Feb 2017 11:43:03 +0000
parents
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)
}