address <-
base::system.file("extdata",
"ex1_inmet.CSV",
package = "DataMetProcess")
df <-
read.table(
address,
h=TRUE,
sep = ";",
dec = ",",
skip = 8,
na.strings = -9999,
check.names = FALSE
)
df$Data = as.Date(df$Data,format = "%d/%m/%Y")
df.d <-
calculateDMY(
data = df,
col_date = "Data",
col_sum = colnames(df)[c(3,7)],
col_mean = colnames(df)[-c(1,2,3,7)],
type = "Daily"
)
df.m <-
calculateDMY(
data = df.d,
col_date = "Date",
col_sum = colnames(df.d)[c(2)],
col_mean = colnames(df.d)[-c(1,2)],
type = "Monthly"
)
df.a <-
calculateDMY(
data = df.m,
col_date = "Date",
col_sum = colnames(df.m)[c(2)],
col_mean = colnames(df.m)[-c(1,2)],
type = "Yearly"
)
Run the code above in your browser using DataLab