# Es crea la base de dades amb nombres aleatoris:set.seed(1)N=100U=rnorm(N)EDAT=50+rnorm(N)PAD=20+EDAT+U# Pressió arterial diastòlicaDADES_RLS=data.frame(PAD,EDAT)# Es crea la taula de dades# Regressío linal simple:PAD_LM=lm(PAD~EDAT,data=DADES_RLS)# S'estima el model de regressió linealsvg("gra/reg_ls_dgr_resid_ajust.svg")# Desar el diagrama en un fitxer tipus svg# Diagrama de dispersió dels valors ajustats sobre els residusplot(PAD_LM,which=1,main="Diagrama de dispersió dels residus sobre els valors ajustats")dev.off()
רישיון
אני, בעל זכויות היוצרים על עבודה זו, מפרסם בזאת את העבודה תחת הרישיון הבא:
ייחוס – יש לתת ייחוס הולם, לתת קישור לרישיון, ולציין אם נעשו שינויים. אפשר לעשות את זה בכל צורה סבירה, אבל לא בשום צורה שמשתמע ממנה שמעניק הרישיון תומך בך או בשימוש שלך.
שיתוף זהה – אם תיצרו רמיקס, תשנו, או תבנו על החומר, חובה עליכם להפיץ את התרומות שלך לפי תנאי רישיון זהה או תואם למקור.