Question

I have a data.frame with numeric values. How can I replace the each row maximum with 0
So for example in a row:

10, 1, 3, 4

the output would be

0, 1, 3, 4

I tried:

df1  <- data.frame(df)[apply(df,1,which.max=0)]

but I have something wrong.

I would be grateful for your help.

Answer 1

How about

replace_max <- function(x){x[which.max(x)] <- 0;x}

t(apply(df, 1, replace_max))

or

library(plyr)
adply(df, 1, replace_max)

EDIT to do rows

EDIT:2 to ensure data.frame