# NOT RUN {
stimuli <- demo_stim()
metrics(stimuli, c(0, 1)) # eye-spacing
# face width-to-height ratio
fwh <- "abs(max(x[113],x[112],x[114])-min(x[110],x[111],x[109]))/abs(y[90]-min(y[20],y[25]))"
metrics(stimuli, fwh)
# }
Run the code above in your browser using DataLab