Может ли кто-нибудь помочь мне в вычислении высоты и наклона набора данных в R с помощью простого кодирования

Question

 library("labdsv", lib.loc="~/R/win-library/3.6")
> library("permute", lib.loc="~/R/win-library/3.6")
> library("mgcv", lib.loc="C:/Program Files/R/R-3.6.2/library")
> library("nlme", lib.loc="C:/Program Files/R/R-3.6.2/library")
> library("fso", lib.loc="~/R/win-library/3.6")
> attach(feeds)

Следующие объекты маскируются из каналов (pos = 8):

created_at, entry_id, hum, pm10, pm2_5, temp

> data<-feeds
> data[1208,]<-c(NA)
> data[,6]<-c(NA)
> any(is.na(data))
[1] TRUE
> data<-data[-1208,]
> data<-data[,-6]
> any(is.na(data))
[1] FALSE
> data.bc <- vegdist(data[,3:5])
> data.bcsqrt<-vegdist(sqrt(data[,3:5]))
> pm10.fso<-fso(pm10,data.bc)
Error in sim %*% a : non-conformable arguments
>