> source("ex60_sorting.R") > sort(c(3,1,2)) [1] 1 2 3 > debug(sort) > sort(c(3,1,2)) debugging in: sort(c(3, 1, 2)) debug bei ex60_sorting.R#4:{ n <- length(A) C <- numeric(k) B <- numeric(n) for (i in 1:n) C[A[i]] <- C[A[i]] + 1 for (i in 2:k) C[i] <- C[i] + C[i - 1] for (i in 1:n) { B[C[A[i]]] <- A[i] C[A[i]] <- C[A[i]] - 1 } return(B) } attr(,"srcfile") ex60_sorting.R Browse[2]> debug bei ex60_sorting.R#5:n <- length(A) Browse[2]> debug bei ex60_sorting.R#6:C <- numeric(k) Browse[2]> debug bei ex60_sorting.R#7:B <- numeric(n) Browse[2]> debug bei ex60_sorting.R#8:for (i in 1:n) C[A[i]] <- C[A[i]] + 1 Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 0 C = 0 0 0 Browse[2]> debug bei ex60_sorting.R#9:for (i in 2:k) C[i] <- C[i] + C[i - 1] Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 0 C = 1 1 1 Browse[2]> debug bei ex60_sorting.R#10:for (i in 1:n) { B[C[A[i]]] <- A[i] C[A[i]] <- C[A[i]] - 1 } Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 0 C = 1 2 3 Browse[2]> debug bei ex60_sorting.R#10:i Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 0 C = 1 2 3 Browse[2]> debug bei ex60_sorting.R#12:B[C[A[i]]] <- A[i] Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 0 C = 1 2 3 Browse[2]> debug bei ex60_sorting.R#13:C[A[i]] <- C[A[i]] - 1 Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 3 C = 1 2 3 Browse[2]> debug bei ex60_sorting.R#10:i Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 3 C = 1 2 2 Browse[2]> debug bei ex60_sorting.R#12:B[C[A[i]]] <- A[i] Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 0 0 3 C = 1 2 2 Browse[2]> debug bei ex60_sorting.R#13:C[A[i]] <- C[A[i]] - 1 Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 1 0 3 C = 1 2 2 Browse[2]> debug bei ex60_sorting.R#10:i Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 1 0 3 C = 0 2 2 Browse[2]> debug bei ex60_sorting.R#12:B[C[A[i]]] <- A[i] Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 1 0 3 C = 0 2 2 Browse[2]> debug bei ex60_sorting.R#13:C[A[i]] <- C[A[i]] - 1 Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 1 2 3 C = 0 2 2 Browse[2]> debug bei ex60_sorting.R#15:return(B) Browse[2]> cat("A =", A, "\tB =", B, "\tC =", C, "\n") A = 3 1 2 B = 1 2 3 C = 0 1 2 Browse[2]> exiting from: sort(c(3, 1, 2)) [1] 1 2 3