just adding the missing "df3 <- matrix(rnorm(200), ncol = 8, nrow = 25)"
also normalising spacing around "="