
Debugging and Profiling 283
Browse[1]>
debug: Dim = dim(x)
Browse[1]>
debug: nDim = length(Dim)
Browse[1]> Dim
[1] 2 2
Browse[1]>
debug: Names = names(x)
Browse[1]> nDim
[1] 2
Browse[1]>
debug: if (nDim > 0) DimNames = dimnames(x)
Browse[1]> Names
[1] "a" "b" "c" "d"
Browse[1]>
debug: x = as.vector(x, mode)
Browse[1]>
debug: names(x) = Names
Browse[1]> x
[1] 1 2 3 4
Browse[1]>
debug: if (nDim > 0) {
dim(x) = Dim
dimnames(x) = DimNames
}
Browse[1]> x
a b c d
1 2 3 4