Professor at the U of MN
sites.google.com/umn.edu/list...
including: summary of the results, why we chose to analyze Taylor Swift, the scientific and social value, how you can make your own measurements, and the greater context of what our lab does
sites.google.com/umn.edu/list...
including: summary of the results, why we chose to analyze Taylor Swift, the scientific and social value, how you can make your own measurements, and the greater context of what our lab does
substitute continuous vs. log10 scaling for the axis in the code as you please!
substitute continuous vs. log10 scaling for the axis in the code as you please!
aes(x = pos, y = mm2freq(pos))+
geom_point()+
scale_x_continuous(breaks = seq(0,32,4),
name = "Basilar membrane position (mm from apex)")+
scale_y_log10(
name = "Frequency (Hz)",
breaks = round(500*2^(seq(-5,5,1))))
aes(x = pos, y = mm2freq(pos))+
geom_point()+
scale_x_continuous(breaks = seq(0,32,4),
name = "Basilar membrane position (mm from apex)")+
scale_y_log10(
name = "Frequency (Hz)",
breaks = round(500*2^(seq(-5,5,1))))
mm2freq <- function(position=NULL, A = 165.4, a = 2.1, length = 35, k = 0.88){
return(A*((10^((a*position)/length))-k))}
mm2freq <- function(position=NULL, A = 165.4, a = 2.1, length = 35, k = 0.88){
return(A*((10^((a*position)/length))-k))}
aes(x = freq, y = freq2mm(freq))+
geom_point()+
scale_y_continuous(breaks=seq(0,32,4),
name = "Basilar membrane position (mm from apex)")+
scale_x_log10(
name = "Frequency (Hz)",
breaks = round(500*2^(seq(-5,5,1))))
aes(x = freq, y = freq2mm(freq))+
geom_point()+
scale_y_continuous(breaks=seq(0,32,4),
name = "Basilar membrane position (mm from apex)")+
scale_x_log10(
name = "Frequency (Hz)",
breaks = round(500*2^(seq(-5,5,1))))
Must... retain ... rounding!
Must... retain ... rounding!