## Read in the data: ## fn = '../../Data/Mets.txt' lines = paste0(readLines(fn, warn=FALSE), collapse='') win_loss = strsplit(lines, '\\s+')[[1]] win_loss = factor(win_loss, levels=c('L', 'W')) n_games = length(win_loss) DF = data.frame(game_index=seq(1, n_games), win_or_loss=win_loss) DF$win_or_loss_integer = as.numeric(DF$win_or_loss)-1 ##print(DF) ## Fit a logistic regression model: # lr = glm(win_or_loss_integer ~ game_index, data=DF, family=binomial) print(summary(lr))