# NOT RUN {
library(equSA)
data(SR0)
data(SR0_mat)
subSR0 <- SR0[1:10,1:10]
subSR0_mat <- SR0_mat[1:10,1:10]
solcov(subSR0, subSR0_mat)
# }
# NOT RUN {
# }
# NOT RUN {
# library(equSA)
# data(SR0)
# data(SR0_mat)
# solcov(SR0, SR0_mat)
# }
Run the code above in your browser using DataLab