# create a data frame
dates <- seq.Date(from = as.Date('1990-01-01'), to = as.Date('1990-12-01'), by = 'm')
met_var <- runif(n = 12, 0, 10)
met_table <- data.frame(dates, met_var)
# set single value recycling
set_value(x = met_table, col_name = 'met_var', value = 10,
from = '1990-01-01', to = '1990-06-01' )
# set different periods
set_value(x = met_table, col_name = 'met_var', value = list(NA_real_, c(1, 2) ),
from = c('1990-01-01', '1990-11-01'), to = c('1990-06-01', '1990-12-01') )
# now set as new columns
set_value(x = met_table, col_name = 'met_var', out_name = 'met_set',
value = list(NA_real_, c(1, 2) ),
from = c('1990-01-01', '1990-11-01'),
to = c('1990-06-01', '1990-12-01') )
Run the code above in your browser using DataLab