R语言练习题

14使用rep()创建向量0 0 0 0 0 1 1 1 1 1 2 2 2 2 2 3 3 3 3 3 4 4 4 4 4
rep(0:4,rep(5,5))
15用函数rep()构造一个向量x,它由3个3,4个2,5个1构成
x=c(rep(3,3),rep(2,4),rep(1,5))
统计软件实验2
附录：数据：
1身高体重数据
weight height
4.17 1.75
5.58 1.8
5.18 1.65
6.11 1.9
4.5 1.74
4.61 1.91
5.17 1.75
4.53 1.8
5.33 1.65
5.14 1.9
4.81 1.74
17 1.91
4.41 1.75
3.59 1.8
5.87 1.65
set.seed(123)
norm <- rnorm(100,1,1)
min.norm <- 100
for(i in 1:100){
if(norm[i]<=min.norm){
min.norm=norm[i]
min.count=i
}
}
cat(min.norm,min.count)
6找出100次产生的长度为100、mean=1，sd=1的正态分布随机向量的最小值与出现位置的关系。(用plot(min.count,min.norm)表示，其中min.count为位置向量，min.norm为最小值向量)
factor.numeric
8创建一个2到50的向量,形式为2, 4, 6, 8, ..., 48, 50并名为为vector1
vector1 <- seq(from=2,to=50,by=2)
9选取vector1中的第20个元素
vector1[20]
10选取vector1中的第10，15，20个元素
Mtcars
Mtcars$vs<-学号后两位
mtcarsnew<-read.csv()
8把mtcars转换成矩阵mm并判断数据类型；把第六行改成你的“学号后两位”；取矩阵mm前11行存入变量mtcars11；取mtcars11的主对角线的元素，构成主对角阵mt；取mtcars11的上三角阵存入mtupper；(需要通过网络搜索学习上三角矩阵定义)
vector1[c(10,15,20)]
11选取vector1中的第10到20个元素
vector[10:20]
12选取vector1中值大于40的元素
vector1[vector1>40]
13创建向量1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5
rep(1:5,5)
5.根据cityrain数据作图。令Y轴范围（0,300），xaxt="n"，type="b",颜色为黑，X轴标题为“Month”,Y轴标题为“TokyoRainfall(mm)”，主标题“Monthly Rainfall in major cities”。用axis()函数添加X轴，使在X轴1到12的位置分别对应12个月份。
for(i in 1:100){
norm <- rnorm(100,1,1)
min.norm[i] <- 100
for(i in 1:100){
if(norm[i]<=min.norm[i]){
min.norm[i]=norm[i]
min.count[i]=i
}
}
}
plot(min.count,min.norm)
sum <- 0
for(i in 1:100){
if(i%%3==0|i%%5==0){
print(i)
sum <- sum+i
}
}
print(sum)
5定义一个长度为100、mean=1，sd=1的正态分布随机向量，并找出该向量的最小值及其出现的位置。rnorm（n,mean,sd），种子设为123
3.83 1.9
6.03 1.74
4.89 1.91
4.32 1.75
4.69 1.8
统计软件实验3
1数据的读取（数据见附录）
data<-read.table("路径/t.data.txt",header=T)
2绘图
plot(height, weight)#绘图
3更改绘图的参数的取值
例如：plot(height, weight, pch=2)#更改后的绘图
7
Calculate the first 50 powers of 2, 2*2, 2*2*2, etc.
Calculate the squares of the integer numbers from 1 to 50.
Which pairs are equal, i.e. which integer numbers fulfill the condition .
print(I)
2
while (i<=100) {
sum <- sum+i
i <- i+1
}
print(sum)
3
repeat{
if(i%%2!=0)sum <- sum+i
i <- i+1
if(i>100)break
}
print(sum)
2使用while循环求1+2+3+…+100的和。
i <- 1
How many pairs are there?(Use R to solve all these questions!)
(思考使用循环和不使用循环两种方式解答)
sum=0
for(i in 1:100)
if(2^i==i^2){
sum=sum+1
print(i)
}
cat("sum=",sum)
n=c(1:50)
colnames(mtupper)<-NULL
rownames(mtupper)<-NULL
colnames(mtupper)<-NULL
rownames(mtupper)<-NULL
colnames(mtupper)<-NULL
10.mtupper每一行求和，存入mtsum。
mtsum<-apply(mtupper,MARGIN=1,FUN=sum)
4.53 1.8
5.33 1.65
5.14 1.9
4.81 1.74
4.17 1.91
4.41 1.75
3.59 1.8
5.87 1.65
3.83 1.9
6.03 1.74
4.89 1.91
4.32 1.75
4.69 1.8
统计软件实验4
1使用三种循环，输出向量1:100中所有数据。
1
for (I in 1:100)
axis(1,at=1:12,labels = rain$Month)
4.在[0,4pi]画sin(x),cos(x)(在同一个图象中); 其中sin(x)和cos(x)图象用不同的颜色和形状表示，并在函数图上适当的位置标注“箭头+y=sin(x)”,“箭头+y=cos(x)”,标记x轴,y轴,标题为“正弦余弦函数图象”.
mm<-as.matrix(mtcars);class(mm)
mm[6,]<-学号后两位
mtcars11(mtcars11<-head(mtcars,11))
mt(mt<-diag(diag(mtcars11)))
mtupper(x[lower.tri(x)]<-0;mtupper<-x)
x[lower.tri(x)]<-0
plot(sin,0,4*pi,main="正弦余弦函数图像",xlab="x轴",ylab="y轴",col="red",type="b",pch=18)
curve(cos,0,4*pi,col="blue",type="b",pch=1,add=T)
arrows(3.3,0.8,2.3,0.8)
a=2^n
b=n^2
x=a-b
n[x==0]
sum(x==0)
n=c(1:50)
a=2^n
b=n^2
x=a-b
n[!((x>0)|(x<0))]
sum(!((x>0)|(x<0)))
x<- read.table("x.txt",header=T);x
class(x);x <- as.numeric(x$x);x
7查看mtcars数据（mtcars回车）；把vs变量所在列的元素全都改成你的“学号后两位”（mtcars$vs<-7）；把mtcars存为mtcars.csv文件；读入mtcars.csv文件存入mtcarsnew；
text(3.8,0.8,"sin(x)")
arrows(10.8,0.8,11.8,0.8)
text(10,0.8,"cos(x)")
例如：
附录：数据：
1身高体重数据
weight height
4.17 1.75
5.58 1.8
5.18 1.65
6.11 1.9
4.5 1.74