Sólo una espculación, pero ¿no tendrás por ahí algún valor ausente
codificado con un -1?

Un saludo
Gregorio R. Serrano

El 29 de septiembre de 2011 19:48, juan manuel dias
<juamadias@gmail.com>escribió:

> *Hola Estimados,*
> * *
> *Les hago la siguiente consulta:*
> * *
> *Estamos haciendo un query sobre a una base que está en SQL, cuyo resultado
> es una suma del costo y precio de tratamiéntos médicos enviados a las
> Provincias. *
>
> *Transferencias_Acumuladas <- (sqlQuery (rem, "SELECT
>   ca.idProvincia, ca.NombreProvincia as Provincia, ca.idDepartamento,
> ca.NombreDepartamento as Departamento,
>     SUM (uSdMedicamentoCosto) AS Costo , SUM (uSdMedicamentosPrecio) AS
> Precio , SUM (Tratamientos)   AS Tratamientos
> FROM  Operaciones_Consultas_SinBackup.dbo.PMRemediar  pm
> INNER JOIN Operaciones_Consultas.dbo.uvw_CAPs ca
> ON pm.idcap = ca.idcap
> GROUP BY   ca.idProvincia, ca.NombreProvincia, ca.idDepartamento,
> ca.NombreDepartamento") )*
>
> *Aplicamos un filtro de la Provincia del Argentina que estemos estudiando:*
>
> *TransAcProv <-    subset(Transferencias_Acumuladas,idProvincia ==filtro)
> *
>
> *Y luego generamos un agregado de los datos por Provincia.*
>
> *           TransAcProvT <- aggregate( TransAcProv$Tratamientos, by =
> list(TransAcProv$Provincia), FUN="sum", na=T)    #suma el total para la
> provincia
>           TransAcProvC <- aggregate( TransAcProv$Costo, by =
> list(TransAcProv$Provincia), FUN="sum", na=T)
>           TransAcProvP <- aggregate( TransAcProv$Precio, by =
> list(TransAcProv$Provincia), FUN="sum", na=T)*
>
> *           TransAcProvT <-  TransAcProvT [ , ("x")]
>           TransAcProvC <-   TransAcProvC [ , ("x")]
>           TransAcProvP <-   TransAcProvP  [ , ("x")]*
> **
> *El resultado que nos arroja este query desde el R es en todas las
> variables  (la suma del costo, del precio y de los tratamientos) mayor en
> una unidad que a el esultado que obtenemos haciendo el mismo query
> directamente en SQL.*
>
> *Que puede estar pasando?*
>
> *Muchas gracias.*
>
> *Saludos.*
>
> *Juan Manuel.*
>
>        [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


-- 
Dr. Gregorio R. Serrano
Dpto. Economía Cuantitativa (UCM)
Voz:+34 91394 2361
Fax:+34 91394 2591
http://www.grserrano.es

	[[alternative HTML version deleted]]

