# 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
Llicència
Jo, el titular dels drets d'autor d'aquest treball, el public sota la següent llicència:
compartir – copiar, distribuir i comunicar públicament l'obra
adaptar – fer-ne obres derivades
Amb les condicions següents:
reconeixement – Heu de donar la informació adequada sobre l'autor, proporcionar un enllaç a la llicència i indicar si s'han realitzat canvis. Podeu fer-ho amb qualsevol mitjà raonable, però de cap manera no suggereixi que l'autor us dóna suport o aprova l'ús que en feu.
compartir igual – Si modifiqueu, transformeu, o generareu amb el material, haureu de distribuir les vostres contribucions sota una llicència similar o una de compatible com l'original
Aquest fitxer conté informació addicional, probablement afegida per la càmera digital o l'escàner utilitzat per a crear-lo o digitalitzar-lo. Si s'ha modificat posteriorment, alguns detalls poden no reflectir les dades reals del fitxer modificat.