replace <-
function (x, list, values) 
{
        x[list] <- values
        x
}
