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