# \donttest{
# Example with simulated data
n <- 25
p <- 50
Sigma0 <- diag(1, p)
X <- MASS::mvrnorm(n = n, mu = rep(0, p), Sigma = Sigma0)
res <- bspcov::thresPPP(X, eps=0.01, thres=list(value=0.5,fun='hard'), nsample=100)
est <- bspcov::estimate(res)
# Basic plot
plot(est)
# Plot with custom color scheme
plot(est, color_low = "blue", color_high = "red")
# }
Run the code above in your browser using DataLab