<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=utf-8">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
 /* Font Definitions */
 @font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
        {font-family:Verdana;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0in;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
span.EstiloCorreo17
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#44546A;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page Section1
        {size:8.5in 11.0in;
        margin:70.85pt 85.05pt 70.85pt 85.05pt;}
div.Section1
        {page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1" />
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=ES link=blue vlink=purple>

<div class=Section1>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>rm(list = ls())  #borra todo lo anterior en memoria<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>setwd("G:/Public/Documents/R/EPICALC/")  #como se
llama la data desde su path<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>sanda<-read.csv("sandavid2.csv",header=TRUE,
sep=",", dec=".")<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>use(sanda)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>attach (sanda)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>library  (MASS)<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>label.cronbach <- label.var(p01, "¿Consume mucho pan?
")  ####¿Hay alguna manera de nombrarlos más fácil y menos trabajosa<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>label.cronbach <- label.var(p02, "¿Se enoja
usted?")<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>label.cronbach <- label.var(p03, "¿come mientras ve la
TV?")<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>label.cronbach <- label.var(p04, "¿Le gustan los
alimentos fritos? ")<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>label.cronbach <- label.var(p05, "¿descansa en la cama
despues de comer?    ")<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'>alpha(vars=c(p01:p05))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#44546A'><o:p> </o:p></span></p>

<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in'>

<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>De:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> Freddy Omar López
Quintero [mailto:freddy.vate01@gmail.com] <br>
<b>Enviado el:</b> Friday, September 27, 2013 5:55 PM<br>
<b>Para:</b> Dr. José A. Betancourt B.<br>
<b>CC:</b> r-help-es@r-project.org<br>
<b>Asunto:</b> Re: [R-es] RV: cronbach<o:p></o:p></span></p>

</div>

<p class=MsoNormal><o:p> </o:p></p>

<div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'>Hola,<o:p></o:p></span></p>

</div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'><o:p> </o:p></span></p>

</div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'>Todos
estamos muy bien, gracias.<o:p></o:p></span></p>

</div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'><o:p> </o:p></span></p>

</div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'>Con
respecto de tu consulta, creo que ofreces poca información para poder
reproducir o intentar emular tu inquietud (aunque en este grupo de voluntarios
hay gente muy hábil que seguramente podrá ayudarte mejor). Yo me pregunto, por
ejemplo: ¿cómo son tus datos originalmente?¿los estás leyendo de otro
programa?¿los tienes en un texto plano?¿podrías enviar una pequeña muestra de
ellos?¿por qué asignas a todas tus preguntas etiquetadas el nombre
'label.cronbach'?<o:p></o:p></span></p>

</div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'><o:p> </o:p></span></p>

</div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'>Hasta
luego.<o:p></o:p></span></p>

</div>

<div>

<p class=MsoNormal><span style='font-family:"Verdana","sans-serif";color:#000099'><o:p> </o:p></span></p>

</div>

</div>

<div>

<p class=MsoNormal style='margin-bottom:12.0pt'><o:p> </o:p></p>

<div>

<p class=MsoNormal>2013/9/27 Dr. José A. Betancourt B. <<a
href="mailto:jbetancourt@iscmc.cmw.sld.cu" target="_blank">jbetancourt@iscmc.cmw.sld.cu</a>><o:p></o:p></p>

<p class=MsoNormal style='margin-bottom:12.0pt'><br>
<br>
<br>
<br>
<br>
<br>
¿existe  algún método en el cual no sea necesario hacer este trabajo y que<br>
aparezcan los nombres de las preguntas?<br>
<br>
<br>
<br>
label.cronbach <- label.var(p01, "¿Le agrada el programa que se le ha<br>
mostrado? ")<br>
<br>
label.cronbach <- label.var(p02, "¿Cree que ayuda en el
aprendizaje?")<br>
<br>
label.cronbach <- label.var(p03, "¿Propicia el trabajo en el
equipo?")<br>
<br>
label.cronbach <- label.var(p04, "¿Propicia formular debates entre los<br>
alumnos? ")<br>
<br>
label.cronbach <- label.var(p05, "¿Permite vincular lo biológico con lo<br>
social?    ")<br>
<br>
label.cronbach <- label.var(p06, "Mediante esta simulación se demuestra
que<br>
las intervenciones en las comunidades tienen que ir más allá de lo<br>
biológico")<br>
<br>
label.cronbach <- label.var(p07, "Es de fácil manipulación")<br>
<br>
label.cronbach <- label.var(p08, "Se entienden bien los commandos
")<br>
<br>
label.cronbach <- label.var(p09, "Este y otros modelos  podrian
incluirse<br>
como herramienta de enseñanza")<br>
<br>
label.cronbach <- label.var(p10, "Se comprende bien el modelo")<br>
<br>
<br>
<br>
--<br>
<br>
Este mensaje le ha llegado mediante el servicio de correo electronico que
ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema
Nacional de Salud. La persona que envia este correo asume el compromiso de usar
el servicio a tales fines y cumplir con las regulaciones establecidas<br>
<br>
Infomed: <a href="http://www.sld.cu/" target="_blank">http://www.sld.cu/</a><br>
<br>
<br>
<br>
<br>
        [[alternative HTML version deleted]]<br>
<br>
<br>
_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><o:p></o:p></p>

</div>

<p class=MsoNormal><br>
<br clear=all>
<o:p></o:p></p>

<div>

<p class=MsoNormal><o:p> </o:p></p>

</div>

<p class=MsoNormal>-- <br>
<span style='font-family:"Verdana","sans-serif";color:#000099'>«But Gwindor
answered: 'The doom lies in yourself, not in your name.'»<br>
<br>
JRR Tolkien</span> <o:p></o:p></p>

</div>

</div>

</body>

</html>