print('Today is ');Sys.Date();print('欢迎你，哥们！！！')
print('Now is ');Sys.time();print('欢迎您，哥儿们！！！')

加音2法
library(beepr)
lycb<-beep
for (i in 1:11) {lycb(i);lyc(i/2)}
#(0)表示随机发出其中一个声音，beep(1)表示发出第一个声音。
#https://www.bilibili.com/read/cv16171897/
library(BRRR)
lycbr<-skrrrahh
for (j in 1:13) {lycbr(0);lyc(j/2)}
#if(!require(devtools)) {install.packages("devtools")}
#devtools::install_github("brooke-watson/BRRR")

1. 针对教材第3章，各班根据相应内容分别产生数值型、字符型向量变量（元素不少于5个）；在此基础上，生成元素不少于100个的向量变量，并组合成数据框变量（不少于100行3列）；应化01班——第3章第1节（3.1），应化02班——3.2节，应化3班——3.3 + 3.4节。
2. 在R软件上逐步生成(10~99)*i 的随机整数100个，对该数据向量进行描述性统计分析，并对其进行正态分布的检验分析，提供最终包含代码界面图形的效果图至少2张。
注：i 是学号最后两位数除13得到的余数。
===========================================================
以老师提供的美国环境数据集为基础，提取相关数据子集，绘出该数据集的直方图、饼图，并且按照课堂的标准要求绘出线点图（要求绘出一元线性回归曲线并在图中标出回归方程）。
对美国环境数据集相关子集提取的要求：
每个同学提取美国一个州的数据，对所在的州只取一个化学指标结果（如：NO2,O3,SO2,CO中选一个）产生数据子集；
===========================================================
针对各组提取章节内容（不少于500字），生成字符串变量；在此基础上，根据jiebaR包将该变量转换成词汇数据集；
最后，结合wordcloud2包，将上述数据集转换为词云，词云形状为：星形、三角形、五边形、心形、矩形。必须提供代码截屏图和词云图。
注：各班章节提取要求：应化01班：第一章
应化02班：第二章
应化03班：第四章
各班按顺序对应，内容可以进行归纳，各班内容不要重复，词云形状不要重复。
===========================================================