Summarize integer values from stdin using R

summary

#!/usr/bin/env Rscript
# File: summary
# Description: Summarize data from stdin as min, max, mean, median
# Requirements: R
# Usage example: for i in $(seq 1 100); do echo $RANDOM; done | summary
# 288 32697 14644.19 14256
a <- scan(file("stdin"), c(0), quiet=TRUE);
cat(min(a), max(a), mean(a), median(a), "\n");