## -----------------------------------------------------------------------------
v <- 1:30


## -----------------------------------------------------------------------------
m <- matrix(v, nrow=10)
d <- as.data.frame(m)
a <- apply(d, 1, mean)
head(a)


## -----------------------------------------------------------------------------
head(apply(as.data.frame(matrix(v, nrow=10)), 1, mean))


## -----------------------------------------------------------------------------
x <- v |>
		matrix(nrow=10) |>
		as.data.frame() |> 
		apply(MARGIN=1, FUN=mean)

head(x)


## -----------------------------------------------------------------------------
v |> matrix(nrow=10) |>  as.data.frame() |>  apply(MARGIN=1, FUN=mean) |> head()