earlyprice <- as.matrix(read.table("earlydata.csv", sep=",", 			header=TRUE))

lateprice <- t(as.matrix(read.table("latedata.csv", sep=",", 		header=FALSE, row.names=1)))

row.names(lateprice) <- NULL

allprice <- array(NA, c(550, 400))

allprice[501:550, ] <- lateprice

allprice[1:500, ] <- earlyprice[, rep(1:100, each=4)]

dimnames(allprice) <- list(NULL, paste(rep(colnames(earlyprice), each=4), "+", colnames(lateprice)))