# \donttest{
docs <- system.file(file.path("extdata"), package = "handwriter")
profiles <- get_writer_profiles(docs, measure = "counts")
plot_writer_profiles(profiles)
profiles <- get_writer_profiles(docs, measure = "rates")
plot_writer_profiles(profiles)
# }
Run the code above in your browser using DataLab