Foro de debate

Función para hacer eficiente un proceso de cálculo

Función para hacer eficiente un proceso de cálculo

de Aída Otálora-Ardila -
Número de respuestas: 0

Hola!

Uso R 3.1.0 en Mac.
Tengo una tabla de 100 filas bajo el siguiente formato

H1 H3 H5 H7 H9 H11
1 -78.47 -373.749 91.387 -4.597 91.387 -176.471
2 91.387 -78.478 -41.510 -4.597 -373.747 -41.510
.............
100 -373.769 -373.747 -78.478 -373.747 -41.515 -78.477

Debo extraer los valores de cada fila y emplear esos 6 valores para calcular un área bajo la curva y así obtener 100 valores de áreas bajo la curva. Lo que he intentado es lo siguiente
f1<-(pr2 [1,])
f2<-(pr2 [2,])
.....
f100<-(pr2 [100,])

h<-c(1, 3, 5, 7, 9, 11)‪#‎horas‬

Af1<-auc(h,f1, from= 1, to=6, type="linear")‪#‎calcula‬ el área bajo la curva para los valores de la fila 1
Af2<-auc(h,f2, from= 1, to=6, type="linear")
.....
Af100<-auc(h,f100, from= 1, to=6, type="linear")

AreaC<-c(Af1,Af2....Af100)

Yo asumo que debe haber una manera más eficiente de hacer esto. Es decir, se puede generar una función que me permita extraer cada fila y posteriormente hacer el cálculo del área y obtener como resultado un vector con 100 valores correspondientes al área. El punto, es que no sé como hacerlo. ¿Alguien podría ayudarme y explicarme cómo hacerlo? Mil gracias por su atención!!