Prueba esto:

attr(.data,'var.labels') <- c("¿Consume mucho pan? ",
                               "¿Se enoja usted?",
                               "¿come mientras ve la TV?",
                               "¿Le gustan los alimentos fritos? ",
                               "¿descansa en la cama despues de comer? ",
                               "¿Le gustan los alimentos fritos? ",
                               "¿descansa en la cama despues de comer?")
des()
summ()


Si las etiquetas están ordenadas en el mismo orden que las variable del 
data.frame por defecto (.data) que usa epicalc, debe de funcional.



El 28/09/2013 1:04, Dr. José A. Betancourt B. escribió:
>
> rm(list = ls())  #borra todo lo anterior en memoria
>
> setwd("G:/Public/Documents/R/EPICALC/") #como se llama la data desde 
> su path
>
> sanda<-read.csv("sandavid2.csv",header=TRUE, sep=",", dec=".")
>
> use(sanda)
>
> attach (sanda)
>
> library  (MASS)
>
> label.cronbach <- label.var(p01, "¿Consume mucho pan? ")  ####¿Hay 
> alguna manera de nombrarlos más fácil y menos trabajosa
>
> label.cronbach <- label.var(p02, "¿Se enoja usted?")
>
> label.cronbach <- label.var(p03, "¿come mientras ve la TV?")
>
> label.cronbach <- label.var(p04, "¿Le gustan los alimentos fritos? ")
>
> label.cronbach <- label.var(p05, "¿descansa en la cama despues de 
> comer?    ")
>
> alpha(vars=c(p01:p05))
>
> *De:*Freddy Omar López Quintero [mailto:freddy.vate01@gmail.com]
> *Enviado el:* Friday, September 27, 2013 5:55 PM
> *Para:* Dr. José A. Betancourt B.
> *CC:* r-help-es@r-project.org
> *Asunto:* Re: [R-es] RV: cronbach
>
> Hola,
>
> Todos estamos muy bien, gracias.
>
> 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'?
>
> Hasta luego.
>
> 2013/9/27 Dr. José A. Betancourt B. <jbetancourt@iscmc.cmw.sld.cu 
> <mailto:jbetancourt@iscmc.cmw.sld.cu>>
>
>
>
>
>
>
>
> ¿existe  algún método en el cual no sea necesario hacer este trabajo y que
> aparezcan los nombres de las preguntas?
>
>
>
> label.cronbach <- label.var(p01, "¿Le agrada el programa que se le ha
> mostrado? ")
>
> label.cronbach <- label.var(p02, "¿Cree que ayuda en el aprendizaje?")
>
> label.cronbach <- label.var(p03, "¿Propicia el trabajo en el equipo?")
>
> label.cronbach <- label.var(p04, "¿Propicia formular debates entre los
> alumnos? ")
>
> label.cronbach <- label.var(p05, "¿Permite vincular lo biológico con lo
> social?    ")
>
> label.cronbach <- label.var(p06, "Mediante esta simulación se 
> demuestra que
> las intervenciones en las comunidades tienen que ir más allá de lo
> biológico")
>
> label.cronbach <- label.var(p07, "Es de fácil manipulación")
>
> label.cronbach <- label.var(p08, "Se entienden bien los commandos ")
>
> label.cronbach <- label.var(p09, "Este y otros modelos  podrian incluirse
> como herramienta de enseñanza")
>
> label.cronbach <- label.var(p10, "Se comprende bien el modelo")
>
>
>
> --
>
> 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
>
> Infomed: http://www.sld.cu/
>
>
>
>
>         [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org <mailto:R-help-es@r-project.org>
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>
> -- 
> «But Gwindor answered: 'The doom lies in yourself, not in your name.'»
>
> JRR Tolkien
>
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es


-- 
+--------------------------------------------------------------
| Francisco J. Viciana Fernández
| Coordinador del Registro de Población
| Servicio de Estadísticas Demográficas y Sociales
| Instituto de Estadística y Cartografía de Andalucía
| Leonardo Da Vinci, nº 21. Isla de La Cartuja.
| 41071 SEVILLA.
| franciscoj.viciana@juntadeandalucia.es
| Tlf.: +(34) 95 503 38 21
+--------------------------------------------------------------


	[[alternative HTML version deleted]]

