R语言 win10 rstudio 0.99.902，r 3.3.0，制作热力图，老师给了四行代码，

Python017

R语言 win10 rstudio 0.99.902，r 3.3.0，制作热力图，老师给了四行代码，,第1张

不奇怪，你的老师没告诉你，上中国特色的网络要会功夫，不会功夫无法翻功夫墙。

第一步的意思是安装pheatmap包，第二步的意思是引用pheatmap库，第三步的意思是打开nprot.2009.97_for_heatmap.txt 文件中的数据并赋值到变量a，第四步，用pheatmap分析数据变量a。

R语言作业，求问代码怎么写

1)

set.seed(1)

n = 5000

gender = sample(c("f","m"),size = n, TRUE)

dechot = function(gender, type){

n = length(gender)

list = c(NA,n)

for (i in 1:n){

list[i] = switch(gender[i], "f"=type[1], "m"=type[2])

}

return(list)

}

type = c(0,1)

dechot(gender, type)

2)

set.seed(1)

n = 100000

A = floor(runif(n,0,n))

search = function(vector){

n = length(vector)

two = three = number = NA

for (i in 1:n){

if (vector[i]%%2 == 0)

two = rbind(two,vector[i])

if(vector[i]%%3 == 0)

three = rbind(three,vector[i])

}

two.new = two[-1]

three.new = three[-1]

n.two = length(two.new)

n.three = length(three.new)

n.six = length(two.new[two.new%%6 == 0])

number = n.two +n.three-n.six

return(list(c(two.new=two.new, three.new=three.new, number = number)))

}

result = search(A)

result$two.new

result$three.new

result$number