Hi,
Try:

library(plyr)
 fun1 <- function(dat){
 fun2 <- function(x) {indx <- x <0
  x1 <- x[!indx] %in% abs(x[indx])
  x2 <- abs(x[indx]) %in% x[!indx]
  x3 <- rbind(x[!indx][x1],x[indx][x2])
  x[!x %in% x3]}
 if(length(colnames(dat)) > 2) {
  lapply(colnames(dat)[-1], function(x) {
  dat1 <- cbind(dat[1],dat[x])
 ddply(dat1,.(Customer),colwise(fun2))
 })
 }
 else {
 ddply(dat,.(Customer),colwise(fun2))
 }
 }

dat1 <- structure(list(Customer = c("A", "A", "A", "B", "B", "B"), Consumption 
= c(100L, 
-100L, 150L, 20L, 30L, -30L)), .Names = c("Customer", "Consumption"
), class = "data.frame", row.names = c(NA, -6L))

dat2 <- structure(list(Customer = c("A", "A", "A", "B", "B", "B"), Consumption 
= c(100L, 
-100L, 150L, 20L, 30L, -30L), Column2 = c(30, -30, 40, 80, -40, 
40)), .Names = c("Customer", "Consumption", "Column2"), row.names = c(NA, 
-6L), class = "data.frame")

dat3 <- structure(list(Customer = c("A", "A", "A", "B", "B", "B", "B", 
"B"), Consumption = c(100, -100, 150, 20, 30, -30, 20, -40), 
    Column2 = c(30, 40, -30, -40, 80, 40, 20, -60)), .Names = c("Customer", 
"Consumption", "Column2"), row.names = c(NA, 8L), class = "data.frame")



fun1(dat1)
fun1(dat2)
fun1(dat3)

A.K.



Hi guys 

I am working on the dataset that there are some duplicates with 
opposite signs in the same column. But those pairs of opposites are 
errors, I have to delete them. For example: 

Customer    Consumption 
A                  100 
A                 -100 
A                  150 
B                   20 
B                   30 
B                  -30 

I have to get rid of those opposites for each 
customer(Consumption is one of the 13 variables in the dataset). This 
question troubles me for a long time, I really have no idea. 
Can anyone help me out or give me some hint? I really appreciate.

______________________________________________
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.

Reply via email to