Prueba con esto:
Esto genera un vector de 280 números basados en una secuencia aleatoria que va del número 1 hasta el número 14, ambos inclusive; donde cada número parece exactamente 20 veces, ni más ni menos, sin que exista repetición cada 14 números.
N=20 # Numero de muestras
n=14 # numero de numeros
x=vector(length= n *N)
for(i in 1:N){
x[ ((i-1 )* n + 1):((i-1 )*n + n) ] <- sample( x = 1:n, size= n,replace= F)
}
x
# Comprobación
for(i in 1:N){
print("")
print(any(summary(as.factor(x[ ((i-1 )* n + 1):((i-1 )*n + n) ] ) )) !=1 )
}
matrix(x,nrow= N, ncol= n, byrow= T)
Te recomiendo que te metas en el grupo de facebook de R. Se llama "R project en español".
Veo que me salen emoticonos llorando son dos puntos junto con el parentesis que abre.