Displaying 5 results from an estimated 5 matches for "xdades".
2015 Jul 27
2
Error sql en función
...Ayer caí en esta página al buscar el problema con google, pero no conseguir entender y implementar lo que sugiere. Sin entender nada, lo que hice fue:
========================
> library(MASS)
> library (sqldf) # Per SQL
> data(Aids2, package="MASS")
> SQL_PROVA = function (XDADES, XWHE)
+ {
+ XDADES_SQL = sqldf ("select * from $XDADES $XWHE")
+ return(XDADES_SQL)
+ }
> DADES_SEL = SQL_PROVA (XDADES = birthwt, XWHE = "where age < '40'")
Error in sqliteSendQuery(con, statement, bind.data) :
error in statement: near "$XDADES&qu...
2015 Jul 27
2
Error sql en función
...and age < 40")
> table (DADES_SEL$state)
NSW Other QLD VIC
1102 0 128 0
> max (DADES_SEL$age)
[1] 39
==========================
Pero dentro de una función no se como pasarle los argumentos para que funcione:
==========================
> SQL_PROVA = function (XDADES, XWHE)
+ {
+ XDADES_SQL = sqldf (paste ("select * from", XDADES, XWHE, sep = " "))
+ return(XDADES_SQL)
+ }
> DADES_SEL = SQL_PROVA (XDADES = birthwt, XWHE = "where age < '40'")
Error in sqliteSendQuery(con, statement, bind.data) :
error in sta...
2015 Jul 14
4
Conservar el nombre de la variable entre varias funciones: ejemplos de resultados
...das las variables de una tabla cruzadas con una variable dependiente cualitativa.
=Inicio funciones ========================================
##--------------------------------------------------------------
## DESUNI
##--------------------------------------------------------------
DESUNI = function(XDADES,
XDROP=NULL,
XVD=NULL,
XSPV=NULL # Si és una anàlisi de SPV # Pot tenir el valor TRUE
)
{
options(digits = 3, OutDec=",", scipen=999)
## No existeix VD: descriptiva
if(is.null(XVD)) # No existeix VD: descrip...
2015 Jun 30
3
Loop for: mostrar el nombre de la variables
...alquier data frame. Simplificando es (en la función real definitiva la descriptiva es más completa):
***************************
# Data.frame para pruebas:
TBL <- data.frame(SE=sample(c("H","M"),10,TRUE),
ED=(rnorm(10)+2.5)*20)
# Función DES:
DES = function(XDADES)
{
attach(XDADES)
for (XVARNUM in XDADES)
{
if(is.numeric(XVARNUM))
{
print (c("Var Num: ", mean(XVARNUM)))
}
else if(is.factor(XVARNUM))
{
print (c("Var factor: "))
XOUT <- as.data.frame(table(XVARNUM))
print(XOUT <- transform(XOUT, cu...
2015 Jul 13
2
Conservar el nombre de la variable entre varias funciones
Hola:
Con esto del R me da la impresión que avanzo un paso y retrocedo dos!
El caso es que tengo una "cascada de funciones", para realizar un análisis descriptivo "automático" en función del tipo de variable. Y en los resultados, en lugar de aparecer el nombre de la variable, aparece el nombre del argumento. Esto ocurre tanto si utilizo o no la función get().
Un ejemplo