Как добавить линии регрессии в матрицу диаграммы рассеяния? У меня есть следующий скрипт:
NewNEMSIS = read.csv("NewNEMSIS.csv")
library(gclus)
newmatrix = NewNEMSIS[,2:5]
newmatrix.r = abs(cor(newmatrix))
newmatrix.col = dmat.color(newmatrix.r)
area = NewNEMSIS$area
cpairs(newmatrix[which(area=="A"),c('Response','SceneToPatient','TotalScene','TotalCall')], panel.colors=newmatrix.col, gap=.5, main="Scatterplot Matrix of City A Times", ylim=c(0,60), xlim=c(0,60), na.omit=TRUE, )
Как я могу добавить сплайновые или наклонные линии регрессии к этим диаграммам рассеяния, сохранив их в матричной форме? Спасибо!