# make a quadrature scheme
Q <- quadscheme(runifrect(42))
# summarize it
summary(Q)
# save the summary
s <- summary(Q)
# print it
print(s)
s
# extract total quadrature weight
s$w$all$sum
Run the code above in your browser using DataLab