While the OP turned out to want to transpose his data, for those who are
reading and would like some (ugly) code to flip a tensor about an
arbitrary axis, here goes:
*_* Carl
#my own cheap matrix flipflopper
flip<-function(x,flipdim=1) {
#axis is index, so 1 is rows, 2 is cols (for matrix)
#sanity check
if (flipdim > length(dim(x))) stop("Dimension selected exceeds dim of
input")
a <-"x["
b<-paste("dim(x)[",flipdim,"]:1",collapse="")
d <-"]"
# want lead and follow to be a single vector
#now the trick: get the right number of commas
lead<-paste(rep(',',(flipdim-1)),collapse="")
follow <-paste(rep(',',(length(dim(x))-flipdim)),collapse="")
thestr<-paste(a,lead,b,follow,d,collapse="")
flipped<-eval(parse(text=thestr))
return(invisible(flipped))
}
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
