Hi,

The 'if' statement closes
CA$IND_COLLECTION[CA$TOT_PAID=
=0] <- 5L}



On Thu, Jul 3, 2014 at 12:12 PM, Pascal Oettli <kridox@ymail.com> wrote:

> Hi,
>
> At the 3rd line, a bracket is missing, to close the "if" statement.
>
> HTH
> Pascal
>
> On Thu, Jul 3, 2014 at 3:29 PM, Abhinaba Roy <abhinabaroy09@gmail.com>
> wrote:
> > Hi R-helpers,
> >
> > Can someone help me with this function
> >
> > prepArr <- function(CA) {
> >   if(CA$CD_ACCRUAL_FLAG == 'AY' ){
> >     if(!is.na(CA_AMT_PAYBACK ){
> >             CA$IND_COLLECTION[(CA$TOT_PAID>=CA$TOT_ARREAR_BEG|
> >                                     CA$TOT_PAID>=CA_AMT_PAYBACK)] <- 1L
> >             CA$IND_COLLECTION[CA$TOT_PAID<CA_AMT_PAYBACK] <- 2L
> >             CA$IND_COLLECTION[CA$TOT_PAID==0] <- 5L}
> >     else{
> >              CA$IND_COLLECTION[(CA$TOT_PAID>=CA$TOT_ARREAR_BEG|
> >                                     CA$TOT_PAID>=CA$ARR_SAT)] <- 1L
> >             CA$IND_COLLECTION[CA$TOT_PAID<CA$ARR_SAT] <- 4L
> >             CA$IND_COLLECTION[CA$TOT_PAID==0] <- 5L
> >         }
> >
> > }
> >   if(CA$ACC_PREV == 'AY'){
> >     if(!is.na(CA_PAYBACK_PREV)){
> >         CA$IND_PREV[(CA$PAID_PREV>=ARR_PREV|
> >                 CA$PAID_PREV>=CA_PAYBACK_PREV)] <- 1L
> >             CA$IND_PREV[CA$PAID_PREV<CA_PAYBACK_PREV] <- 2L
> >             CA$IND_PREV[CA$PAID_PREV==0] <- 5L}
> >     else{
> >         CA$IND_PREV[(CA$PAID_PREV>=ARR_PREV|
> >                                     CA$PAID_PREV>=CA$ARR_SAT_PREV)] <- 1L
> >             CA$IND_PREV[CA$PAID_PREV<CA$ARR_SAT_PREV] <- 4L
> >             CA$IND_PREV[CA$PAID_PREV==0] <- 5L
> >         }
> >
> > }
> >
> >     return(CA)
> > }
> >
> > When I run this function in R, it throws me a lot of errors.
> >
> > --
> > Regards,
> > Abhinaba Roy
> >
> >         [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > R-help@r-project.org mailing 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.
>
>
>
> --
> Pascal Oettli
> Project Scientist
> JAMSTEC
> Yokohama, Japan
>



-- 
Regards,
Abhinaba Roy

	[[alternative HTML version deleted]]

