DF = data.frame(
    sector=c( rep( 'Financial', 10 ), rep( 'Industrial', 10 ), rep( 'Utility', 10 ) ),
    PERatio= c( 7.1, 9.9, 8.8, 8.8, 20.6, 7.9, 18.8, 17.7, 15.2, 6.6,
               26.2, 12.4, 15.2, 28.6, 10.3, 9.7, 12.5, 16.7, 19.7, 24.8,
               14.0, 15.5, 11.9, 10.9, 14.3, 11.0, 9.7, 10.8, 16.0, 11.3 )
)