初学贝叶斯网络：
library(bnlearn)
data(learning.test)
head(data)
发现data是：
1 function (..., list = character(), package = NULL, lib.loc = NULL,
2     verbose = getOption("verbose"), envir = .GlobalEnv)            
3 {                                                                  
4     fileExt <- function(x) {                                       
5         db <- grepl("[url=]\\\\.[^.]+\\\\.(gz|bz2|xz)$[/url]", x)              
6         ans <- sub(".*\\\\.", "", x)
这样的data是什么意思

接着是
res = gs(learning.test)
这又是什么意思？
求高手回答？