- a_nor<-matrix(0,nrow=195,ncol=195)
- b_nor<-matrix(0,nrow=195,ncol=195)
- for(i in 1:195){
- sum_count<-0
- for(j in 1:195){
- if(matrix_combine[i,j]==1){
- a[i,j]<-sum(E_t[i,]*E_t[j,])/sqrt((sum(E_t[i,]^2)*sum(E_t[j,]^2)))
- sum_count<-sum_count+1}
- else{ a[i,j]<-0}}
- ##normalise a[i,]
- for(k in 1:195){
- test<-(a[i,k]-min(a[i,]))/(max(a[i,])-min(a[i,]))
- a_nor[i,k]<-test}
- for(j in 1:195){
- if(matrix_combine[i,j]==1){
- b[i,j]<-sum(E_c[i,]*E_c[j,])/sqrt((sum(E_c[i,]^2)*sum(E_c[j,]^2)))}
- else{ b[i,j]<-0}}
- ##normalise b[i,]
- for(k in 1:195){
- b_nor[i,k]<-(b[i,k]-min(b[i,]))/(max(b[i,])-min(b[i,]))}
- sim_ij[i,]<-k*a_nor[i,]+(1-k)*b_nor[i,]
- vertex_sample<-order(sim_ij[i,],decreasing=T)[1:sqrt(sum_count)]
- cat(vertex_sample,"\n",file="d:\\vectex_sample.txt",append=T)}
然后R给我一个错误提示
- Error in simple_vs_index(x, ii, na_ok) : Unknown vertex selected
但是我感觉我写的没有这样的一个simple_vs_index(x, ii, na_ok)函数啊 它提示的错误出现在什么地方 我应该怎么改正?
希望大家能够给我一些提示与帮助 谢谢!


雷达卡



京公网安备 11010802022788号







