Ok, I'm going to resend the entire question as it should have been sent, and then respond to your later suggestion in turn.Â  Essentially, "trim.index" should be "thing".Â  Apologies for the confusion.Â  Also, I had sent you the first 100 records after having reshaped longwise, so you only got one element from within "Series."Â  That's fixed now, too.Â  I provided more data this time, too.
Â 
So, the panel of histograms:
Â 
binsize=diff(range(thing$Rate))/64
ggplot(thing, aes(x=Rate, fill=Series)) + geom_histogram(binwidth=binsize) + facet_grid(Series~.,scales="free")+
Â Â Â Â Â Â Â Â  labs(fill="Index") +
Â Â Â Â Â Â Â Â  xlab("Growth Rate (%)") + 
Â Â Â Â Â Â Â Â  theme(axis.title.y=element_blank(),strip.text.y = theme_blank()) + 
Â Â Â Â Â Â Â Â  scale_x_continuous(breaks=c(-10,-5,-2:10,15,20)) +
Â Â Â Â Â Â Â Â  geom_vline(xintercept=c(0,5), linetype="dashed")
rm(binsize)
Â 
Â 
Â 
The data dump:
Â 
Â structure(list(Trials = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 
23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 
36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 
49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 
62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 
75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 
88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 
1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 
15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 
28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 
41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 
54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 
67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 
80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 
93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 1L, 2L, 3L, 4L, 5L, 
6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 
19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 
32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 
45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 
58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 
71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 
84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 
97L, 98L, 99L, 100L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 11L, 
12L, 13L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 
26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 
39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 
52L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 
66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 
79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 
92L, 93L, 94L, 95L, 96L, 97L, 99L, 100L), Year = c(2005L, 2008L, 
2006L, 2007L, 2006L, 2004L, 2004L, 2003L, 2007L, 2005L, 2008L, 
2006L, 2011L, 2005L, 2004L, 2003L, 2010L, 2002L, 2008L, 2005L, 
2005L, 2004L, 2006L, 2011L, 2011L, 2008L, 2006L, 2004L, 2002L, 
2003L, 2009L, 2004L, 2003L, 2011L, 2006L, 2002L, 2007L, 2010L, 
2005L, 2008L, 2011L, 2008L, 2010L, 2005L, 2004L, 2009L, 2002L, 
2008L, 2002L, 2006L, 2003L, 2007L, 2006L, 2006L, 2002L, 2002L, 
2010L, 2008L, 2008L, 2003L, 2003L, 2009L, 2007L, 2009L, 2004L, 
2005L, 2011L, 2010L, 2005L, 2008L, 2008L, 2008L, 2007L, 2008L, 
2008L, 2007L, 2002L, 2009L, 2011L, 2002L, 2002L, 2006L, 2007L, 
2007L, 2002L, 2009L, 2007L, 2003L, 2010L, 2010L, 2009L, 2003L, 
2010L, 2003L, 2007L, 2006L, 2010L, 2005L, 2004L, 2010L, 2005L, 
2008L, 2006L, 2007L, 2006L, 2004L, 2004L, 2003L, 2007L, 2005L, 
2008L, 2006L, 2011L, 2005L, 2004L, 2003L, 2010L, 2002L, 2008L, 
2005L, 2005L, 2004L, 2006L, 2011L, 2011L, 2008L, 2006L, 2004L, 
2002L, 2003L, 2009L, 2004L, 2003L, 2011L, 2006L, 2002L, 2007L, 
2010L, 2005L, 2008L, 2011L, 2008L, 2010L, 2005L, 2004L, 2009L, 
2002L, 2008L, 2002L, 2006L, 2003L, 2007L, 2006L, 2006L, 2002L, 
2002L, 2010L, 2008L, 2008L, 2003L, 2003L, 2009L, 2007L, 2009L, 
2004L, 2005L, 2011L, 2010L, 2005L, 2008L, 2008L, 2008L, 2007L, 
2008L, 2008L, 2007L, 2002L, 2009L, 2011L, 2002L, 2002L, 2006L, 
2007L, 2007L, 2002L, 2009L, 2007L, 2003L, 2010L, 2010L, 2009L, 
2003L, 2010L, 2003L, 2007L, 2006L, 2010L, 2005L, 2004L, 2010L, 
2005L, 2008L, 2006L, 2007L, 2006L, 2004L, 2004L, 2003L, 2007L, 
2005L, 2008L, 2006L, 2011L, 2005L, 2004L, 2003L, 2010L, 2002L, 
2008L, 2005L, 2005L, 2004L, 2006L, 2011L, 2011L, 2008L, 2006L, 
2004L, 2002L, 2003L, 2009L, 2004L, 2003L, 2011L, 2006L, 2002L, 
2007L, 2010L, 2005L, 2008L, 2011L, 2008L, 2010L, 2005L, 2004L, 
2009L, 2002L, 2008L, 2002L, 2006L, 2003L, 2007L, 2006L, 2006L, 
2002L, 2002L, 2010L, 2008L, 2008L, 2003L, 2003L, 2009L, 2007L, 
2009L, 2004L, 2005L, 2011L, 2010L, 2005L, 2008L, 2008L, 2008L, 
2007L, 2008L, 2008L, 2007L, 2002L, 2009L, 2011L, 2002L, 2002L, 
2006L, 2007L, 2007L, 2002L, 2009L, 2007L, 2003L, 2010L, 2010L, 
2009L, 2003L, 2010L, 2003L, 2007L, 2006L, 2010L, 2005L, 2004L, 
2010L, 2005L, 2008L, 2006L, 2007L, 2006L, 2004L, 2004L, 2003L, 
2007L, 2008L, 2006L, 2011L, 2004L, 2003L, 2010L, 2002L, 2008L, 
2005L, 2005L, 2004L, 2006L, 2011L, 2011L, 2008L, 2006L, 2004L, 
2002L, 2003L, 2009L, 2004L, 2003L, 2011L, 2006L, 2002L, 2007L, 
2010L, 2005L, 2008L, 2011L, 2008L, 2010L, 2005L, 2004L, 2009L, 
2002L, 2008L, 2002L, 2006L, 2003L, 2007L, 2006L, 2002L, 2002L, 
2010L, 2008L, 2008L, 2003L, 2003L, 2009L, 2007L, 2009L, 2004L, 
2005L, 2011L, 2010L, 2005L, 2008L, 2008L, 2008L, 2007L, 2008L, 
2008L, 2007L, 2002L, 2009L, 2011L, 2002L, 2002L, 2006L, 2007L, 
2007L, 2002L, 2009L, 2007L, 2003L, 2010L, 2010L, 2009L, 2003L, 
2010L, 2003L, 2007L, 2006L, 2010L, 2004L, 2010L), Month = c(12L, 
4L, 5L, 3L, 9L, 12L, 4L, 3L, 6L, 10L, 6L, 11L, 1L, 6L, 9L, 10L, 
5L, 3L, 11L, 10L, 2L, 8L, 9L, 7L, 8L, 8L, 7L, 1L, 9L, 1L, 11L, 
3L, 12L, 1L, 6L, 7L, 6L, 8L, 12L, 8L, 11L, 11L, 5L, 7L, 2L, 6L, 
9L, 9L, 11L, 6L, 11L, 5L, 5L, 3L, 10L, 6L, 7L, 8L, 9L, 2L, 3L, 
11L, 8L, 4L, 12L, 6L, 10L, 10L, 12L, 9L, 4L, 12L, 12L, 12L, 6L, 
6L, 11L, 1L, 5L, 6L, 2L, 4L, 7L, 10L, 12L, 4L, 5L, 8L, 7L, 2L, 
6L, 10L, 10L, 10L, 10L, 2L, 6L, 6L, 9L, 9L, 12L, 4L, 5L, 3L, 
9L, 12L, 4L, 3L, 6L, 10L, 6L, 11L, 1L, 6L, 9L, 10L, 5L, 3L, 11L, 
10L, 2L, 8L, 9L, 7L, 8L, 8L, 7L, 1L, 9L, 1L, 11L, 3L, 12L, 1L, 
6L, 7L, 6L, 8L, 12L, 8L, 11L, 11L, 5L, 7L, 2L, 6L, 9L, 9L, 11L, 
6L, 11L, 5L, 5L, 3L, 10L, 6L, 7L, 8L, 9L, 2L, 3L, 11L, 8L, 4L, 
12L, 6L, 10L, 10L, 12L, 9L, 4L, 12L, 12L, 12L, 6L, 6L, 11L, 1L, 
5L, 6L, 2L, 4L, 7L, 10L, 12L, 4L, 5L, 8L, 7L, 2L, 6L, 10L, 10L, 
10L, 10L, 2L, 6L, 6L, 9L, 9L, 12L, 4L, 5L, 3L, 9L, 12L, 4L, 3L, 
6L, 10L, 6L, 11L, 1L, 6L, 9L, 10L, 5L, 3L, 11L, 10L, 2L, 8L, 
9L, 7L, 8L, 8L, 7L, 1L, 9L, 1L, 11L, 3L, 12L, 1L, 6L, 7L, 6L, 
8L, 12L, 8L, 11L, 11L, 5L, 7L, 2L, 6L, 9L, 9L, 11L, 6L, 11L, 
5L, 5L, 3L, 10L, 6L, 7L, 8L, 9L, 2L, 3L, 11L, 8L, 4L, 12L, 6L, 
10L, 10L, 12L, 9L, 4L, 12L, 12L, 12L, 6L, 6L, 11L, 1L, 5L, 6L, 
2L, 4L, 7L, 10L, 12L, 4L, 5L, 8L, 7L, 2L, 6L, 10L, 10L, 10L, 
10L, 2L, 6L, 6L, 9L, 9L, 12L, 4L, 5L, 3L, 9L, 12L, 4L, 3L, 6L, 
6L, 11L, 1L, 9L, 10L, 5L, 3L, 11L, 10L, 2L, 8L, 9L, 7L, 8L, 8L, 
7L, 1L, 9L, 1L, 11L, 3L, 12L, 1L, 6L, 7L, 6L, 8L, 12L, 8L, 11L, 
11L, 5L, 7L, 2L, 6L, 9L, 9L, 11L, 6L, 11L, 5L, 3L, 10L, 6L, 7L, 
8L, 9L, 2L, 3L, 11L, 8L, 4L, 12L, 6L, 10L, 10L, 12L, 9L, 4L, 
12L, 12L, 12L, 6L, 6L, 11L, 1L, 5L, 6L, 2L, 4L, 7L, 10L, 12L, 
4L, 5L, 8L, 7L, 2L, 6L, 10L, 10L, 10L, 10L, 2L, 6L, 9L, 9L),  Core.CPI.Weighting = c(2L, 3L, 2L, 5L, 1L, 5L, 4L, 5L, 4L,  1L, 3L, 4L, 5L, 2L, 4L, 5L, 1L, 5L, 1L, 3L, 2L, 1L, 5L, 2L,  1L, 2L, 5L, 5L, 4L, 2L, 4L, 4L, 5L, 5L, 2L, 5L, 3L, 4L, 5L,  1L, 2L, 2L, 5L, 3L, 2L, 2L, 5L, 3L, 2L, 4L, 2L, 4L, 1L, 3L,  1L, 4L, 1L, 3L, 1L, 1L, 4L, 2L, 3L, 2L, 2L, 5L, 4L, 4L, 3L,  4L, 2L, 5L, 2L, 5L, 1L, 2L, 5L, 5L, 5L, 2L, 5L, 3L, 3L, 1L,  5L, 2L, 2L, 2L, 1L, 3L, 5L, 3L, 4L, 3L, 3L, 1L, 1L, 2L, 2L,  3L, 2L, 3L, 2L, 5L, 1L, 5L, 4L, 5L, 4L, 1L, 3L, 4L, 5L, 2L,  4L, 5L, 1L, 5L, 1L, 3L, 2L, 1L, 5L, 2L, 1L, 2L, 5L, 5L, 4L,  2L, 4L, 4L, 5L, 5L, 2L, 5L, 3L, 4L, 5L, 1L, 2L, 2L, 5L, 3L,  2L, 2L, 5L, 3L, 2L, 4L, 2L, 4L, 1L, 3L, 1L, 4L, 1L, 3L, 1L,  1L, 4L, 2L, 3L, 2L, 2L, 5L, 4L, 4L, 3L, 4L, 2L, 5L, 2L, 5L,  1L, 2L, 5L, 5L, 5L, 2L, 5L, 3L, 3L, 1L, 5L, 2L, 2L, 2L, 1L,  3L, 5L, 3L, 4L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 2L, 3L, 2L, 5L,  1L, 5L, 4L, 5L, 4L, 1L, 3L, 4L, 5L, 2L, 4L, 5L, 1L,
 5L, 1L,  3L, 2L, 1L, 5L, 2L, 1L, 2L, 5L, 5L, 4L, 2L, 4L, 4L, 5L, 5L,  2L, 5L, 3L, 4L, 5L, 1L, 2L, 2L, 5L, 3L, 2L, 2L, 5L, 3L, 2L,  4L, 2L, 4L, 1L, 3L, 1L, 4L, 1L, 3L, 1L, 1L, 4L, 2L, 3L, 2L,  2L, 5L, 4L, 4L, 3L, 4L, 2L, 5L, 2L, 5L, 1L, 2L, 5L, 5L, 5L,  2L, 5L, 3L, 3L, 1L, 5L, 2L, 2L, 2L, 1L, 3L, 5L, 3L, 4L, 3L,  3L, 1L, 1L, 2L, 2L, 3L, 2L, 3L, 2L, 5L, 1L, 5L, 4L, 5L, 4L,  3L, 4L, 5L, 4L, 5L, 1L, 5L, 1L, 3L, 2L, 1L, 5L, 2L, 1L, 2L,  5L, 5L, 4L, 2L, 4L, 4L, 5L, 5L, 2L, 5L, 3L, 4L, 5L, 1L, 2L,  2L, 5L, 3L, 2L, 2L, 5L, 3L, 2L, 4L, 2L, 4L, 3L, 1L, 4L, 1L,  3L, 1L, 1L, 4L, 2L, 3L, 2L, 2L, 5L, 4L, 4L, 3L, 4L, 2L, 5L,  2L, 5L, 1L, 2L, 5L, 5L, 5L, 2L, 5L, 3L, 3L, 1L, 5L, 2L, 2L,  2L, 1L, 3L, 5L, 3L, 4L, 3L, 3L, 1L, 1L, 2L, 3L), CPI.Food = c(0.023474768,  0.043433814, 0.029315923, 0.042208873, 0.035479323, 0.024429485,  0.028537661, 0.027623773, 0.045546671, 0.023973579, 0.045546671,  0.038421672, 0.037161108, 0.023102181, 0.032765694, 0.032962625,  0.008051879,
 0.028741685, 0.053639179, 0.025192645, 0.025077433,  0.032806764, 0.023605006, 0.025644434, 0.029584922, 0.031756778,  0.032450724, 0.026035343, 0.020656969, 0.026035343, 0.010684754,  0.029551194, 0.02442531, 0.012348667, 0.030959528, 0.023781539,  0.045546671, 0.008345359, 0.024429485, 0.031756778, 0.034731773,  0.053639179, 0.008051879, 0.023005118, 0.030315091, 0.04149634,  0.019373857, 0.051078725, 0.022406708, 0.030959528, 0.022406708,  0.044396055, 0.023304811, 0.025196539, 0.020831987, 0.016599861,  0.008044572, 0.049349997, 0.026691689, 0.01612059, 0.015903088,  0.010684754, 0.033979886, 0.048496522, 0.024429485, 0.023102181,  0.033084021, 0.033084021, 0.024429485, 0.026691689, 0.048496522,  0.054246603, 0.039956669, 0.054246603, 0.045546671, 0.045546671,  0.018027105, 0.053917666, 0.034171337, 0.025416646, 0.029331567,  0.02412957, 0.032450724, 0.052641267, 0.017531941, 0.048496522,  0.044396055, 0.018367312, 0.008044572, 0.013896245,
 0.04149634,  0.032962625, 0.009905593, 0.032962625, 0.052641267, 0.025077433,  0.023022986, 0.023102181, 0.032765694, 0.00916168, 0.023474768,  0.043433814, 0.029315923, 0.042208873, 0.035479323, 0.024429485,  0.028537661, 0.027623773, 0.045546671, 0.023973579, 0.045546671,  0.038421672, 0.037161108, 0.023102181, 0.032765694, 0.032962625,  0.008051879, 0.028741685, 0.053639179, 0.025192645, 0.025077433,  0.032806764, 0.023605006, 0.025644434, 0.029584922, 0.031756778,  0.032450724, 0.026035343, 0.020656969, 0.026035343, 0.010684754,  0.029551194, 0.02442531, 0.012348667, 0.030959528, 0.023781539,  0.045546671, 0.008345359, 0.024429485, 0.031756778, 0.034731773,  0.053639179, 0.008051879, 0.023005118, 0.030315091, 0.04149634,  0.019373857, 0.051078725, 0.022406708, 0.030959528, 0.022406708,  0.044396055, 0.023304811, 0.025196539, 0.020831987, 0.016599861,  0.008044572, 0.049349997, 0.026691689, 0.01612059, 0.015903088,  0.010684754, 0.033979886,
 0.048496522, 0.024429485, 0.023102181,  0.033084021, 0.033084021, 0.024429485, 0.026691689, 0.048496522,  0.054246603, 0.039956669, 0.054246603, 0.045546671, 0.045546671,  0.018027105, 0.053917666, 0.034171337, 0.025416646, 0.029331567,  0.02412957, 0.032450724, 0.052641267, 0.017531941, 0.048496522,  0.044396055, 0.018367312, 0.008044572, 0.013896245, 0.04149634,  0.032962625, 0.009905593, 0.032962625, 0.052641267, 0.025077433,  0.023022986, 0.023102181, 0.032765694, 0.00916168, 0.023474768,  0.043433814, 0.029315923, 0.042208873, 0.035479323, 0.024429485,  0.028537661, 0.027623773, 0.045546671, 0.023973579, 0.045546671,  0.038421672, 0.037161108, 0.023102181, 0.032765694, 0.032962625,  0.008051879, 0.028741685, 0.053639179, 0.025192645, 0.025077433,  0.032806764, 0.023605006, 0.025644434, 0.029584922, 0.031756778,  0.032450724, 0.026035343, 0.020656969, 0.026035343, 0.010684754,  0.029551194, 0.02442531, 0.012348667, 0.030959528, 0.023781539, 
 0.045546671, 0.008345359, 0.024429485, 0.031756778, 0.034731773,  0.053639179, 0.008051879, 0.023005118, 0.030315091, 0.04149634,  0.019373857, 0.051078725, 0.022406708, 0.030959528, 0.022406708,  0.044396055, 0.023304811, 0.025196539, 0.020831987, 0.016599861,  0.008044572, 0.049349997, 0.026691689, 0.01612059, 0.015903088,  0.010684754, 0.033979886, 0.048496522, 0.024429485, 0.023102181,  0.033084021, 0.033084021, 0.024429485, 0.026691689, 0.048496522,  0.054246603, 0.039956669, 0.054246603, 0.045546671, 0.045546671,  0.018027105, 0.053917666, 0.034171337, 0.025416646, 0.029331567,  0.02412957, 0.032450724, 0.052641267, 0.017531941, 0.048496522,  0.044396055, 0.018367312, 0.008044572, 0.013896245, 0.04149634,  0.032962625, 0.009905593, 0.032962625, 0.052641267, 0.025077433,  0.023022986, 0.023102181, 0.032765694, 0.00916168, 0.023474768,  0.043433814, 0.029315923, 0.042208873, 0.035479323, 0.024429485,  0.028537661, 0.027623773, 0.045546671,
 0.045546671, 0.038421672,  0.037161108, 0.032765694, 0.032962625, 0.008051879, 0.028741685,  0.053639179, 0.025192645, 0.025077433, 0.032806764, 0.023605006,  0.025644434, 0.029584922, 0.031756778, 0.032450724, 0.026035343,  0.020656969, 0.026035343, 0.010684754, 0.029551194, 0.02442531,  0.012348667, 0.030959528, 0.023781539, 0.045546671, 0.008345359,  0.024429485, 0.031756778, 0.034731773, 0.053639179, 0.008051879,  0.023005118, 0.030315091, 0.04149634, 0.019373857, 0.051078725,  0.022406708, 0.030959528, 0.022406708, 0.044396055, 0.025196539,  0.020831987, 0.016599861, 0.008044572, 0.049349997, 0.026691689,  0.01612059, 0.015903088, 0.010684754, 0.033979886, 0.048496522,  0.024429485, 0.023102181, 0.033084021, 0.033084021, 0.024429485,  0.026691689, 0.048496522, 0.054246603, 0.039956669, 0.054246603,  0.045546671, 0.045546671, 0.018027105, 0.053917666, 0.034171337,  0.025416646, 0.029331567, 0.02412957, 0.032450724, 0.052641267,  0.017531941,
 0.048496522, 0.044396055, 0.018367312, 0.008044572,  0.013896245, 0.04149634, 0.032962625, 0.009905593, 0.032962625,  0.052641267, 0.025077433, 0.023022986, 0.032765694, 0.00916168 ), PPI.Farm = c(0.009730106, 0.204892729, 0.138453455, 0.210017271,  0.178801715, -0.017104315, 0.168632738, 0.157512456, 0.208907609,  -0.007879949, 0.208907609, 0.187585976, 0.171910952, -0.0471555,  0.144318736, 0.111713247, -0.000515726, 3.019e-05, 0.120566043,  -0.027737238, -0.021152479, 0.168890071, -0.020784628, 0.231482252,  0.050380553, -0.141247793, 0.16832412, 0.140014634, -0.04669922,  0.140014634, 0.095775695, 0.02684028, 0.142349938, 0.125929795,  0.154898078, -0.043965946, 0.208907609, 0.033632438, -0.017104315,  -0.141247793, 0.215496099, 0.120566043, -0.000515726, -0.041130752,  0.041959105, -0.105460885, 0.070882919, 0.189171764, 0.122047713,  0.154898078, 0.122047713, 0.202255379, -0.048781928, -0.033167528,  0.099171658, 0.041330169, 0.015714896,
 0.204083122, -0.154114835,  -0.008444152, -0.007718043, 0.095775695, 0.170931281, -0.067437568,  -0.017104315, -0.0471555, 0.228225921, 0.228225921, -0.017104315,  -0.154114835, -0.067437568, 0.072354298, 0.198873427, 0.072354298,  0.208907609, 0.208907609, -0.033883688, 0.030715588, 0.077744759,  -0.039610801, 0.005252783, -0.040063654, 0.16832412, 0.154822639,  -0.025165038, -0.067437568, 0.202255379, 0.054003537, 0.015714896,  0.158704237, -0.105460885, 0.111713247, 0.077687811, 0.111713247,  0.154822639, -0.021152479, 0.221790488, -0.0471555, 0.144318736,  0.059385754, 0.009730106, 0.204892729, 0.138453455, 0.210017271,  0.178801715, -0.017104315, 0.168632738, 0.157512456, 0.208907609,  -0.007879949, 0.208907609, 0.187585976, 0.171910952, -0.0471555,  0.144318736, 0.111713247, -0.000515726, 3.019e-05, 0.120566043,  -0.027737238, -0.021152479, 0.168890071, -0.020784628, 0.231482252,  0.050380553, -0.141247793, 0.16832412, 0.140014634, -0.04669922, 
 0.140014634, 0.095775695, 0.02684028, 0.142349938, 0.125929795,  0.154898078, -0.043965946, 0.208907609, 0.033632438, -0.017104315,  -0.141247793, 0.215496099, 0.120566043, -0.000515726, -0.041130752,  0.041959105, -0.105460885, 0.070882919, 0.189171764, 0.122047713,  0.154898078, 0.122047713, 0.202255379, -0.048781928, -0.033167528,  0.099171658, 0.041330169, 0.015714896, 0.204083122, -0.154114835,  -0.008444152, -0.007718043, 0.095775695, 0.170931281, -0.067437568,  -0.017104315, -0.0471555, 0.228225921, 0.228225921, -0.017104315,  -0.154114835, -0.067437568, 0.072354298, 0.198873427, 0.072354298,  0.208907609, 0.208907609, -0.033883688, 0.030715588, 0.077744759,  -0.039610801, 0.005252783, -0.040063654, 0.16832412, 0.154822639,  -0.025165038, -0.067437568, 0.202255379, 0.054003537, 0.015714896,  0.158704237, -0.105460885, 0.111713247, 0.077687811, 0.111713247,  0.154822639, -0.021152479, 0.221790488, -0.0471555, 0.144318736,  0.059385754,
 0.009730106, 0.204892729, 0.138453455, 0.210017271,  0.178801715, -0.017104315, 0.168632738, 0.157512456, 0.208907609,  -0.007879949, 0.208907609, 0.187585976, 0.171910952, -0.0471555,  0.144318736, 0.111713247, -0.000515726, 3.019e-05, 0.120566043,  -0.027737238, -0.021152479, 0.168890071, -0.020784628, 0.231482252,  0.050380553, -0.141247793, 0.16832412, 0.140014634, -0.04669922,  0.140014634, 0.095775695, 0.02684028, 0.142349938, 0.125929795,  0.154898078, -0.043965946, 0.208907609, 0.033632438, -0.017104315,  -0.141247793, 0.215496099, 0.120566043, -0.000515726, -0.041130752,  0.041959105, -0.105460885, 0.070882919, 0.189171764, 0.122047713,  0.154898078, 0.122047713, 0.202255379, -0.048781928, -0.033167528,  0.099171658, 0.041330169, 0.015714896, 0.204083122, -0.154114835,  -0.008444152, -0.007718043, 0.095775695, 0.170931281, -0.067437568,  -0.017104315, -0.0471555, 0.228225921, 0.228225921, -0.017104315,  -0.154114835, -0.067437568, 0.072354298,
 0.198873427, 0.072354298,  0.208907609, 0.208907609, -0.033883688, 0.030715588, 0.077744759,  -0.039610801, 0.005252783, -0.040063654, 0.16832412, 0.154822639,  -0.025165038, -0.067437568, 0.202255379, 0.054003537, 0.015714896,  0.158704237, -0.105460885, 0.111713247, 0.077687811, 0.111713247,  0.154822639, -0.021152479, 0.221790488, -0.0471555, 0.144318736,  0.059385754, 0.009730106, 0.204892729, 0.138453455, 0.210017271,  0.178801715, -0.017104315, 0.168632738, 0.157512456, 0.208907609,  0.208907609, 0.187585976, 0.171910952, 0.144318736, 0.111713247,  -0.000515726, 3.019e-05, 0.120566043, -0.027737238, -0.021152479,  0.168890071, -0.020784628, 0.231482252, 0.050380553, -0.141247793,  0.16832412, 0.140014634, -0.04669922, 0.140014634, 0.095775695,  0.02684028, 0.142349938, 0.125929795, 0.154898078, -0.043965946,  0.208907609, 0.033632438, -0.017104315, -0.141247793, 0.215496099,  0.120566043, -0.000515726, -0.041130752, 0.041959105, -0.105460885, 
 0.070882919, 0.189171764, 0.122047713, 0.154898078, 0.122047713,  0.202255379, -0.033167528, 0.099171658, 0.041330169, 0.015714896,  0.204083122, -0.154114835, -0.008444152, -0.007718043, 0.095775695,  0.170931281, -0.067437568, -0.017104315, -0.0471555, 0.228225921,  0.228225921, -0.017104315, -0.154114835, -0.067437568, 0.072354298,  0.198873427, 0.072354298, 0.208907609, 0.208907609, -0.033883688,  0.030715588, 0.077744759, -0.039610801, 0.005252783, -0.040063654,  0.16832412, 0.154822639, -0.025165038, -0.067437568, 0.202255379,  0.054003537, 0.015714896, 0.158704237, -0.105460885, 0.111713247,  0.077687811, 0.111713247, 0.154822639, -0.021152479, 0.221790488,  0.144318736, 0.059385754), Apple.Price = c(0.471497656, 0.242136143,  0.383200413, 0.213311867, 0.19191663, -0.065728883, 0.057338195,  0.049315633, 0.059618994, 0.493034014, 0.059618994, 0.214308977,  0.128389921, 0.569834371, -0.018700663, -0.070699241, -0.086097884,  0.366987271,
 -0.015999442, -0.169993743, 0.061982899, 0.03018664,  0.508926099, 0.220469512, 0.091490786, -0.088522479, 0.214605583,  0.029232469, 0.415997543, 0.029232469, 0.060085553, -0.342823215,  0.021628518, 0.094459129, 0.264711677, 0.397421106, 0.059618994,  0.036456744, -0.065728883, -0.088522479, 0.177490964, -0.015999442,  -0.086097884, 0.565661951, -0.303093619, 0.027658663, 0.080537871,  0.046029687, 0.020747752, 0.264711677, 0.020747752, 0.140097776,  0.398741769, 0.121494593, 0.028159196, 0.102148041, 0.013906457,  0.096319168, -0.076928899, 0.216825824, 0.178838741, 0.060085553,  0.192104843, -0.082574645, -0.065728883, 0.569834371, 0.21221404,  0.21221404, -0.065728883, -0.076928899, -0.082574645, -0.033260035,  0.219937548, -0.033260035, 0.059618994, 0.059618994, 0.328876262,  -0.042174202, 0.062637456, 0.393870002, 0.326653773, 0.233934148,  0.214605583, 0.007283343, 0.282652174, -0.082574645, 0.140097776,  0.11993679, 0.013906457, 0.114055642,
 0.027658663, -0.070699241,  0.037565275, -0.070699241, 0.007283343, 0.061982899, 0.199237823,  0.569834371, -0.018700663, 0.039288557, 0.471497656, 0.242136143,  0.383200413, 0.213311867, 0.19191663, -0.065728883, 0.057338195,  0.049315633, 0.059618994, 0.493034014, 0.059618994, 0.214308977,  0.128389921, 0.569834371, -0.018700663, -0.070699241, -0.086097884,  0.366987271, -0.015999442, -0.169993743, 0.061982899, 0.03018664,  0.508926099, 0.220469512, 0.091490786, -0.088522479, 0.214605583,  0.029232469, 0.415997543, 0.029232469, 0.060085553, -0.342823215,  0.021628518, 0.094459129, 0.264711677, 0.397421106, 0.059618994,  0.036456744, -0.065728883, -0.088522479, 0.177490964, -0.015999442,  -0.086097884, 0.565661951, -0.303093619, 0.027658663, 0.080537871,  0.046029687, 0.020747752, 0.264711677, 0.020747752, 0.140097776,  0.398741769, 0.121494593, 0.028159196, 0.102148041, 0.013906457,  0.096319168, -0.076928899, 0.216825824, 0.178838741, 0.060085553, 
 0.192104843, -0.082574645, -0.065728883, 0.569834371, 0.21221404,  0.21221404, -0.065728883, -0.076928899, -0.082574645, -0.033260035,  0.219937548, -0.033260035, 0.059618994, 0.059618994, 0.328876262,  -0.042174202, 0.062637456, 0.393870002, 0.326653773, 0.233934148,  0.214605583, 0.007283343, 0.282652174, -0.082574645, 0.140097776,  0.11993679, 0.013906457, 0.114055642, 0.027658663, -0.070699241,  0.037565275, -0.070699241, 0.007283343, 0.061982899, 0.199237823,  0.569834371, -0.018700663, 0.039288557, 0.471497656, 0.242136143,  0.383200413, 0.213311867, 0.19191663, -0.065728883, 0.057338195,  0.049315633, 0.059618994, 0.493034014, 0.059618994, 0.214308977,  0.128389921, 0.569834371, -0.018700663, -0.070699241, -0.086097884,  0.366987271, -0.015999442, -0.169993743, 0.061982899, 0.03018664,  0.508926099, 0.220469512, 0.091490786, -0.088522479, 0.214605583,  0.029232469, 0.415997543, 0.029232469, 0.060085553, -0.342823215,  0.021628518, 0.094459129,
 0.264711677, 0.397421106, 0.059618994,  0.036456744, -0.065728883, -0.088522479, 0.177490964, -0.015999442,  -0.086097884, 0.565661951, -0.303093619, 0.027658663, 0.080537871,  0.046029687, 0.020747752, 0.264711677, 0.020747752, 0.140097776,  0.398741769, 0.121494593, 0.028159196, 0.102148041, 0.013906457,  0.096319168, -0.076928899, 0.216825824, 0.178838741, 0.060085553,  0.192104843, -0.082574645, -0.065728883, 0.569834371, 0.21221404,  0.21221404, -0.065728883, -0.076928899, -0.082574645, -0.033260035,  0.219937548, -0.033260035, 0.059618994, 0.059618994, 0.328876262,  -0.042174202, 0.062637456, 0.393870002, 0.326653773, 0.233934148,  0.214605583, 0.007283343, 0.282652174, -0.082574645, 0.140097776,  0.11993679, 0.013906457, 0.114055642, 0.027658663, -0.070699241,  0.037565275, -0.070699241, 0.007283343, 0.061982899, 0.199237823,  0.569834371, -0.018700663, 0.039288557, 0.471497656, 0.242136143,  0.383200413, 0.213311867, 0.19191663, -0.065728883,
 0.057338195,  0.049315633, 0.059618994, 0.059618994, 0.214308977, 0.128389921,  -0.018700663, -0.070699241, -0.086097884, 0.366987271, -0.015999442,  -0.169993743, 0.061982899, 0.03018664, 0.508926099, 0.220469512,  0.091490786, -0.088522479, 0.214605583, 0.029232469, 0.415997543,  0.029232469, 0.060085553, -0.342823215, 0.021628518, 0.094459129,  0.264711677, 0.397421106, 0.059618994, 0.036456744, -0.065728883,  -0.088522479, 0.177490964, -0.015999442, -0.086097884, 0.565661951,  -0.303093619, 0.027658663, 0.080537871, 0.046029687, 0.020747752,  0.264711677, 0.020747752, 0.140097776, 0.121494593, 0.028159196,  0.102148041, 0.013906457, 0.096319168, -0.076928899, 0.216825824,  0.178838741, 0.060085553, 0.192104843, -0.082574645, -0.065728883,  0.569834371, 0.21221404, 0.21221404, -0.065728883, -0.076928899,  -0.082574645, -0.033260035, 0.219937548, -0.033260035, 0.059618994,  0.059618994, 0.328876262, -0.042174202, 0.062637456, 0.393870002, 
 0.326653773, 0.233934148, 0.214605583, 0.007283343, 0.282652174,  -0.082574645, 0.140097776, 0.11993679, 0.013906457, 0.114055642,  0.027658663, -0.070699241, 0.037565275, -0.070699241, 0.007283343,  0.061982899, 0.199237823, -0.018700663, 0.039288557), Core.CPI.Food.PPI.Farm = c(0.024904916,  0.027307361, 0.025950523, 0.026091188, 0.027348863, 0.021461033,  0.01702177, 0.016107413, 0.027082059, 0.024761836, 0.027820644,  0.025638428, 0.021064644, 0.022617079, 0.019341399, 0.019439882,  0.01198474, 0.026417315, 0.033332157, 0.021643021, 0.021965605,  0.021677386, 0.024613858, 0.016164976, 0.023527578, 0.021546199,  0.025258394, 0.015801737, 0.023677409, 0.017080937, 0.010182005,  0.021908278, 0.015984198, 0.010100443, 0.026056165, 0.024664,  0.027820644, 0.011338128, 0.021461033, 0.022680707, 0.021223117,  0.030793779, 0.013108415, 0.023115649, 0.022438149, 0.02498414,  0.016860881, 0.029457635, 0.016958003, 0.025511347, 0.016958003,  0.026776534,
 0.022253236, 0.021781775, 0.017552143, 0.018210414,  0.011010205, 0.029011844, 0.020677107, 0.01963456, 0.019888024,  0.01023228, 0.025705077, 0.027246357, 0.021832089, 0.022547779,  0.018714812, 0.018714812, 0.02165893, 0.019173462, 0.027246357,  0.026879388, 0.027452488, 0.026879388, 0.030774982, 0.02892852,  0.022558932, 0.02609762, 0.022395021, 0.025348179, 0.026778407,  0.021813883, 0.025737883, 0.033385735, 0.021936543, 0.027246357,  0.028538486, 0.017533072, 0.011010205, 0.01070759, 0.022625255,  0.020341398, 0.010418465, 0.020341398, 0.029534629, 0.022311364,  0.015778567, 0.022617079, 0.020683829, 0.010898218, 0.024904916,  0.027307361, 0.025950523, 0.026091188, 0.027348863, 0.021461033,  0.01702177, 0.016107413, 0.027082059, 0.024761836, 0.027820644,  0.025638428, 0.021064644, 0.022617079, 0.019341399, 0.019439882,  0.01198474, 0.026417315, 0.033332157, 0.021643021, 0.021965605,  0.021677386, 0.024613858, 0.016164976, 0.023527578, 0.021546199,
  0.025258394, 0.015801737, 0.023677409, 0.017080937, 0.010182005,  0.021908278, 0.015984198, 0.010100443, 0.026056165, 0.024664,  0.027820644, 0.011338128, 0.021461033, 0.022680707, 0.021223117,  0.030793779, 0.013108415, 0.023115649, 0.022438149, 0.02498414,  0.016860881, 0.029457635, 0.016958003, 0.025511347, 0.016958003,  0.026776534, 0.022253236, 0.021781775, 0.017552143, 0.018210414,  0.011010205, 0.029011844, 0.020677107, 0.01963456, 0.019888024,  0.01023228, 0.025705077, 0.027246357, 0.021832089, 0.022547779,  0.018714812, 0.018714812, 0.02165893, 0.019173462, 0.027246357,  0.026879388, 0.027452488, 0.026879388, 0.030774982, 0.02892852,  0.022558932, 0.02609762, 0.022395021, 0.025348179, 0.026778407,  0.021813883, 0.025737883, 0.033385735, 0.021936543, 0.027246357,  0.028538486, 0.017533072, 0.011010205, 0.01070759, 0.022625255,  0.020341398, 0.010418465, 0.020341398, 0.029534629, 0.022311364,  0.015778567, 0.022617079, 0.020683829, 0.010898218,
 0.024904916,  0.027307361, 0.025950523, 0.026091188, 0.027348863, 0.021461033,  0.01702177, 0.016107413, 0.027082059, 0.024761836, 0.027820644,  0.025638428, 0.021064644, 0.022617079, 0.019341399, 0.019439882,  0.01198474, 0.026417315, 0.033332157, 0.021643021, 0.021965605,  0.021677386, 0.024613858, 0.016164976, 0.023527578, 0.021546199,  0.025258394, 0.015801737, 0.023677409, 0.017080937, 0.010182005,  0.021908278, 0.015984198, 0.010100443, 0.026056165, 0.024664,  0.027820644, 0.011338128, 0.021461033, 0.022680707, 0.021223117,  0.030793779, 0.013108415, 0.023115649, 0.022438149, 0.02498414,  0.016860881, 0.029457635, 0.016958003, 0.025511347, 0.016958003,  0.026776534, 0.022253236, 0.021781775, 0.017552143, 0.018210414,  0.011010205, 0.029011844, 0.020677107, 0.01963456, 0.019888024,  0.01023228, 0.025705077, 0.027246357, 0.021832089, 0.022547779,  0.018714812, 0.018714812, 0.02165893, 0.019173462, 0.027246357,  0.026879388, 0.027452488, 0.026879388,
 0.030774982, 0.02892852,  0.022558932, 0.02609762, 0.022395021, 0.025348179, 0.026778407,  0.021813883, 0.025737883, 0.033385735, 0.021936543, 0.027246357,  0.028538486, 0.017533072, 0.011010205, 0.01070759, 0.022625255,  0.020341398, 0.010418465, 0.020341398, 0.029534629, 0.022311364,  0.015778567, 0.022617079, 0.020683829, 0.010898218, 0.024904916,  0.027307361, 0.025950523, 0.026091188, 0.027348863, 0.021461033,  0.01702177, 0.016107413, 0.027082059, 0.027820644, 0.025638428,  0.021064644, 0.019341399, 0.019439882, 0.01198474, 0.026417315,  0.033332157, 0.021643021, 0.021965605, 0.021677386, 0.024613858,  0.016164976, 0.023527578, 0.021546199, 0.025258394, 0.015801737,  0.023677409, 0.017080937, 0.010182005, 0.021908278, 0.015984198,  0.010100443, 0.026056165, 0.024664, 0.027820644, 0.011338128,  0.021461033, 0.022680707, 0.021223117, 0.030793779, 0.013108415,  0.023115649, 0.022438149, 0.02498414, 0.016860881, 0.029457635,  0.016958003, 0.025511347,
 0.016958003, 0.026776534, 0.021781775,  0.017552143, 0.018210414, 0.011010205, 0.029011844, 0.020677107,  0.01963456, 0.019888024, 0.01023228, 0.025705077, 0.027246357,  0.021832089, 0.022547779, 0.018714812, 0.018714812, 0.02165893,  0.019173462, 0.027246357, 0.026879388, 0.027452488, 0.026879388,  0.030774982, 0.02892852, 0.022558932, 0.02609762, 0.022395021,  0.025348179, 0.026778407, 0.021813883, 0.025737883, 0.033385735,  0.021936543, 0.027246357, 0.028538486, 0.017533072, 0.011010205,  0.01070759, 0.022625255, 0.020341398, 0.010418465, 0.020341398,  0.029534629, 0.022311364, 0.015778567, 0.020683829, 0.010898218 ), Series = c("Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI",
 "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",  "Core.CPI", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", 
 "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", 
 "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food", "Core.CPI.Food",  "Core.CPI.Food", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", 
 "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", 
 "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm", "Core.PPI.Farm",  "Core.PPI.Farm", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price", 
 "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price",
 "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price", "Core.Apple.Price", "Core.Apple.Price",  "Core.Apple.Price"), Rate = c(2.5381632, 2.3275748, 2.4828723,  2.3404907, 2.3283633, 2.0966291, 1.4718592, 1.418802, 2.3389137,  2.5155965, 2.3389137, 2.308178, 1.83819, 2.2455378, 1.665654,  1.7186092, 1.3951171, 2.602992, 2.3178646, 2.0755616, 2.0928329,  1.6112696, 2.4782, 1.3005156, 2.0498906, 1.8142672, 2.4059673,  1.4096136, 2.4281497, 1.4096136, 1.0081455, 2.0379694, 1.4577346,  0.9725739, 2.4421711, 2.4811077, 2.3389137, 1.1936682, 2.0966291, 
 1.8142672, 1.6720232, 2.3178646, 1.3951171, 2.3143282, 1.9812501,  1.9480074, 1.6442052, 2.4052363, 1.5141768, 2.4421711, 1.5141768,  2.325263, 2.1727449, 2.0928083, 1.591222, 1.8532525, 1.2493021,  2.3927305, 1.7669816, 2.1391545, 2.0685012, 1.0081455, 2.3636374,  2.0162969, 2.0966291, 2.2455378, 1.584097, 1.584097, 2.0966291,  1.7669816, 2.0162969, 2.2318185, 2.3284427, 2.2318185, 2.3389137,  2.3389137, 2.3314236, 2.1460945, 2.0432301, 2.5325357, 2.635288,  2.1234962, 2.4059673, 2.3757969, 2.2670643, 2.0162969, 2.325263,  1.7254992, 1.2493021, 0.9910426, 1.9480074, 1.7186092, 1.052104,  1.7186092, 2.3757969, 2.0928329, 1.2156358, 2.2455378, 1.665654,  1.1332352, 2.4746011, 2.8315265, 2.6324456, 2.6538901, 2.9381478,  2.154349, 1.7482406, 1.6427312, 2.7820644, 2.4564772, 2.892852,  2.6149758, 2.1511768, 2.2670979, 1.9878371, 1.9815514, 1.1001525,  2.6481881, 3.8408912, 2.1864873, 2.2311364, 2.445973, 2.4585834,  1.7218249, 2.5041914, 2.2680707,
 2.5458181, 1.6086003, 2.3556592,  1.8075871, 1.0202115, 2.2213994, 1.6218673, 1.0162894, 2.6600983,  2.4639487, 2.892852, 1.1218417, 2.154349, 2.4949725, 2.2724079,  3.3332157, 1.2967955, 2.3108741, 2.3313364, 2.6818829, 1.6930686,  3.0808954, 1.7563415, 2.5729274, 1.7563415, 2.7481315, 2.251613,  2.1995197, 1.8372104, 1.8145992, 1.0268796, 3.0282978, 2.2180753,  1.8756067, 1.9728627, 1.0282555, 2.6222252, 2.9607486, 2.2120689,  2.2563179, 1.9289581, 1.9289581, 2.1832089, 1.9474191, 2.9607486,  2.7639588, 2.8841841, 2.7639588, 3.4467904, 3.0774982, 2.2433048,  2.6870399, 2.272214, 2.5355787, 2.6849328, 2.1958614, 2.6157435,  3.8199618, 2.1814193, 2.9607486, 3.0300438, 1.7625765, 1.0268796,  1.0906881, 2.3149452, 2.1130225, 1.039795, 2.1130225, 3.0978794,  2.3002881, 1.7589672, 2.2670979, 2.2026258, 1.0789684, 2.0164457,  6.8679994, 6.2703634, 5.4506968, 10.1042674, 1.462119, 4.5501421,  3.8075426, 6.0492832, 0.8638008, 6.9768755, 5.5982619, 4.3970076, 
 -0.0748248, 4.218898, 3.2940618, 0.6717722, 2.1696632, 7.1872345,  0.8632402, 0.6901393, 9.2501384, 1.7187562, 8.5830855, 3.543973,  -3.4987483, 4.8103747, 3.5082552, 1.0085354, 5.6068968, 2.7220303,  2.1671811, 3.5872778, 2.9093082, 6.7913833, 1.3348239, 6.9768755,  1.6275833, 1.462119, -6.1552561, 8.2978854, 5.5641112, 1.1540021,  0.7074774, 2.7194702, -2.2166913, 2.551553, 6.5332213, 5.0777083,  5.0516984, 5.0777083, 5.905318, -1.352724, 0.7404181, 5.7541939,  2.3092054, 1.4103958, 6.8966259, -6.8222509, 0.6473696, 1.5004401,  3.8646201, 6.0460101, -0.903721, 0.8276089, 1.0853565, 5.8317961,  5.8317961, 1.1448639, -1.6687114, -0.903721, 3.0657537, 8.1814094,  3.0657537, 11.6148373, 8.5228628, 1.3781249, 2.3003386, 2.9984378,  0.3679971, 2.2836197, 0.5910308, 6.0125785, 8.9290304, 1.4698029,  -0.903721, 8.2920213, 2.9504507, 1.4103958, 4.7108879, -0.1343419,  4.0817881, 2.3954394, 4.0817881, 5.6524137, -0.0112075, 11.6973423,  -0.0748248, 5.9210606,
 2.3345702, 17.4086973, 7.7990847,  14.4285953, 5.5056067, 10.7600131, 0.6517095, 2.3242513,  2.0042622, 3.0635108, 3.2446601, 6.1327219, 3.671657, 0.95851,  0.2538536, -3.6073357, 8.2856145, 0.3589602, -2.6931724,  3.4613186, 2.3149668, 10.5472683, 8.2159942, 5.5994846, -1.7412378,  5.5817324, 1.6618858, 10.2624706, 1.914158, 2.0082275, -5.2260888,  1.5752541, 2.3847971, 10.4518366, 8.6912748, 3.2446601, 1.6840694,  0.6517095, -3.5189903, 7.0310476, 1.0119283, -0.2723672,  15.8772949, -8.7822872, 2.220627, 2.7124688, 2.9546694, 1.701043,  7.2479704, 1.701043, 4.6621659, 4.6069711, 2.2035708, 3.5255628,  1.3199739, 4.2025271, -2.9629541, 11.9108684, 5.2315757,  2.6749488, 6.5753491, -1.4082903, -0.79321, 11.368521, 5.5115584,  5.5115584, -0.0707503, -0.1249927, -1.4082903, 1.3055148,  8.8835467, 1.3055148, 4.1504065, 3.5465756, 7.424124, 1.0855087,  2.7466494, 14.8173572, 7.6403029, 7.4409758, 7.169615, 1.5520656,  6.6000898, -1.4082903, 6.2201012,
 5.1482258, 1.3199739, 3.594673,  2.0843172, -0.4785241, 1.5929887, -0.4785241, 1.9639313,  4.1455614, 10.569709, 0.4870806, 1.8321403), id = c(1L, 2L,  3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L,  16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L,  28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L,  40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L,  52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L,  64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L,  76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L,  88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L,  100L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L,  13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L,  25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L,  37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L,  49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L,  61L, 62L, 63L, 64L, 65L,
 66L, 67L, 68L, 69L, 70L, 71L, 72L,  73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L,  85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L,  97L, 98L, 99L, 100L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L,  10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L,  22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L,  34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L,  46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L,  58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L,  70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L,  82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L,  94L, 95L, 96L, 97L, 98L, 99L, 100L, 1L, 2L, 3L, 4L, 5L, 6L,  7L, 8L, 9L, 11L, 12L, 13L, 15L, 16L, 17L, 18L, 19L, 20L,  21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L,  33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L,  45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 54L, 55L, 56L, 57L,  58L, 59L, 60L, 61L,
 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L,  70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L,  82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L,  94L, 95L, 96L, 97L, 99L, 100L)), .Names = c("Trials", "Year", 
"Month", "Core.CPI.Weighting", "CPI.Food", "PPI.Farm", "Apple.Price", 
"Core.CPI.Food.PPI.Farm", "Series", "Rate", "id"), row.names = c(1L, 
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 
16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 
29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 
42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 
55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 
68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 
81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 
94L, 95L, 96L, 97L, 98L, 99L, 100L, 101L, 102L, 103L, 104L, 105L, 
106L, 107L, 108L, 109L, 110L, 111L, 112L, 113L, 114L, 115L, 116L, 
117L, 118L, 119L, 120L, 121L, 122L, 123L, 124L, 125L, 126L, 127L, 
128L, 129L, 130L, 131L, 132L, 133L, 134L, 135L, 136L, 137L, 138L, 
139L, 140L, 141L, 142L, 143L, 144L, 145L, 146L, 147L, 148L, 149L, 
150L, 151L, 152L, 153L, 154L, 155L, 156L, 157L, 158L, 159L, 160L, 
161L, 162L, 163L, 164L, 165L, 166L, 167L, 168L, 169L, 170L, 171L, 
172L, 173L, 174L, 175L, 176L, 177L, 178L, 179L, 180L, 181L, 182L, 
183L, 184L, 185L, 186L, 187L, 188L, 189L, 190L, 191L, 192L, 193L, 
194L, 195L, 196L, 197L, 198L, 199L, 200L, 201L, 202L, 203L, 204L, 
205L, 206L, 207L, 208L, 209L, 210L, 211L, 212L, 213L, 214L, 215L, 
216L, 217L, 218L, 219L, 220L, 221L, 222L, 223L, 224L, 225L, 226L, 
227L, 228L, 229L, 230L, 231L, 232L, 233L, 234L, 235L, 236L, 237L, 
238L, 239L, 240L, 241L, 242L, 243L, 244L, 245L, 246L, 247L, 248L, 
249L, 250L, 251L, 252L, 253L, 254L, 255L, 256L, 257L, 258L, 259L, 
260L, 261L, 262L, 263L, 264L, 265L, 266L, 267L, 268L, 269L, 270L, 
271L, 272L, 273L, 274L, 275L, 276L, 277L, 278L, 279L, 280L, 281L, 
282L, 283L, 284L, 285L, 286L, 287L, 288L, 289L, 290L, 291L, 292L, 
293L, 294L, 295L, 296L, 297L, 298L, 299L, 300L, 301L, 302L, 303L, 
304L, 305L, 306L, 307L, 308L, 309L, 311L, 312L, 313L, 315L, 316L, 
317L, 318L, 319L, 320L, 321L, 322L, 323L, 324L, 325L, 326L, 327L, 
328L, 329L, 330L, 331L, 332L, 333L, 334L, 335L, 336L, 337L, 338L, 
339L, 340L, 341L, 342L, 343L, 344L, 345L, 346L, 347L, 348L, 349L, 
350L, 351L, 352L, 354L, 355L, 356L, 357L, 358L, 359L, 360L, 361L, 
362L, 363L, 364L, 365L, 366L, 367L, 368L, 369L, 370L, 371L, 372L, 
373L, 374L, 375L, 376L, 377L, 378L, 379L, 380L, 381L, 382L, 383L, 
384L, 385L, 386L, 387L, 388L, 389L, 390L, 391L, 392L, 393L, 394L, 
395L, 396L, 397L, 399L, 400L), class = "data.frame")
Â 
Â 
Â 
Â 
Â 


