Type <- factor(c("Add","Mis","Rev","Sha"))
Col <- factor(c("A","B","C","D"))
Zeile <- 1:4

shuffle2 <- function() {
  Count <- sample(c(rep(2,2),rep(4:6,4)))        # Verteilung der Fehlerzahlen
  de.s <- de[sample(1:64),]                      # Permutation
  de.s$pg <- NA;
  dex= 0
  for (pg in 1:14) {
    jj <- dex+1:Count[pg];
    dex <- dex + Count[pg];
    de.s$pg[jj] <- pg;
    de.s$Zeile[jj] <- sort(7*de.s$Zeile[jj] - sample(0:6,length(jj))); }
  de.s }

T1 <- list()
for (i in 1:6) {
  de.s <- shuffle2()
  de.s$Zeile <- with(de.s,ifelse(pg%%2,Zeile,Zeile+28))
  de.s$pg <- (de.s$pg+1) %/%2
  T1[[i]] <- de.s[c(4,3,2,1)]
}
T1.wide <- cbind(T1[[1]],T1[[2]],T1[[3]],T1[[4]],T1[[5]],T1[[6]])
sink("T1.txt")
T1.wide
sink()