if (FALSE) { # interactive()
# Get a few performance metrics:
my_ppm <- get_performance_metrics(sprintf('PPM%06d', 38:42))
#
# Subsetting by position
#
my_ppm[c(1, 4)]
#
# Subsetting by performance metrics identifier (character)
#
my_ppm['PPM000042']
}
Run the code above in your browser using DataLab