modelr

3熱

1答えて

多項式の項のみが異なるモデルのrmseを比較する次のコードがあります。 library(tidyverse) data(mtcars) cv_mtcars = mtcars %>% crossv_kfold(k = 10) cv_mtcars %>% mutate(model1 = map(train, ~lm(disp ~ wt, data = .)), m

0熱

1答えて

repによるデータのグループ化、モデルのフィット、曲線の統合

時間が経つにつれて一連の点があり、これらの点に曲線を当てはめて、曲線の下の領域を探したいと思います。私はこれのようにすることができます： fit<-loess(mass ~ hour, df) f <- function(x) predict(fit,newdata=x) answer<-integrate(f, 0, 60)$value これまでのところ、良いですが、私の問題は、ポイント