________________________________
DeÂ : John Kane <jrkrideau@inbox.com>

rg" <r-help@r-project.org> 
EnvoyÃ© le : Jeudi 1 aoÃ»t 2013 7h43
ObjetÂ : RE: [R] ggplot2: color histograms by quintile


There is a problem with your example data set. "Series" has only one value so there is no faceting.Â  Also you refer to "trim.index$Rate" . Where is it coming from or is trim.index just another name for "thing"

John Kane
Kingston ON Canada


> -----Original Message-----

> Sent: Thu, 1 Aug 2013 01:23:37 +0100 (BST)
> To: r-help@r-project.org
> Subject: [R] ggplot2: color histograms by quintile
> 
> Hello,
> 
> I have a basic panel of histograms as follows, whose current colors don't
> matter:
> 
> 
> binsize=diff(range(thing$Rate))/64
> ggplot(thing, aes(x=Rate, fill=Series)) +
> geom_histogram(binwidth=binsize) + facet_grid(Series~.,scales="free")+
>Â   labs(fill="Index") +
>Â   xlab("Growth Rate (%)") +
>Â   theme(axis.title.y=element_blank(),legend.position=c(1,.64),
> legend.justification=c(1,1),strip.text.y = theme_blank()) +
>Â   scale_x_continuous(breaks=c(-10,-5,-2:10,15,20)) +
>Â   geom_vline(xintercept=0, linetype="dotted")
> rm(binsize)
> 
> 
> 
> What I would like to do is color each of the four histograms by its own
> deciles.Â  Essentially
> quantile(trim.index$Rate,c(0,.1,.2,.3,.4,.5,.6,.7,.8,.9,1)) would give me
> the over-all deciles, but I would like them broken down by the elements
> of the Series variable, and then applied to the histograms as shading or
> coloring.Â  Does this makes sense?Â  I've dumped the first 100 rows of data
> below.
> 
> Thanks in advance for any help you're able to provide.
> 
> 
> David
> 
> 
> 
>Â  structure(list(Trials = 1:100, Year = c(2005L, 2008L, 2006L,
> 2007L, 2006L, 2004L, 2004L, 2003L, 2007L, 2005L, 2008L, 2006L,
> 2011L, 2005L, 2004L, 2003L, 2010L, 2002L, 2008L, 2005L, 2005L,
> 2004L, 2006L, 2011L, 2011L, 2008L, 2006L, 2004L, 2002L, 2003L,
> 2009L, 2004L, 2003L, 2011L, 2006L, 2002L, 2007L, 2010L, 2005L,
> 2008L, 2011L, 2008L, 2010L, 2005L, 2004L, 2009L, 2002L, 2008L,
> 2002L, 2006L, 2003L, 2007L, 2006L, 2006L, 2002L, 2002L, 2010L,
> 2008L, 2008L, 2003L, 2003L, 2009L, 2007L, 2009L, 2004L, 2005L,
> 2011L, 2010L, 2005L, 2008L, 2008L, 2008L, 2007L, 2008L, 2008L,
> 2007L, 2002L, 2009L, 2011L, 2002L, 2002L, 2006L, 2007L, 2007L,
> 2002L, 2009L, 2007L, 2003L, 2010L, 2010L, 2009L, 2003L, 2010L,
> 2003L, 2007L, 2006L, 2010L, 2005L, 2004L, 2010L), Month = c(12L,
> 4L, 5L, 3L, 9L, 12L, 4L, 3L, 6L, 10L, 6L, 11L, 1L, 6L, 9L, 10L,
> 5L, 3L, 11L, 10L, 2L, 8L, 9L, 7L, 8L, 8L, 7L, 1L, 9L, 1L, 11L,
> 3L, 12L, 1L, 6L, 7L, 6L, 8L, 12L, 8L, 11L, 11L, 5L, 7L, 2L, 6L,
> 9L, 9L, 11L, 6L, 11L, 5L, 5L, 3L, 10L, 6L, 7L, 8L, 9L, 2L, 3L,
> 11L, 8L, 4L, 12L, 6L, 10L, 10L, 12L, 9L, 4L, 12L, 12L, 12L, 6L,
> 6L, 11L, 1L, 5L, 6L, 2L, 4L, 7L, 10L, 12L, 4L, 5L, 8L, 7L, 2L,
> 6L, 10L, 10L, 10L, 10L, 2L, 6L, 6L, 9L, 9L), Core.CPI.Weighting = c(2L,
> 3L, 2L, 5L, 1L, 5L, 4L, 5L, 4L, 1L, 3L, 4L, 5L, 2L, 4L, 5L, 1L,
> 5L, 1L, 3L, 2L, 1L, 5L, 2L, 1L, 2L, 5L, 5L, 4L, 2L, 4L, 4L, 5L,
> 5L, 2L, 5L, 3L, 4L, 5L, 1L, 2L, 2L, 5L, 3L, 2L, 2L, 5L, 3L, 2L,
> 4L, 2L, 4L, 1L, 3L, 1L, 4L, 1L, 3L, 1L, 1L, 4L, 2L, 3L, 2L, 2L,
> 5L, 4L, 4L, 3L, 4L, 2L, 5L, 2L, 5L, 1L, 2L, 5L, 5L, 5L, 2L, 5L,
> 3L, 3L, 1L, 5L, 2L, 2L, 2L, 1L, 3L, 5L, 3L, 4L, 3L, 3L, 1L, 1L,
> 2L, 2L, 3L), CPI.Food = c(0.023474768, 0.043433814, 0.029315923,
> 0.042208873, 0.035479323, 0.024429485, 0.028537661, 0.027623773,
> 0.045546671, 0.023973579, 0.045546671, 0.038421672, 0.037161108,
> 0.023102181, 0.032765694, 0.032962625, 0.008051879, 0.028741685,
> 0.053639179, 0.025192645, 0.025077433, 0.032806764, 0.023605006,
> 0.025644434, 0.029584922, 0.031756778, 0.032450724, 0.026035343,
> 0.020656969, 0.026035343, 0.010684754, 0.029551194, 0.02442531,
> 0.012348667, 0.030959528, 0.023781539, 0.045546671, 0.008345359,
> 0.024429485, 0.031756778, 0.034731773, 0.053639179, 0.008051879,
> 0.023005118, 0.030315091, 0.04149634, 0.019373857, 0.051078725,
> 0.022406708, 0.030959528, 0.022406708, 0.044396055, 0.023304811,
> 0.025196539, 0.020831987, 0.016599861, 0.008044572, 0.049349997,
> 0.026691689, 0.01612059, 0.015903088, 0.010684754, 0.033979886,
> 0.048496522, 0.024429485, 0.023102181, 0.033084021, 0.033084021,
> 0.024429485, 0.026691689, 0.048496522, 0.054246603, 0.039956669,
> 0.054246603, 0.045546671, 0.045546671, 0.018027105, 0.053917666,
> 0.034171337, 0.025416646, 0.029331567, 0.02412957, 0.032450724,
> 0.052641267, 0.017531941, 0.048496522, 0.044396055, 0.018367312,
> 0.008044572, 0.013896245, 0.04149634, 0.032962625, 0.009905593,
> 0.032962625, 0.052641267, 0.025077433, 0.023022986, 0.023102181,
> 0.032765694, 0.00916168), PPI.Farm = c(0.009730106, 0.204892729,
> 0.138453455, 0.210017271, 0.178801715, -0.017104315, 0.168632738,
> 0.157512456, 0.208907609, -0.007879949, 0.208907609, 0.187585976,
> 0.171910952, -0.0471555, 0.144318736, 0.111713247, -0.000515726,
> 3.019e-05, 0.120566043, -0.027737238, -0.021152479, 0.168890071,
> -0.020784628, 0.231482252, 0.050380553, -0.141247793, 0.16832412,
> 0.140014634, -0.04669922, 0.140014634, 0.095775695, 0.02684028,
> 0.142349938, 0.125929795, 0.154898078, -0.043965946, 0.208907609,
> 0.033632438, -0.017104315, -0.141247793, 0.215496099, 0.120566043,
> -0.000515726, -0.041130752, 0.041959105, -0.105460885, 0.070882919,
> 0.189171764, 0.122047713, 0.154898078, 0.122047713, 0.202255379,
> -0.048781928, -0.033167528, 0.099171658, 0.041330169, 0.015714896,
> 0.204083122, -0.154114835, -0.008444152, -0.007718043, 0.095775695,
> 0.170931281, -0.067437568, -0.017104315, -0.0471555, 0.228225921,
> 0.228225921, -0.017104315, -0.154114835, -0.067437568, 0.072354298,
> 0.198873427, 0.072354298, 0.208907609, 0.208907609, -0.033883688,
> 0.030715588, 0.077744759, -0.039610801, 0.005252783, -0.040063654,
> 0.16832412, 0.154822639, -0.025165038, -0.067437568, 0.202255379,
> 0.054003537, 0.015714896, 0.158704237, -0.105460885, 0.111713247,
> 0.077687811, 0.111713247, 0.154822639, -0.021152479, 0.221790488,
> -0.0471555, 0.144318736, 0.059385754), Apple.Price = c(0.471497656,
> 0.242136143, 0.383200413, 0.213311867, 0.19191663, -0.065728883,
> 0.057338195, 0.049315633, 0.059618994, 0.493034014, 0.059618994,
> 0.214308977, 0.128389921, 0.569834371, -0.018700663, -0.070699241,
> -0.086097884, 0.366987271, -0.015999442, -0.169993743, 0.061982899,
> 0.03018664, 0.508926099, 0.220469512, 0.091490786, -0.088522479,
> 0.214605583, 0.029232469, 0.415997543, 0.029232469, 0.060085553,
> -0.342823215, 0.021628518, 0.094459129, 0.264711677, 0.397421106,
> 0.059618994, 0.036456744, -0.065728883, -0.088522479, 0.177490964,
> -0.015999442, -0.086097884, 0.565661951, -0.303093619, 0.027658663,
> 0.080537871, 0.046029687, 0.020747752, 0.264711677, 0.020747752,
> 0.140097776, 0.398741769, 0.121494593, 0.028159196, 0.102148041,
> 0.013906457, 0.096319168, -0.076928899, 0.216825824, 0.178838741,
> 0.060085553, 0.192104843, -0.082574645, -0.065728883, 0.569834371,
> 0.21221404, 0.21221404, -0.065728883, -0.076928899, -0.082574645,
> -0.033260035, 0.219937548, -0.033260035, 0.059618994, 0.059618994,
> 0.328876262, -0.042174202, 0.062637456, 0.393870002, 0.326653773,
> 0.233934148, 0.214605583, 0.007283343, 0.282652174, -0.082574645,
> 0.140097776, 0.11993679, 0.013906457, 0.114055642, 0.027658663,
> -0.070699241, 0.037565275, -0.070699241, 0.007283343, 0.061982899,
> 0.199237823, 0.569834371, -0.018700663, 0.039288557),
> Core.CPI.Food.PPI.Farm = c(0.024904916,
> 0.027307361, 0.025950523, 0.026091188, 0.027348863, 0.021461033,
> 0.01702177, 0.016107413, 0.027082059, 0.024761836, 0.027820644,
> 0.025638428, 0.021064644, 0.022617079, 0.019341399, 0.019439882,
> 0.01198474, 0.026417315, 0.033332157, 0.021643021, 0.021965605,
> 0.021677386, 0.024613858, 0.016164976, 0.023527578, 0.021546199,
> 0.025258394, 0.015801737, 0.023677409, 0.017080937, 0.010182005,
> 0.021908278, 0.015984198, 0.010100443, 0.026056165, 0.024664,
> 0.027820644, 0.011338128, 0.021461033, 0.022680707, 0.021223117,
> 0.030793779, 0.013108415, 0.023115649, 0.022438149, 0.02498414,
> 0.016860881, 0.029457635, 0.016958003, 0.025511347, 0.016958003,
> 0.026776534, 0.022253236, 0.021781775, 0.017552143, 0.018210414,
> 0.011010205, 0.029011844, 0.020677107, 0.01963456, 0.019888024,
> 0.01023228, 0.025705077, 0.027246357, 0.021832089, 0.022547779,
> 0.018714812, 0.018714812, 0.02165893, 0.019173462, 0.027246357,
> 0.026879388, 0.027452488, 0.026879388, 0.030774982, 0.02892852,
> 0.022558932, 0.02609762, 0.022395021, 0.025348179, 0.026778407,
> 0.021813883, 0.025737883, 0.033385735, 0.021936543, 0.027246357,
> 0.028538486, 0.017533072, 0.011010205, 0.01070759, 0.022625255,
> 0.020341398, 0.010418465, 0.020341398, 0.029534629, 0.022311364,
> 0.015778567, 0.022617079, 0.020683829, 0.010898218), Series =
> c("Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI", "Core.CPI",
> "Core.CPI", "Core.CPI", "Core.CPI"), Rate = c(2.5381632, 2.3275748,
> 2.4828723, 2.3404907, 2.3283633, 2.0966291, 1.4718592, 1.418802,
> 2.3389137, 2.5155965, 2.3389137, 2.308178, 1.83819, 2.2455378,
> 1.665654, 1.7186092, 1.3951171, 2.602992, 2.3178646, 2.0755616,
> 2.0928329, 1.6112696, 2.4782, 1.3005156, 2.0498906, 1.8142672,
> 2.4059673, 1.4096136, 2.4281497, 1.4096136, 1.0081455, 2.0379694,
> 1.4577346, 0.9725739, 2.4421711, 2.4811077, 2.3389137, 1.1936682,
> 2.0966291, 1.8142672, 1.6720232, 2.3178646, 1.3951171, 2.3143282,
> 1.9812501, 1.9480074, 1.6442052, 2.4052363, 1.5141768, 2.4421711,
> 1.5141768, 2.325263, 2.1727449, 2.0928083, 1.591222, 1.8532525,
> 1.2493021, 2.3927305, 1.7669816, 2.1391545, 2.0685012, 1.0081455,
> 2.3636374, 2.0162969, 2.0966291, 2.2455378, 1.584097, 1.584097,
> 2.0966291, 1.7669816, 2.0162969, 2.2318185, 2.3284427, 2.2318185,
> 2.3389137, 2.3389137, 2.3314236, 2.1460945, 2.0432301, 2.5325357,
> 2.635288, 2.1234962, 2.4059673, 2.3757969, 2.2670643, 2.0162969,
> 2.325263, 1.7254992, 1.2493021, 0.9910426, 1.9480074, 1.7186092,
> 1.052104, 1.7186092, 2.3757969, 2.0928329, 1.2156358, 2.2455378,
> 1.665654, 1.1332352), id = 1:100), .Names = c("Trials", "Year",
> "Month", "Core.CPI.Weighting", "CPI.Food", "PPI.Farm", "Apple.Price",
> "Core.CPI.Food.PPI.Farm", "Series", "Rate", "id"), row.names = c(NA,
> 100L), class = "data.frame")
> Â Â Â  [[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help@r-project.orgmailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

____________________________________________________________
GET FREE SMILEYS FOR YOUR IM & EMAIL - Learn more at http://www.inbox.com/smileys
[[elided Yahoo spam]]
®, Google Talkâ„¢ and most webmails
	[[alternative HTML version deleted]]

