#############
# Section 6
#############

mymat <- matrix(1:48, byrow=T, ncol=8)

print(mymat)

write(t(mymat), "mymat.txt", ncol=ncol(mymat))

write(t(mymat), "mymat.txt", sep='\t',ncol=ncol(mymat))  # writes a tab-separated file

mymat<-mymat*pi

print(mymat)

write(round(t(mymat),digits=2), "mymat.txt", ncol=ncol(mymat))

mtcars

my.car.data <- mtcars

write.table(my.car.data, file="E:/stat540files/cars1.txt", quote=F, sep='\t', na=" ", row.names=TRUE, col.names=TRUE)

write.table(my.car.data, file="E:/stat540files/cars2.txt", quote=F, sep='\t', na=" ", row.names=F, col.names=TRUE)

write.table(my.car.data, file="E:/stat540files/cars3.txt", quote=F, sep='\t', na=" ", row.names=TRUE, col.names=F)

print("SC wins: "); print(7); print("SC losses: "); print(6);

print(paste("SC wins: ", 7, "SC losses: ", 6))

SCwins = 7; SClosses = 6;

print(paste("SC wins: ", SCwins, "SC losses: ", SClosses))