# Create an Interval-Data object by agregating the microdata consisting
# of 336776 NYC flights included in the FlightsDF data frame,
# by the statistical units specified in the FlightsUnits factor.
Flightsminmax <- AgrMcDt(FlightsDF,FlightsUnits)
#Display the first and last observations
head(Flightsminmax)
tail(Flightsminmax)
#Print summary statistics
summary(Flightsminmax)
if (FALSE) {
# Repeat this procedure using now the 10th and 90th percentiles.
Flights1090prcnt <- AgrMcDt(FlightsDF,FlightsUnits,agrcrt=c(0.1,0.9))
#Display the first and last observations
head(Flights1090prcnt)
tail(Flights1090prcnt)
summary(Flights1090prcnt)
}
Run the code above in your browser using DataLab