Displaying 1 result from an estimated 1 matches for "jun_data1".
Did you mean:
jan_data1
2010 Sep 02
0
extract month data automatically
...quot;3",4]
apr_data1 <- Pooraka_data[Pooraka_data$Month=="4",4]
...
then i try:
p0_mn <- 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 ...