#```{r setup, include=FALSE}
#knitr::opts_chunk$set(echo = TRUE,cache = TRUE,cache.path="/home/max/Documents/R_for_data_science/cache/")
#```
#```{r read.data,cache.extra = file.info("test_data.csv")}
#library(tidyverse)
#d<-read_csv("test_data.csv")
#```
#```{r lm, dependson="read.data"}
#md<-lm(data = d,V1~V2+V3+V4)
#summary(md)
#```
library(tidyverse)
## Warning: replacing previous import by 'tidyr::%>%' when loading 'broom'
## Warning: replacing previous import by 'tidyr::gather' when loading 'broom'
## Warning: replacing previous import by 'tidyr::spread' when loading 'broom'
## ── Attaching packages ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
## ✔ ggplot2 2.2.1 ✔ purrr 0.2.4
## ✔ tibble 1.4.1 ✔ dplyr 0.7.4
## ✔ tidyr 0.8.0 ✔ stringr 1.2.0
## ✔ readr 1.1.1 ✔ forcats 0.3.0
## ── Conflicts ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
d<-read_csv("test_data.csv")
## Warning: Missing column names filled in: 'X1' [1]
## Parsed with column specification:
## cols(
## .default = col_double(),
## X1 = col_integer()
## )
## See spec(...) for full column specifications.
md<-lm(data = d,V1~V2+V3+V4)
summary(md)
##
## Call:
## lm(formula = V1 ~ V2 + V3 + V4, data = d)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.6355 -0.6657 0.0027 0.6849 3.4474
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.012142 0.009967 -1.218 0.223
## V2 -0.012741 0.009890 -1.288 0.198
## V3 0.008352 0.010062 0.830 0.407
## V4 -0.013880 0.010081 -1.377 0.169
##
## Residual standard error: 0.9966 on 9996 degrees of freedom
## Multiple R-squared: 0.0004294, Adjusted R-squared: 0.0001294
## F-statistic: 1.431 on 3 and 9996 DF, p-value: 0.2315