问题遇到的现象和发生背景
下边的代码是关于时空多维的矩阵数据扩容,对于计算矩阵的逆正交变换,找不到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"
我的解答思路和尝试过的方法
试图寻找可以计算矩阵逆正交变换的函数用于替代。
我想要达到的结果
与原来数据相差不大的重采样后的结果