##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (df, r1, c1, r2, c2)
{
tmp <- df[r1, c1]
df[r1, c1] <- df[r2, c2]
df[r2, c2] <- tmp
return(df)
}
Run the code above in your browser using DataLab