Displaying 1 result from an estimated 1 matches for "p0_mn".
Did you mean:
30mn
2010 Sep 02
0
extract month data automatically
...to do one by one:
jan_data1 <- Pooraka_data[Pooraka_data$Month=="1",4]
feb_data1 <- Pooraka_data[Pooraka_data$Month=="2",4]
mar_data1 <- Pooraka_data[Pooraka_data$Month=="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(d...