源(' https://raw.githubusercontent.com/katzfuss-group/scaledVecchia/master/vecchia_scaled.R ') ##生成一些玩具数据 输入=矩阵(runif(200),ncol=2) y=sin(行总和(输入*5)) inputs.test=矩阵(runif(100),ncol=2) ##使用缩放的Vecchia估计参数并进行预测 fit=fit_scaled(y,输入) preds=预测_缩放(拟合、输入、测试) ##绘图结果 plot(行总和(inputs.test),preds)
图1:scaled_NN_illustration。 R(右) 图2:matern_comparison。 R(右) 图3:钻孔对比。 R(右) 图4以及表1和表3:testfun_comparison。 R(右) 图5和表2:satelliteDrag_comparison。 R(右)