DF = data.frame( location=c( rep( 'Lakeside', 3 ), rep( 'Deep_Gorge', 3 ), rep( 'Willow_Ridge', 3 ), rep( 'Azalea_Hi11', 3 ) ), age=c( 1200, 800, 950, 850, 900, 1100, 1800, 1450, 1150, 950, 1200, 1150 ) )