如何将梯形积分应用于R中的矩阵

Question

我是R中编码的新手，这可能是一个完整的初学者问题。如何将trapazoidal集成应用于导入的数据集？在使用实验数据之前，我一直在尝试基本功能。

    >x=c(0,1,2,3,4,5)
    >y=c(0,1,4,9,16,25)
    > A= data.frame(x,y)
    > A
    x  y
    1 0  0
    2 1  1
    3 2  4
    4 3  9
    5 4 16
    6 5 25
    >myfunct= function(n) {return(sum((y[-length(y)]+y[-1]))/2)}

此后我遇到问题

    >apply (A,c(0,1),myfunct)
    > [1] 42.5 42.5 42.5 42.5 42.5 42.5

我只需要输出一个值，如果可以或者我将如何做，我似乎无法找到更多。