на самом деле я сделал это сам, я подвел код.itegral (sec (q)) dq каждому!увидимся
autoserch <- function(x,y){
znames <- names(y)
x<-as.matrix(x)
y<-as.matrix(y)
m <- length(y[1,])
n <-length(x[,1])
z <- matrix(0,n,m)
for (i in 1:length(x)){
if (isTRUE(x[i,1] %in% y[,1])) {
for(j in 1:length(y[,1])){
if(isTRUE(x[i,1]==y[j,1])){
z[i,] <- y[j,]
}
}
}
}
colnames(z)<-znames
print(z)
write.csv(z, file = "consulta_solicitada.csv")
}