Soy nuevo programando en R y estoy haciendo un ejercicio en el que me piden crear una función, asumiendo que todas las columnas tienen valores numéricos y que cuentan con una fila llamada 'Medias' que contiene la media de cada una de las columnas, al introducir una matriz a esta función, me tiene que devolver la misma matriz pero con el doble de columnas, es decir, copiar las n columnas que tenga la matriz dada y añadirlo a la derecha de la matriz.
Además el valor de estas nuevas "copias" de las columnas tienen que tener el valor original menos la media de cada columna (que están recogidas en la fila 'Medias').
El dataframe con el que estoy haciendo las pruebas lo pueden obtener aquí:
state.df = as.data.frame(state.x77)
state.df = rbind(state.df,Medias=colMeans(state.df,na.rm = T))
Estoy un poco perdido en esto ya que he intentado hacer esto:
state.df2 = state.df #Para copiar el df
state.df3 = cbind(state.df,state.df2) #Unirlo y crear el df definitivo con el doble de columnas
Pero no se como restar en las columnas que van de la 9:16, el valor de la media de esa columna, y además meter esto en una función, ya que con las variables de arriba creo que solo funcionaría para state.df, pero no sirve para meterlo en una función.
Si alguien me pudiera ayudar estaría enormemente agradecido.