[R-es] pregunta

["Marcuzzi, Javier Rubén"]

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.marcuzzi en gmail.com 
> <mailto:javier.ruben.marcuzzi en 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 <
>     jbetancourt en iscmc.cmw.sld.cu
>     <mailto:jbetancourt en 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 en r-project.org <mailto:R-help-es en r-project.org>
>     > https://stat.ethz.ch/mailman/listinfo/r-help-es
>     >
>     >
>
>             [[alternative HTML version deleted]]
>
>     _______________________________________________
>     R-help-es mailing list
>     R-help-es en r-project.org <mailto:R-help-es en r-project.org>
>     https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


	[[alternative HTML version deleted]]