Closed briandk closed 13 years ago
Consider the original code in granova.contr:
segments(mean(Xconss[, i][Xconss[, i] < 0]), mean(resp[Xconss[, i] < 0]), mean(Xconss[, i][Xconss[, i] > 0]), mean(resp[Xconss[, i] > 0]), lwd = 2, lty = 6, col = 4)
Consider the original code in granova.contr: