Displaying 10 results from an estimated 10 matches for "all_dat".
Did you mean:
call_dat
2018 Oct 16
2
Comprobar los nombres de columnas entre varios dataframes
Buenas tardes,
Quiero aplicar la función rbind y necesito tener los mismos nombres de
columnas. Como tengo unas 195 variables en cada dataframe, necesito
hacerlo de una forma rápida. Tengo 9 bases de datos y tengo que fusionar
todas. ¿Como puedo comprobar que los nombres de las variables son los
mismos? Y de lo contrario, ¿como detecto las diferencias?
He probado con
2017 Dec 14
2
help with recursive function
...function(x) {
data.frame(x, x$outlier <- ifelse(is.na(x$lp_norm), NA,
ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
x
})
sdf2 <- bind_rows(sdf)
all_dat <- bind_rows(df_clean, sdf2)
all_dat
}
# funlp2 function
funlp2<-function (dataset)
{
data1 <- dataset
df_clean <- with(data1, data1[norm_sd < 1, ])
datD <- with(data1, data1[norm_sd >= 1, ])
s <- split(datD, datD$uniqueid)
sdf <- lapply...
2017 Dec 14
0
help with recursive function
...ifelse(is.na(x$lp_norm), NA,
>
> ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
>
> x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
>
> x
>
> })
>
> sdf2 <- bind_rows(sdf)
>
> all_dat <- bind_rows(df_clean, sdf2)
>
> all_dat
>
> }
>
>
> # funlp2 function
>
> funlp2<-function (dataset)
>
> {
>
> data1 <- dataset
>
> df_clean <- with(data1, data1[norm_sd < 1, ])
>
> datD <- with(data1, data1[norm_...
2017 Dec 14
2
help with recursive function
...ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
>>
>> x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
>>
>> x
>>
>> })
>>
>> sdf2 <- bind_rows(sdf)
>>
>> all_dat <- bind_rows(df_clean, sdf2)
>>
>> all_dat
>>
>> }
>>
>>
>> # funlp2 function
>>
>> funlp2<-function (dataset)
>>
>> {
>>
>> data1 <- dataset
>>
>> df_clean <- with(data1, data1[norm_sd...
2017 Dec 14
2
help with recursive function
...data.frame(x, x$outlier <- ifelse(is.na<http://is.na>(x$lp_norm), NA,
ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
x
})
sdf2 <- bind_rows(sdf)
all_dat <- bind_rows(df_clean, sdf2)
all_dat
}
# funlp2 function
funlp2<-function (dataset)
{
data1 <- dataset
df_clean <- with(data1, data1[norm_sd < 1, ])
datD <- with(data1, data1[norm_sd >= 1, ])
s <- split(datD, datD$uniqueid)
sdf <- lapply...
2017 Dec 14
0
help with recursive function
...data.frame(x, x$outlier <- ifelse(is.na<http://is.na>(x$lp_norm), NA,
ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
x
})
sdf2 <- bind_rows(sdf)
all_dat <- bind_rows(df_clean, sdf2)
all_dat
}
# funlp2 function
funlp2<-function (dataset)
{
data1 <- dataset
df_clean <- with(data1, data1[norm_sd < 1, ])
datD <- with(data1, data1[norm_sd >= 1, ])
s <- split(datD, datD$uniqueid)
sdf <- lapply...
2017 Dec 14
0
help with recursive function
...ifelse(is.na(x$lp_norm), NA,
>
> ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
>
> x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
>
> x
>
> })
>
> sdf2 <- bind_rows(sdf)
>
> all_dat <- bind_rows(df_clean, sdf2)
>
> all_dat
>
> }
>
>
> # funlp2 function
>
> funlp2<-function (dataset)
>
> {
>
> data1 <- dataset
>
> df_clean <- with(data1, data1[norm_sd < 1, ])
>
> datD <- with(data1, data1[norm_...
2017 Dec 14
3
help with recursive function
...ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
>>
>> x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
>>
>> x
>>
>> })
>>
>> sdf2 <- bind_rows(sdf)
>>
>> all_dat <- bind_rows(df_clean, sdf2)
>>
>> all_dat
>>
>> }
>>
>>
>> # funlp2 function
>>
>> funlp2<-function (dataset)
>>
>> {
>>
>> data1 <- dataset
>>
>> df_clean <- with(data1, data1[norm_sd...
2017 Dec 14
0
help with recursive function
...data.frame(x, x$outlier <- ifelse(is.na<http://is.na>(x$lp_norm), NA,
ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
x
})
sdf2 <- bind_rows(sdf)
all_dat <- bind_rows(df_clean, sdf2)
all_dat
}
# funlp2 function
funlp2<-function (dataset)
{
data1 <- dataset
df_clean <- with(data1, data1[norm_sd < 1, ])
datD <- with(data1, data1[norm_sd >= 1, ])
s <- split(datD, datD$uniqueid)
sdf <- lapply...
2017 Dec 14
1
help with recursive function
....na>(x$lp_norm),
> NA,
>
> ifelse(abs(x$lp_norm) == x$norm_max, "yes", "no")),
>
> x$lp <- with(x, ifelse(outlier == "yes", NA, lp)))
>
> x
>
> })
>
> sdf2 <- bind_rows(sdf)
>
> all_dat <- bind_rows(df_clean, sdf2)
>
> all_dat
>
> }
>
>
> # funlp2 function
>
> funlp2<-function (dataset)
>
> {
>
> data1 <- dataset
>
> df_clean <- with(data1, data1[norm_sd < 1, ])
>
> datD <- with(data1, data1[norm_...