Coerces an object to a smet-class object

Description

The method as.smet coerces an object or a charachter string to a SMET. If the object is

as.smet

as.smet

as.smet

as.smet

as.smet

Usage

as.smet(object, ...)

as.smet(object, ...)

## S4 method for signature 'character'
as.smet(object, ...)

## S4 method for signature 'data.frame'
as.smet(object, mult = NA, offset = NA,
  date.field = "timestamp", station.field = "station_id",
  header.fields = c("longitude", "latitude", "station_id", "altitude",
  "location"), variables = NULL, force.multistation = FALSE,
  metaparam = attr(object, "metaparam"), file = NA, ...)

## S4 method for signature 'list'
as.smet(object, ...)

## S4 method for signature 'smet'
as.smet(object, ...)

Arguments

Examples

data(meteofrance)


## Choose a particular station 
station_id <-  unique(meteofrance$station_id)[3]




variables <- c("timestamp","DW","VW","TA","TD","RH","MFR_rr24",
      "MFR_tn12","MFR_tn24","MFR_tx12","MFR_tx24","HS","HS_fresh")
header <- c("longitude","latitude","station_id" ,"altitude","location")
names(header) <- header



data <- meteofrance[meteofrance$station_id==station_id,c(header,variables)]
metaparam <- attr(meteofrance,"metaparam")
metaparam <- metaparam[metaparam$SMET_ID %in% names(data),]
header <- lapply(X=header,FUN=function(x,data) {data[1,x]},data=data)
data <- data[,variables]
attr(data,"header") <- header
attr(data,"metaparam") <- metaparam

sm <- as.smet(data)

# In case of multiple station, it return a list of SMET-class objects: 

sm_multi <- as.smet(meteofrance,variables=variables)


  

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(RSMET)
Loading required package: stringr
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/RSMET/as.smet.Rd_%03d_medium.png", width=480, height=480)
> ### Name: as.smet
> ### Title: Coerces an object to a 'smet-class' object
> ### Aliases: as.smet as.smet,character-method as.smet,data.frame-method
> ###   as.smet,list-method as.smet,smet-method
> 
> ### ** Examples
> 
> data(meteofrance)
> 
> 
> ## Choose a particular station 
> station_id <-  unique(meteofrance$station_id)[3]
> 
> 
> 
> 
> variables <- c("timestamp","DW","VW","TA","TD","RH","MFR_rr24",
+       "MFR_tn12","MFR_tn24","MFR_tx12","MFR_tx24","HS","HS_fresh")
> header <- c("longitude","latitude","station_id" ,"altitude","location")
> names(header) <- header
> 
> 
> 
> data <- meteofrance[meteofrance$station_id==station_id,c(header,variables)]
> metaparam <- attr(meteofrance,"metaparam")
> metaparam <- metaparam[metaparam$SMET_ID %in% names(data),]
> header <- lapply(X=header,FUN=function(x,data) {data[1,x]},data=data)
> data <- data[,variables]
> attr(data,"header") <- header
> attr(data,"metaparam") <- metaparam
> 
> sm <- as.smet(data)
> 
> # In case of multiple station, it return a list of SMET-class objects: 
> 
> sm_multi <- as.smet(meteofrance,variables=variables)
> 
> 
>   
> 
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>