r语言 技巧总结

1.table函数返回众数，再转为dataframe

as.data.frame(table(x))

2.使用which 返回数组下标

which(rs.list=="rs1008507")

3.循环数值存储

（1）

M<-matrix(NA,6,6)

for(i in 0:6){

if(i<=2)

{for(j in (2-i):(6-i)) M[i,j]<-{( i*0.5+(j+3)+(i+j-2)*0.5+(4-(i+j-2))+3)}}

else

{for(j in 0:(6-i)) M[i,j]<-{( i*0.5+j+3+(i+j-2)*0.5+(4-(i+j-2))+3)}}}

M

（2）

entropy_c = c()

for (x in data_ip$ip){

mid_frame <- data_ua[which(data_ua$ip == x),]$cnt

data_ua <- data_ua[-which(data_ua$ip == x),]

entropy_i <- entropy(data = mid_frame , method = "sample")

entropy_c <- c(entropy_c , entropy_i)

}

Datatest = Datatest[,-1]
就删除第一列
-2就删除第二列
依次类推
Datatest[-1,]就是删除第一行