n<-20
m<-10
x<-c( 1.190334, 1.262276, 1.471463, 1.490868, 1.498761 ,1.670699, 1.694675, 1.791388,
1.794547 ,1.807945)
a<-b<-0
integrand<-function(t){
m<-length(x)
(gamma(a+m)*prod(x-t))/((b+sum((R+1)*((x-t)^2)))^(a+m))
}
K<-integrate(integrand,lower=0,upper=min(x))
K
Error in integrate(integrand, lower = 0, upper = min(x)) :
evaluation of function gave a result of wrong length
In addition: Warning messages:
1: In x - t :
longer object length is not a multiple of shorter object length
2: In x - t :
longer object length is not a multiple of shorter object length
3: In (R + 1) * ((x - t)^2) :
longer object length is not a multiple of shorter object length