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]]
______________________________________________
[email protected] 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.
