[R] Readjusting frequencies

[arun]

Hi Katherine,

Check if this works:
fraud_data = data.frame(no_of_frauds = c(1, 2, 4, 6, 7, 9, 10), frequency = c(3, 1, 7, 11, 13, 1, 4))
fraud_data1 <- rbind(fraud_data,c(11,10))

fun1 <- function(dat) {
 sum1 <- 0
 for(i in 1:nrow(dat)){
 sum1 <- sum1 + dat[i, "frequency"]
 dat[i,"frequency"] <- sum1
 if(sum1> 5){
 sum1 <- 0
 }
 }
indx <- which(dat$frequency >5)
if(max(indx)==nrow(dat))
{res <- dat[dat$frequency >5,]
}
else{
dat[max(indx),"frequency"] <- sum(dat[c(max(indx),nrow(dat)),"frequency"])
res <- dat[dat$frequency > 5,]
}
res
}
fun1(fraud_data)
#  no_of_frauds frequency
#3            4        11
#4            6        11
#5            7        18
 fun1(fraud_data1)
#  no_of_frauds frequency
#3            4        11
#4            6        11
#5            7        13
#8           11        15


A.K.

On Tuesday, November 12, 2013 5:12 AM, Katherine Gobin <katherine_gobin at yahoo.com> wrote:

Dear Mr Arun,

Hi!
 Sorry to bother you. Yesterday I had raised one query to the forum but 
haven't received any response. If the time permits, will it be possible 
for you to at least have a look at it?


I have
following data.frame as

fraud_data
= data.frame(no_of_frauds = c(1, 2, 4, 6, 7, 9, 10), frequency = c(3, 1, 7, 11,
13, 1, 4))

>
fraud_data

no_of_frauds frequency
1
           1         3
2
           2         1
3
           4         7
4
           6        11
5
           7        13
6
           9         1
7
          10         4

I need
to regroup the data in such a way that if the frequency is less than 5, the
corresponding class data gets merged to next class (or at times with previous class too) i.e. the frequencies get
added till the added frequencies exceed 5. 

Thus, in above data.frame
since frequencies pertaining to no_of_frauds 1 and 2 are 3 and 1 respectively,
these get added to class 4 and the frequency of this class now becomes 3+1+7 =
11. Likewise, frequency of classes 9 and 10 are 1 and 4 and when these are
added still it is 5 i.e. doesn't exceed 5. Thus, these should get added to the
previous class i.e. 7.

Thus I
need to have

no_of_frauds
      frequency

      4                
  11            #  ( 3 + 1 + 7)

      6                
  11           

      7                
  18            #  (13 + 1 + 4)


If possible, pl go through it. Sorry to bother you.

Regards

Katherine