From base::diag().

diag(x) <- value

Arguments

x

If yac_symbol treat as such, else call base::diag<-().

value

New value for diag(x)