mypreright128 = as.table(cbind(c(256:383), c(0:-255), rep(80, 256))) rownames(mypreright128) <- NULL colnames(mypreright128) <- c("V1", "V2", "V3") mypreakari3dr <- predict(mycmpakari3d, mypreright128) original <- mypreakari3dr %*% t(mycmpakari3d$rotation) original <- scale(original, center = FALSE, scale = 1 / mycmpakari3d$scale) original <- scale(original, center = -mycmpakari3d$center, scale = FALSE) myakarioriginalrights <- as.table(original) write.table(myakarioriginalrights , file="clipboard", sep="\t") |