# NOT RUN {
## Examples for vectors
fail.time <- c(10,20)
# set attributes
SASformat(fail.time) <- 'Numeric2'
SASiformat(fail.time) <- 'Numeric2'
# display individual attributes
SASformat(fail.time)
SASiformat(fail.time)
# display all attributes
attributes(fail.time)
## SAStype only applies to data frames
df <- data.frame( fail.time, day=c("Mon","Tue"), stringsAsFactors=TRUE )
SAStype(df) <- "USER"
SAStype(df)
## Example showing specification of default return value
a <- 70
label(a, default="no label")
# }
Run the code above in your browser using DataLab