体重が増えてきているのだろうか？

```{r}
weight <- c(75.45,75.55,74.80,74.90,74.95,75.15,75.55,75.65,74.95,74.95,75.95,75.55,75.60,75.15,75.15,75.45,75.40)
d <- 12:28
data <- data.frame(day = d, weight= weight)
```

```{r}
plot(data,type="l")
```

```{r}
result <- lm(weight ~ day, data=data)
plot(weight ~ day, data=data)
abline(result)
```