Correlation matrix with significance

#1
Does anyone have a ready-made function or know a way to produce a correlation matrix with asterisks marking significance levels in R?