Esto es un Vignette de prueba

library(pqtprueba)

  factor1 <- factor(c('ola','k','ase'))
  factor2 <- factor(c('atr', 'perro', 'cumbia', 'cajeteala', 'piola', 'gato'))
fbind(factor1,factor2)
#> [1] ola       k         ase       atr       perro     cumbia    cajeteala
#> [8] piola     gato     
#> Levels: ase atr cajeteala cumbia gato k ola perro piola