data(burt)
eigen(burt)$values #one is negative!
burt.new <- burt
burt.new[2,3] <- burt.new[3,2] <- .81
eigen(burt.new)$values #all are positive
bs <- cor.smooth(burt)
round(burt.new - bs,3)
Run the code above in your browser using DataCamp Workspace