# 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ó linealPAD_LM_RESID_E=rstandard(PAD_LM)# Es calculen els residu tipificatssvg("gra/reg_ls_dgr_qq_resid_t_edat_pad.svg")# Desar el diagrama en un fitxer tipus svgqqnorm(PAD_LM_RESID_E,# Crear el diagrama q-qylab="Residus tipificats",# Etiqueta de l'eix de les yxlab="Quantils de la llei normal",# Etiqueta de l'eix de les xmain="Diagrama q-q de normalitat")# Títol del gràficqqline(PAD_LM_RESID_E)# S'afegeix una línia de referènciadev.off()# Tancar i desar el diagrama
רישיון
אני, בעל זכויות היוצרים על עבודה זו, מפרסם בזאת את העבודה תחת הרישיון הבא:
ייחוס – יש לתת ייחוס הולם, לתת קישור לרישיון, ולציין אם נעשו שינויים. אפשר לעשות את זה בכל צורה סבירה, אבל לא בשום צורה שמשתמע ממנה שמעניק הרישיון תומך בך או בשימוש שלך.
שיתוף זהה – אם תיצרו רמיקס, תשנו, או תבנו על החומר, חובה עליכם להפיץ את התרומות שלך לפי תנאי רישיון זהה או תואם למקור.