92 lines
697 B
Plaintext
92 lines
697 B
Plaintext
---
|
|
title: "Lesson 6"
|
|
format: html
|
|
---
|
|
|
|
|
|
|
|
|
|
```{r}
|
|
|
|
https://rs1.drwater.net
|
|
|
|
username:
|
|
- ruser01
|
|
- ruser02
|
|
- ruser03
|
|
- ruser04
|
|
- ruser05
|
|
- ruser06
|
|
|
|
RWEP2025
|
|
|
|
```
|
|
|
|
|
|
# 安装包
|
|
|
|
|
|
```{r}
|
|
install.packages("tidyverse")
|
|
|
|
x <- c(1:10, NA)
|
|
|
|
hist(x)
|
|
|
|
mean(x, na.rm = TRUE)
|
|
|
|
median(x, na.rm = TRUE)
|
|
|
|
sd(x, na.rm = TRUE)
|
|
|
|
|
|
for(i in 1:10){
|
|
print(i)
|
|
}
|
|
|
|
|
|
x + y + x * y
|
|
|
|
myfunc <- function(x, y = 3) {
|
|
x + y + x * y
|
|
}
|
|
|
|
|
|
myfunc(1, 2)
|
|
|
|
|
|
myfunc(10)
|
|
|
|
|
|
c(FALSE, 2, 1:3, 3)
|
|
|
|
c(FALSE, 2, 1:3, 3) > 1
|
|
|
|
all(c(FALSE, 2, 1:3, 3) > 1)
|
|
|
|
|
|
c(1L,2L,3L)
|
|
|
|
any(c(FALSE, 2, 1:3, 3) > 1)
|
|
|
|
|
|
x <- 10
|
|
|
|
sin(x) = ?
|
|
|
|
paste("sin(x) = ", sin(x), sep = " ")
|
|
|
|
paste0("sin(x) = ", sin(x))
|
|
|
|
|
|
substr("Monday", 1, 3)
|
|
|
|
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
|