统计计算与数据挖掘和统计软件作业代码

第一部分 统计软件作业代码

knn算法

library(lattice)

library(grid)

library(DMwR)

idxs

trainIris

testIris

nn3

table(testIris[,'Species'],nn3)

nn5

table(testIris[,'Species'],nn5)

作业

f

n1

for(i in 1:n)

if(n1[i]>100){

n1[i]

if(n1[i]

n1[i]

n2

for(i in 1:n)

if(n2[i]>100){

n2[i]

if(n2[i]

n2[i]

n3

for(i in 1:n)

if(n3[i]>100){

n3[i]

if(n3[i]

n3[i]

u

for(i in 1:n)

if(u[i]

else

b

a

names(a)

print(a)

write.table(a,file = "score.txt")

}

f(66)

#第2题

m

a

m

names(m)

m

#第三题

m$生物[m$生物>=70]

b

m

names(m)

m

b1

m

m

#第四题

n

a1

a2

a3

a4

a5

a

m

names(m)

m

#求积分

f

for(i in 1:n)

x[i]

y

plot(x,y)

z

print(z)

}

f(10000)

统计计算与数据挖掘作业代码

混合同余随机数发生器

lcg=function(n=25,m=7,a=3,c=5,x0=0){

x=vector(mode="numeric",length=0)

for (i in 1:(n+1)){

if (i==1){

else

}

list(x[-1]/m)

}

a1

a1

乘同余随机数生成器

lcg=function(n=25,m=7,a=3,c=5,x0=0){

x=vector(mode="numeric",length=0)

for (i in 1:(n+1)){

if (i==1){

else

}

list(x[-1]/m)

}

b1

b

names(b)

hist(b$v1,freq =F)

lines(density(b$v1),col=2)

各种随机数

l1

hist(l1,freq = F)

lines(density(l1),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

l3

hist(l3,freq = F)

lines(density(l3),col="blue")

hist(l,freq = F)

lines(density(l),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

l2

hist(l2,freq = F)

lines(density(l2),col="blue")

逆变换

g

u

for(i in 1:n)

if(u[i]

else

print(u)

扫一扫上方二维码添加我的微信公众号或者微信搜索：你的必修课，你的疑惑将得到解决。

代码文件已经上传，有不懂或者代码有误的大家可以后台私聊我，小编会尽力给大家解答与改正！希望大家可以帮我推荐！