Displaying 1 result from an estimated 1 matches for "dec_data1".
2010 Sep 02
0
extract month data automatically
...n <- function(dt)
{ p0 <- sum(dt==0)/length(dt)
mn <- mean(dt)
c(p0=p0, mn=mn)
}
rbind(p0_mn(jan_data2),p0_mn(feb_data1),
p0_mn(mar_data1),p0_mn(apr_data1),p0_mn(may_data1),p0_mn(jun_data1),p0_mn(jul_data1),
p0_mn(aug_data1),p0_mn(sep_data1),p0_mn(oct_data1),p0_mn(nov_data1),p0_mn(dec_data1))
)
> head(Pooraka_data,20); tail(Pooraka_data,20)
Year Month Day Amount
1 1901 1 1 0.0
2 1901 1 2 3.0
3 1901 1 3 0.0
4 1901 1 4 0.5
5 1901 1 5 0.0
6 1901 1 6 0.0
7 1901 1 7 0.3
8 1901 1 8 0.0
9 1901 1 9 ...