# NOT RUN {
if (webmorph_up()) {
stimuli <- demo_stim()
sexdim <- trans(stimuli, stimuli$f_multi, stimuli$m_multi,
shape = c(fem = -0.5, masc = 0.5))
sexdim |> draw_tem() |> label()
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab