Rで、ベクトルの中の重複した数字をまとめて削除

R

ベクターの中に重複した数字があった場合は、重複した要素をまとめて削除する。
最終的に、重複していなかった数字だけを残すようにしたい。

> test.data <- c("1","1","2","3","3","4","5","6","6")
> test.data2 <- as.numeric(test.data)
> dup.list <- which(duplicated(test.data))
> dup.list2 <- sort (dup.list, decreasing=T)

> for (i in dup.list2){
test.data2 <- test.data2[-i]
test.data2 <- test.data2[-(i-1)]
}

> test.data2
[1] 2 4 5

重複している要素を見つけて、それとそれの一つ前の要素を削除するような処理にしてある。
（数字はソートされている前提で処理している。）
要素が３つ以上ある場合はこれじゃダメかもしれないけれど、当面の問題はこれで解決か。