訪問者数 1243 最終更新 2010-11-05 (金) 17:15:53
specが値のベクトルとして、左側にindexを付けてソート v <- cbind(0:220, spec[0:220]) indexforlargest <- v[rev(order(v[,2])),][1]
A | 440.000 |
G# | 415.305 |
G | 391.995 |
F# | 369.995 |
F | 349.228 |
E | 329.628 |
D# | 311.127 |
D | 293.665 |
C# | 277.183 |
C | 261.626 |
H | 246.942 |
B | 233.082 |
A | 220.000 |