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

diff 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 diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/latex/scripts/drift_graph.R	Tue Feb 21 11:43:03 2017 +0000
@@ -0,0 +1,16 @@
+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)
+}
\ No newline at end of file