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
> <javier.ruben.marcu...@gmail.com
> <mailto: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
> <mailto: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 <mailto: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 <mailto: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
