y <- system.file("das_sample.das", package = "swfscDAS")
y.read <- das_read(y)
# All return a data frame:
class(y.read[1:10, ])
class(y.read[, 1:10])
y.df <- y.read
y.df[, 1] <- "a"
class(y.df)
y.df <- y.read
y.df$Event <- "a"
class(y.df)
y.df <- y.read
y.df[["Event"]] <- "a"
class(y.df)
Run the code above in your browser using DataLab