DEPARTAMENTO DE CIENCIAS BÁSICAS ÁREA DE ESTADÍSTICA ESTADÍSTICA INGENIA CIVIL TALLER REGRESION LINEAL NOMBRE: Erika Johana Rojas Duar! " Car#os $a%i&n An'u#o An'u#o S&!n( $EC)A:**+, -!%r!ro 1.
%.
Se realizó realizó un estudio estudio en Virgin Virginia ia Tech Tech para determinar determinar si ciertas ciertas medidas medidas de la fuerza fuerza estática estática del brazo Influyen en las características de “leantamiento dinámico! de un indiiduo. Veinticinco Veinticinco indiiduos se Sometieron a pruebas de fuerza y luego se les pidió "ue hicieran una prueba de leantamiento de peso# en el "ue el peso se eleaba en forma dinámica por encima de la cabeza. $ continuación se presentan los datos.
Individual
Fuerza del brazo, .
Levantamiento dinámico, /
1 % & ' ( ) * + , 111 1% 1& 1' 1( 1) 1* 1+ 1, %%1 %% %& %' %(
1*.& 1,.& 1,.( 1,.* %%., %&.1 %).' %).+ %*.) %+.1 %+.% %+.* %,.%,.) %,., %,., &-.& &1.& &).&,.( '-.' ''.& ''.) (-.' ((.,
*1.* '+.& ++.& *(.,1.* 1--.*&.& )(.*(.++.& )+.& ,).* *).* *+.& )-.*1.* +(.+(.++.& 1--.1--.1--.,1.* 1--.*1.*
a9 0sti 0stime me los los alo alore ress de la pendiente y el punto de corte para la cura de regresión
ineal
y =bx + a
b9 4rafi"ue los residuales en comparación con las x :fuerza del del braz brazo o9. 6ome 6oment ntee los los resultados.
os fabricant fabricantes es del auto auto e/us han han aumentado aumentado continu continuamen amente te sus entas entas desde desde el lanzamie lanzamiento nto "ue hicieron en 0stados nidos en 1,+,. 2o obstante# el porcenta3e de aumento cambió en 1,,) cuando e/us introdu3o una línea de camiones. as entas del e/us de 1,,) a %--( se muestran en la tabla siguiente.
a. 4rafi"ue los datos usando una gráfica de dispersión. 56ómo describiría usted la relación entre a7o y
entas del e/us8
DEPARTAMENTO DE CIENCIAS BÁSICAS ÁREA DE ESTADÍSTICA INGENIA CIVIL
b. 0ncuentre la recta de regresión de mínimos cuadrados "ue relacione las entas del e/us con el a7o
"ue se mide.
c. Si usted tuiera "ue predecir las entas del e/us en el a7o %-1(# 5"u; problemas podrían surgir con su
predicción8
&.
$ continuación eamos el porcenta3e de ó/ido de aluminio# el porcenta3e de ó/ido de hierro y el porcenta3e de ó/ido de magnesio en cinco muestras recolectadas en $shley
a.
0ncuentre los coeficientes de correlación "ue describan las relaciones entre el contenido de ó/ido de hierro y el de magnesio# y entre el ó/ido de aluminio y el de magnesio.
DEPARTAMENTO DE CIENCIAS BÁSICAS ÁREA DE ESTADÍSTICA INGENIA CIVIL
b. 0scriba una oración "ue describa las relaciones entre estos tres productos "uímicos y las muestras de
alfarería. =0l coeficiente de correlación aria de un elemento a otro
'.
os siguientes son algunos de los datos contenidos en un con3unto clásico denominado “datos piloto de graficacion! "ue aparecen en Fitting Equations to Data # de >aniel y ?ood# publicado en 1,*1. a respuesta y es el contenido de ácido del material determinado por análisis olum;trico@ mientras "ue el regresar x es el contenido de ácido organico determinado por e/traccion y ponderacion. a)
b)
4rafi"ue los datos@ 5la regresión lineal simple parece un modelo adecuado8
Aaga un a3uste de regresión lineal simple@ calcule la pendiente y la intersección.
DEPARTAMENTO DE CIENCIAS BÁSICAS ÁREA DE ESTADÍSTICA INGENIA CIVIL
c9 4rafi"ue la recta de regresión en la gráfica del inciso a.
DEPARTAMENTO DE CIENCIAS BÁSICAS ÁREA DE ESTADÍSTICA INGENIA CIVIL
fuerzadelbrazo B= c:1*.,.,.(#1,.*#%%.,#%&.1#%).'#%).+#%*.)#%+.1#%+.%#%+.*#%,.-#%,.)#%,.,#%,.,#&-.&#&1.&#&).-#&,.(#'-. '#''.&#''.)#(-.'#((.,9 leantamientodinamico B= c:*1.*#'+.&#++.&#*(.-#,1.*#1--.-#*&.&#)(.-#*(.-#++.&#)+.&#,).*#*).*#*+.&#)-.-#*1.*#+(.-#+(.-#++.--.-#1 --.-#1--.-#,1.*#1--.-#*1.*9 regresion B= lm:leantamientodinamico C fuerzadelbrazo9 plot :leantamientodinamico# fuerzadelbrazo# /lab D EfuerzadelbrazoE# ylab D EleantamientodinamicoE9 a7o B=c:1,,)#1,,*#1,,+#1,,,#%---#%--1#%--%#%--&#%--'#%--(9 Vmd B=c:+-#1--#1((#1+-#%1-#%%'#%&'#%)-#%++#&-&9 regresion B= lm:Vmd C a7o9 plot :a7o# Vmd# /lab D Ea7oE# ylab D EVmdE9 nueo.a7o B= data.frame:a7o D se":%--)# %-1(99 predict :regresion# nueo.a7o9 $l B=c:1*.*#1+.).*#1'.+#1,.19 Fe B=c:1.1%#1.1'#-.,%#%.*'#1.)'9 Gg B=c:-.()#-.)*#-.(&#-.)*#-.)-9 regresion B= lm:Gg C Fe9 regresion B= lm:Gg C $l9 cor:Gg# $l9 cor:Gg# Fe9 grasas B= read.table:EhttpHJJJ.uam.es3oser.berrenderodatos0dadKeso4rasas.t/tE# header D T<09 names:grasas9 pairs:grasas9 cor:grasas9 regresion B= lm:grasas C edad# data D grasas9 summary:regresion9 plot:grasasLedad# grasasLgrasas# /lab D E0dadE# ylab D E4rasasE9 abline:regresion9 nueas.edades B= data.frame:edad D se":&-# (-99 predict:regresion# nueas.edades9 y B=c:*)#)%#))#(+#++9 / B=c:1%&#((#1--#*(#1(,9 regresion B= lm:y C /9 regresion B= lm:y C /# data D y9
