trk <- fltr[fltr$Track == '001',]
lst <- c('Joy','Calm','Fear','Longing','Love','Power','Sad','Surprise')

for(k in 1:8){
trgt <- trk[trk$Emotion == 'Anger',]
other <- trk[trk$Emotion == lst[k],]
trgt <- rbind(trgt,other)
cat('Anger vs.', lst[k],'n')
print(summary(aov(Rating ~ Emotion + Error(participant/Emotion),trgt)))
cat('n')
}