练习1
下载并安装R软件：下载了R4.4.2
了解R的菜单：在 RGui
中，可以通过菜单栏访问基本的功能。文件菜单允许用户进行脚本的创建、打开、保存和退出程序等操作。编辑菜单提供了文本编辑的常用功能，如撤销、剪切、复制和粘贴。查看菜单让用户能够查看命令历史和当前工作空间中的对象。程序包菜单则涉及到R包的管理，包括安装、加载和卸载。窗口菜单帮助用户在不同的窗口间切换，如图形窗口和帮助窗口。最后，帮助菜单提供了访问R帮助文档的途径，用户可以在这里搜索特定的帮助主题或获取命令的帮助信息。这些菜单选项为用户提供了在RGui中进行数据分析和编程所需的基本工具。
练习2
options(repos = c(CRAN = "https://cloud.r-project.org/"))
# 安装程序包
setwd("D:/下载")
install.packages("vegan_2.6-8.zip", repos = NULL, type = "source")
## 将程序包安装入'C:/Users/33880/AppData/Local/R/win-library/4.4'
## (因为'lib'没有被指定)
install.packages("permute")
## 将程序包安装入'C:/Users/33880/AppData/Local/R/win-library/4.4'
## (因为'lib'没有被指定)
## 程序包'permute'打开成功，MD5和检查也通过
##
## 下载的二进制程序包在
## C:\Users\33880\AppData\Local\Temp\Rtmpkr80mk\downloaded_packages里
install.packages("lattice")
## 将程序包安装入'C:/Users/33880/AppData/Local/R/win-library/4.4'
## (因为'lib'没有被指定)
## 程序包'lattice'打开成功，MD5和检查也通过
## Warning: 无法删除软件包 'lattice' 的先前安装
## Warning in file.copy(savedcopy, lib, recursive = TRUE):
## 拷贝C:\Users\33880\AppData\Local\R\win-library\4.4\00LOCK\lattice\libs\x64\lattice.dll到C:\Users\33880\AppData\Local\R\win-library\4.4\lattice\libs\x64\lattice.dll时出了问题：Permission
## denied
## Warning: 回复了'lattice'
##
## 下载的二进制程序包在
## C:\Users\33880\AppData\Local\Temp\Rtmpkr80mk\downloaded_packages里
install.packages("vegan")
## 将程序包安装入'C:/Users/33880/AppData/Local/R/win-library/4.4'
## (因为'lib'没有被指定)
## 程序包'vegan'打开成功，MD5和检查也通过
##
## 下载的二进制程序包在
## C:\Users\33880\AppData\Local\Temp\Rtmpkr80mk\downloaded_packages里
# 调用程序包
library(vegan)
## 载入需要的程序包：permute
## 载入需要的程序包：lattice
## This is vegan 2.6-8
library(ape)
练习3
# 打开ape软件包的帮助文件
library(ape)
# 输入 ?plot.phylo
?plot.phylo
## 打开httpd帮助服务器… 好了
练习4
# 查看boxplot的帮助文件
install.packages("boxplot")
## 将程序包安装入'C:/Users/33880/AppData/Local/R/win-library/4.4'
## (因为'lib'没有被指定)
## Warning: package 'boxplot' is not available for this version of R
##
## A version of this package for your version of R might be available elsewhere,
## see the ideas at
## https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages
?boxplot
boxplot(count ~ spray, data = InsectSprays, col = "lightgray")
# 选项更改
boxplot(count ~ spray, data = InsectSprays, col = "red", xlab="spray", ylab="counts")
练习5
t.test.data<-read.table("D:/桌面/t.text.txt",header=T)
attach(t.test.data)
ratio<-weight/height^2
t.test(ratio)
##
## One Sample t-test
##
## data: ratio
## t = 6.8292, df = 5, p-value = 0.001027
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 0.0002221003 0.0004902294
## sample estimates:
## mean of x
## 0.0003561648
练习6
bac<-read.table("D:/桌面/test1.txt",header=T)
boxplot(day~type,data=bac,col="red")
ba.an<-aov(lm(day~type,data=bac))
summary(ba.an)
## Df Sum Sq Mean Sq F value Pr(>F)
## type 2 70.43 35.21 6.903 0.00379 **
## Residuals 27 137.74 5.10
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
练习7
numeric <- c(100, 200, 400, 600, 800)
factor.numeric <- as.factor(numeric)
factor.numeric
## [1] 100 200 400 600 800
## Levels: 100 200 400 600 800
练习8
vector1<-seq(from=2, to=50, by=2)
vector1[20]
## [1] 40
vector1[c(10,15,20)]
## [1] 20 30 40
vector1[10:20]
## [1] 20 22 24 26 28 30 32 34 36 38 40
vector1[vector1>40]
## [1] 42 44 46 48 50
练习9
getwd()
## [1] "D:/桌面"
setwd("d:/data")
练习10
source("D:/桌面/regression.r")
练习12
sqtest<-function(x, y)
{
z1=x^2;
z2=y^2;
z3=z1+z2;
z3
}