setwd("GSE29431_RAW") # 進入目錄
fileNames <- list.files() # 獲取目錄下的所有文件
sapply(fileNames, gunzip) # 進行解壓操作,fileNames是一個向量,gunzip是解壓縮的函數,sapply()會依次將fileNames中的元素應用gunzip函數
setwd("GSE29431_RAW") # 進入目錄
fileNames <- list.files() # 獲取目錄下的所有文件
sapply(fileNames, gunzip) # 進行解壓操作,fileNames是一個向量,gunzip是解壓縮的函數,sapply()會依次將fileNames中的元素應用gunzip函數
本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。