# NOT RUN {
# keep just the first two points
demo_stim(1) |>
subset_tem(0:1) |>
draw_tem(pt.size = 10)
# remove the last 10 points
# (produces the 179-point Perception Lab template)
demo_stim(1) |>
subset_tem(179:188, keep = FALSE) |>
draw_tem()
# use features() to keep only points from a pre-defined set
# "gmm" is points used for geometric morphometrics
demo_stim(1) |>
subset_tem(features("gmm")) |>
draw_tem()
# }
Run the code above in your browser using DataLab