extract data from cor.test r code example

Example: get cor value out of cor.test r

Language: R
  test <- cor.test(data1, data2)
  estimate = test$estimate