a=c(107.4,105.0,106.0,105.4,106.5,107.1,103.8,105.1,105.8,108.3,
    105.0,106.3,102.5,101.3,104.9,105.6,100.8,105.8,103.2,113.0,
    106.0,102.5,105.0,100.1,102.6,107.9,101.3,101.9,102.1,105.8,
    105.4,101.3,100.1,104.9,104.2,105.8,101.8,103.5,102.4,102.9,
    106.5,104.9,102.6,104.2,106.0,106.6,98.3,101.1,105.6, 103.9,
    107.1,105.6,107.9,105.8,106.6,107.9,104.6,103.8,106.2,101.5,
    103.8,100.8,101.3,101.8,98.3 ,104.6,103.4,100.8,NA   ,103.2,
    105.1,105.8,101.9,103.5,101.1,103.8,100.8,103.5,103.7,98.5,
    105.8,103.2,102.1,102.4,105.6,106.2,NA   ,103.7,105.1,99.5,
    108.3,113.0,105.8,102.9,103.9,101.5,103.2,98.5, 99.5, 107.5)
b=matrix(a,nrow=10)

b[7,9]=mean(b[7,],na.rm=T)

b[9,7]=b[7,9]

corrmat=cor(b)

dimnames(corrmat)=list(c("kuzma","ingram","hart","ball","pope","lebron","mcgee","stephenson","chandler","rondo"))

eigen(corrmat)