>O<-matrix(c(1,4,7,1/4,1,5,1/7,1/5,1),3,3,byrow=T)
> U<-eigen(O)$vectors
> V<-eigen(O)$values
> lambda0<-max(V)#find the biggest feature value
Error in max(V) : 'type'(complex)参数不对
> u0=U[,which.max(V)]#max feature value objected max feature vector
Warning message:
In which.max(V) : 强制改变时丢弃了虚数部分
请教各位大神以上问题如何解决?
|