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 <javier.ruben.marcu...@gmail.com>
:
> 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
>
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
