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 < jbetanco...@iscmc.cmw.sld.cu> 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 > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > > [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es