# NOT RUN {
library(metan)
################ Rounding numbers ###############
# All numeric columns
round_cols(data_ge2, digits = 1)
# Round specific columns
round_cols(data_ge2, EP, digits = 1)
########### Extract or replace numbers ##########
# Extract numbers
extract_number(data_ge, GEN)
extract_number(data_ge,
var = GEN,
drop = TRUE,
new_var = g_number)
# Replace numbers
replace_number(data_ge, GEN)
replace_number(data_ge,
var = GEN,
pattern = "1",
replacement = "_one",
pull = TRUE)
########## Extract, replace or remove strings ##########
# Extract strings
extract_string(data_ge, GEN)
extract_string(data_ge,
var = GEN,
drop = TRUE,
new_var = g_name)
# Replace strings
replace_string(data_ge, GEN)
replace_string(data_ge,
var = GEN,
new_var = GENOTYPE,
pattern = "G",
replacement = "GENOTYPE_")
# Remove strings
remove_strings(data_ge)
remove_strings(data_ge, ENV)
############# upper and lower cases ############
all_lower_case("GENOTYPE")
lc <- all_lower_case(data_ge)
lc
all_lower_case("GENOTYPE")
all_upper_case("Genotype")
all_upper_case(lc)
# }
Run the code above in your browser using DataLab