Pronóstico en partidos de fútbol: Rating System (2/3)

En la 1ª parte hemos obtenido los archivos FINAL7, FINAL8... hasta FINAL38 y los hemos guardado en D:/RR. Ahora, los leemos para obtener el archivo TABLA.FINAL17.18 en la que aparece el valor de cada rating con el correspondiente número de victorias del equipo de casa, del equipo de fuera y de empates. Así mismo, se obtienen gráficos de estos resultados. El autor de este y del resto de los códigos no es un especialista en programación; espero que vosotros podáis mejorarlos y hacerlos más eficientes.

NOTA: El siguiente script debe ejecutarse paso a paso.

#INICIO -------------------------
rm(list=ls(all=TRUE))

#---------INTRODUCCIÓN DE DATOS-----------
#Introducimos temporada y nos colocamos en el directorio D:/RR
getwd()
temporada<-17.18

F7<-read.table("D:/RR/FINAL7")
F8<-read.table("D:/RR/FINAL8")
F9<-read.table("D:/RR/FINAL9")
F10<-read.table("D:/RR/FINAL10")
F11<-read.table("D:/RR/FINAL11")
F12<-read.table("D:/RR/FINAL12")
F13<-read.table("D:/RR/FINAL13")
F14<-read.table("D:/RR/FINAL14")
F15<-read.table("D:/RR/FINAL15")
F16<-read.table("D:/RR/FINAL16")
F17<-read.table("D:/RR/FINAL17")
F18<-read.table("D:/RR/FINAL18")
F19<-read.table("D:/RR/FINAL19")
F20<-read.table("D:/RR/FINAL20")
F21<-read.table("D:/RR/FINAL21")
F22<-read.table("D:/RR/FINAL22")
F23<-read.table("D:/RR/FINAL23")
F24<-read.table("D:/RR/FINAL24")
F25<-read.table("D:/RR/FINAL25")
F26<-read.table("D:/RR/FINAL26")
F27<-read.table("D:/RR/FINAL27")
F28<-read.table("D:/RR/FINAL28")
F29<-read.table("D:/RR/FINAL29")
F30<-read.table("D:/RR/FINAL30")
F31<-read.table("D:/RR/FINAL31")
F32<-read.table("D:/RR/FINAL32")
F33<-read.table("D:/RR/FINAL33")
F34<-read.table("D:/RR/FINAL34")
F35<-read.table("D:/RR/FINAL35")
F36<-read.table("D:/RR/FINAL36")
F37<-read.table("D:/RR/FINAL37")
F38<-read.table("D:/RR/FINAL38")

#Obtenemos la tabla B en la que aparece el rating de cada uno de los
#320 partidos jugados en las jornadas 7 a 38 con
#el correspondiente resultado de victoria del equipo de casa,
#victoria del equipo de fuera o empate (1-X-2)

B<-rbind(F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18,F19,F20,
F21,F22,F23,F24,F25,F26,F27,F28,F29,F30,F31,F32,F33,F34,
F35,F36,F37,F38)
row.names(B)<-1:320;names(B);attach(B);
B

#Agrupamos los valores de B en la tabla MM (TABLA.FINAL.17.18)

BB<-table(B)
IND<-as.numeric(names(BB[,1]))
b1<-as.numeric(BB[,1]);b2<-as.numeric(BB[,2]);bx<-as.numeric(BB[,3])
sumas<-(b1+b2+bx)

data<-c(IND,b1,b2,bx,sumas)
M<-matrix(data,nrow=length(IND));MM<-as.data.frame(M)
colnames(MM)<-c('ratings','victcasa','victfuera','empate','total')
attach(MM)
MM

#Guardamos la tabla correspondiente a la temporada
write.table(MM,file=paste('TABLA.FINAL',temporada,'.txt',sep=""),row.names=FALSE)

split.screen(c(1,3))
screen(1)
plot(ratings,victcasa,pch=19)
screen(2)
plot(ratings,victfuera,pch=19)
screen(3)
plot(ratings,empate,pch=19)
#FIN -------------------------