No Disconnect

dependent <- runif(100);
independent <- runif(100);
tmp<-lm(dependent ~ independent);
summary(tmp);
correlation <- tmp$coeff['independent'];
intercept <- tmp$coeff['(Intercept)'];
f <- summary(tmp)$fstatistic;
p_value <- 1-pf(f['value'], f['numdf'], f['dendf'])