ANOVA year older

f.R

install.packages("extrafont")
install.packages("extrafontdb")

library(extrafont)
library(extrafontdb)
library(ggplot2)

# make sure to install the desired font in the computer at this point

# then:
font_import()
y
fonts()
fonttable()

# set graphical parameters up:
par(family = 'Patrick Hand', col = rgb(0,0,0,0.3), pch = 16, col = 'black', cex = 1.5)

# draw plot
x <- seq(0, 5, length = 100)
curve(df(x, df1 = 5, df2 = 2), from = 0, to = 5, 
      ylab = "probability", 
      xlab = "F  distribution",
      main = "ANOVA year older")

# return to par original settings
dev.off()

# resources
# https://github.com/wch/extrafont
# https://stackoverflow.com/questions/29546295/f-distribution-in-r