Dados <- read.table("MC1ok.txt",header=TRUE)
matrix_dados1 <- cbind(Dados$ERROR_COUNT,Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)

Dados <- read.table("MW1ok.txt",header=TRUE)
matrix_dados2 <- cbind(Dados$ERROR_COUNT,Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)

Dados <- read.table("CM1ok.txt",header=TRUE)
matrix_dados3 <- cbind(Dados$ERROR_COUNT,Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)

Dados <- read.table("PC1ok.txt",header=TRUE)
matrix_dados4 <- cbind(Dados$ERROR_COUNT,Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)

Dados <- read.table("PC2ok.txt",header=TRUE)
matrix_dados5 <- cbind(Dados$ERROR_COUNT,Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)

Dados <- read.table("PC3ok.txt",header=TRUE)
matrix_dados6 <- cbind(Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)

Dados <- read.table("PC4ok.txt",header=TRUE)
matrix_dados7 <- cbind(Dados$ERROR_COUNT,Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)

Dados <- read.table("PC5ok.txt",header=TRUE)
matrix_dados8 <- cbind(Dados$ERROR_COUNT,Dados$BRANCH_COUNT,Dados$CALL_PAIRS,Dados$EDGE_COUNT,Dados$NUM_UNIQUE_OPERANDS,Dados$NUM_UNIQUE_OPERATORS)
rm(Dados)



matrix_Final<- rbind(matrix_dados1,matrix_dados2,matrix_dados3,matrix_dados4,matrix_dados5,matrix_dados6,matrix_dados7,matrix_dados8)
print(matrix_Final)