Muchas gracias! Jos�
De: "Marcuzzi, Javier Rub�n" [mailto:[email protected]] Enviado el: jueves, 21 de agosto de 2014 02:42 Para: Jorge I Velez CC: "Dr. Jos� A Betancourt Bethencourt"; Lista R Asunto: Re: [R-es] pregunta Buenas noches Yo estoy de acuerdo con Jorge, yo copie y modifique sobre ese c�digo, en mi parte no uso attach(), nunca lo uso, es m�s, lo pens� como posible problema, como tambi�n nunca me acostumbro al with(). Javier El 21/08/14 a las 00:33, Jorge I Velez escibi�: Buenas noches Javier y Jos�, Estoy en contra de usar attach(), asi que propongo la siguiente alternativa con with(): # paquete require(epicalc) # los argumentos en ... pasan de epicalc:::cc # ver ?cc para mas informacion foo <- function(var1, var2, var3, ...){ or1 <- cc(var1, var2, ...) or2 <- cc(var1, var3, ...) list(or1 = or1, or2 = or2) } # datos x <- read.csv("~/Downloads/OR.csv") head(x) # resultados SIN graficas with(x, foo(estado, cake, chocolate, graph = FALSE)) Saludos, Jorge.- 2014-08-21 12:40 GMT+10:00 Javier Marcuzzi <[email protected] <mailto:[email protected]> >: Estimado Jos� Betancourt Copio y pego una forma donde anda, b�sicamente es lo mismo pero con una peque�a diferencia, es tan parecido que est�n los dos c�digos a continuaci�n. Javier Marcuzzi library(epicalc) #Comando que llama a una funci�n rm(list=ls()) #setwd("D:/DEMO_new/demo_scripts/OR/") #setwd("D:/Public/Documents/R/EPICALC/funciones/OR/") #data= mydata<-read.csv("OR.csv",header=TRUE, sep=",", dec=".") data <- read.csv("~/Descargas/OR.csv",header=TRUE, sep=",", dec=".") data2 <- read.csv("~/Descargas/OR.csv",header=TRUE, sep=",", dec=".") use(data) attach(data) var1=estado var2=cake var3=chocolate # source("function_or.r") #funci�n odratios <- function (data,var1,var2,var3){ or1 <-cc(var1, var2) or2 <- cc(var1, var3) } odratios(data,var1,var2,var3) odratios2 <- function (data,estado,cake,chocolate){ or1 <-cc(estado, cake) or2 <- cc(estado, chocolate) } odratios2(data2,estado,cake,chocolate) El 20 de agosto de 2014, 21:10, Dr. Jos� A Betancourt Bethencourt < [email protected] <mailto:[email protected]> > escribi�: > Estimados > > Estoy entrenando hacer funciones que respondan a comandos, > > > > en esta caso en la salida gr�fica se observa que dice : Exposure=var3 y > outcome=var 1 > > > > quisi�ramos que se reflejan los nombres de la base de datos : var1=estado, > var2=cake, var3=chocolate > > > > Espero haberme explicado adecuadamente > > Adjunto tabla con datos > > > > #################################### > > > > #Comando que llama a una funci�n > > rm(list=ls()) > > #setwd("D:/DEMO_new/demo_scripts/OR/") > > #setwd("D:/Public/Documents/R/EPICALC/funciones/OR/") > > > > data= mydata<-read.csv("OR.csv",header=TRUE, sep=",", dec=".") > > use(data) > > attach(data) > > > > var1=estado > > var2=cake > > var3=chocolate > > library(epicalc) > > source("function_or.r") > > odratios(data,var1,var2,var3) > > > > > > #funci�n > > odratios <- function (data,var1,var2,var3){ > > or1 <-cc(var1, var2) > > or2 <- cc(var1, var3) > > } > > _______________________________________________ > R-help-es mailing list > [email protected] <mailto:[email protected]> > https://stat.ethz.ch/mailman/listinfo/r-help-es > > [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list [email protected] <mailto:[email protected]> https://stat.ethz.ch/mailman/listinfo/r-help-es -- Nunca digas nunca, di mejor: gracias, permiso, disculpe. 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 [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
