Legend('topright', legend = c('Truth', 'OLS'), col = c('red', 'black'), lty = 1) Text(1, 1, expression(paste('True model: ', y = x + 1)),
Text(-0.5, 4.5, 'This is the outlier', cex = 2, col = 'steelblue', Title('Draw Plots Before You Fit A Regression', family = 'bell') Xlab = 'X variable', ylab = 'Y variable', family = 'gochi') Op = par(cex.lab = 2, cex.axis = 1.5, cex.main = 2) # Open a graphics device if you want, e.g. # Tell showtext the resolution of the device, # Automatically use showtext to render text for future devices Font_add_google('Covered By Your Grace', 'grace')
