[R-es] bucle para que repita elementos

Hola a todos.

Estoy intentando implimentar un bucle que repita tantas veces un 
elemento como indique otro vector y me cree una tabla con ellos , por 
ejemplo:

h<-c(1,2,3,1,2,3,1,1)
g<-c(6,7,4,1,3,3,2,1)

for(i in 1:sum(h)){
X <- rep(g[i], h[i])
as.vector(X)->X
write.table(X, file="X.txt",append=TRUE,row.names=FALSE,col.names=FALSE, 
quote = FALSE)
}

Y no para de salirme:

Error en rep(g[i], h[i]) : argumento 'times' inválido

Me podriais ayudar, ya que no se que error cometo