Erklärung dieser Funktion, die diag() in R zurückgibt

Question

warum das? y <- min(dim(x))?

Ich versuchte diesen Code ohne diese c <- vector() und bekam 25 (c <- x[i,i] war in der Schleife. Using c[i] in der Schleife gab mir einen Fehler).

x <- matrix(1:25, 5,5) 
> diag(x) 
> n <- function(x){ 
    y <- min(dim(x)) 
    c <- vector() 
    for(i in 1:y){ 
     c[i] <- x[i,i] 
    } 
    c 
} 
> n(x) 

Answer 1

Die y <- min(dim(x)) wird verwendet, um die kleinere Dimension der Matrix zu bestimmen. Unter Verwendung von y wird die Anzahl der Iterationen der for-Schleife so festgelegt, dass sie dieser Dimension der Matrix entspricht. Dann wird [i,i] verwendet, um auf die diagonalen Elemente zuzugreifen.

In Ihrem Beispiel ist die Matrixgröße 5x5, also sind beide Dimensionen gleich. Also, für y 5, Sie Schleife mit i von 1 bis 5. Jetzt, da Sie [i,i] für die Matrix-Indizes verwenden, erhalten Sie [2,2] nach [1,1]. Im Wesentlichen wählt die [i,i] die Elemente, wenn sowohl die Zeilennummer als auch die Spaltennummer den gleichen Wert haben.

Wenn Sie die c <- vector() entfernen, wird c als eine einzelne Variable behandelt, und daher c[i] löst einen Fehler aus. Beachten Sie auch, dass der Wert c immer überschrieben wird und Sie daher beim Verlassen der Schleife den letzten Wert erhalten, der in diesem Fall 25 ist.