> On 17-02-2015, at 12:58, Knut Hansen <knut.han...@uit.no> wrote:
>
> Dear list,
>
> I have a vector:
> my.vector <- c("A", "B", "C", "D", "E", "F", "G")
>
> and two other:
> vec1 <- c("p", "q", "r", "s", "t")
> vec2 <- c("x", "y", "z")
>
> I want to substitute elements "b" and "e" in my.vector with vectors vec1 and
> vec2 respectively so that the result becomes the vector:
> c("A", "p", "q", "r" , "s" , "t", "C" , "D", "x", "y", "z", "F", "G")
>
> The ordering of the elements is important.
>
Something like this perhaps
res <- c("A", "p", "q", "r" , "s" , "t", "C" , "D", "x", "y", "z", "F", "G”)
rem <- function(vec, who, replace){
kW <- which(vec == who)
z1 <- append(vec,replace,kW)
z2 <- z1[ ! z1 %in% vec[kW] ]
z2
}
x1 <- rem(my.vector,"B",vec1)
x2 <- rem(x1,"E",vec2)
x2
all.equal(x2,res)
Berend
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.
