# 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_t_ajust.svg")# Desar el diagrama en un fitxer tipus svgplot(PAD_LM,which=3)# Diagrama de dispersió dels residus tipificatsdev.off()# Tancar i desar el diagrama
רישיון
אני, בעל זכויות היוצרים על עבודה זו, מפרסם בזאת את העבודה תחת הרישיון הבא:
ייחוס – יש לתת ייחוס הולם, לתת קישור לרישיון, ולציין אם נעשו שינויים. אפשר לעשות את זה בכל צורה סבירה, אבל לא בשום צורה שמשתמע ממנה שמעניק הרישיון תומך בך או בשימוש שלך.
שיתוף זהה – אם תיצרו רמיקס, תשנו, או תבנו על החומר, חובה עליכם להפיץ את התרומות שלך לפי תנאי רישיון זהה או תואם למקור.