R语言矩阵的逆正交变换的书写方式

问题遇到的现象和发生背景

下边的代码是关于时空多维的矩阵数据扩容，对于计算矩阵的逆正交变换，找不到x.recon.z<-z.i %*% t(var.pca)

问题相关代码，请勿粘贴截图

library(meboot)
x<-read.csv("C:\\Users\\zjr\\Desktop\\Ľ??\\data.csv")
reps<-100
trim.per<-10
x.scale<-scale(x)
fit.pca<-princomp(x.scale)
Y<-fit.pca[["scores"]]
varl.meboot<-meboot(Y[,1],reps=100,trim=0.25, elaps=TRUE)
x.recon.z<-z.i %*% t(var.pca)
xrep<-rescale(x.recon)

运行结果及报错内容

Elapsed time: 0 seconds.

x.recon.z<-z.i %*% t(var.pca)
Error: object 'z.i' not found
xrep<-rescale(x.recon)
Error in rescale(x.recon) : could not find function "rescale"

我的解答思路和尝试过的方法

试图寻找可以计算矩阵逆正交变换的函数用于替代。

我想要达到的结果

与原来数据相差不大的重采样后的结果