################################################### ### 块数量1:设置 ################################################### 库(AffyCompatible ) ################################################### ### 块2号:rsrc-setup ################################################### <——“jnkdna密码 " ################################################### ### 块3号:rsrs ################################################### rsrs < - NetAffxResource(用户=“mtmorgan@fhcrc.org”,密码=密码)rsrs ################################################### ### 块数量4:名字 ################################################### 头(名称(rsrs)) affxDescription (rsrs[[“牛 "]]) ################################################### ### 块5号:select-anno ################################################### 伊斯兰教纪元< - rsrs[["猪"]]伊斯兰教纪元 ################################################### ### 块6号:anno-class ################################################### 酸式焦磷酸钠(affxAnnotation(伊斯兰教纪元)、力)[1:5]庵野< - affxAnnotation(伊斯兰教纪元)[[3]]伊斯兰教纪元 ################################################### ### 块7号:select-anno-idx ################################################### 庵野< - rsrs[["猪"," BLASTP注释,CSV格式"]]庵野< - rsrs[[“猪”,3 ]] ################################################### ### 块8号:readAnnotation ################################################### df < - readAnnotation (rsrs、注释=伊斯兰教纪元 ) ################################################### ### 块数量9:anno-free-form ################################################### 庵野< - rsrs[[“猪”、“PSI库文件”]]fl <——readAnnotation (rsrs注释=庵野,内容= FALSE) fl # #一个zip文件,其中包含的猪。psi' conn <- unz(fl， " pig .psi") readLines(conn, n=6) read。table(conn, header=FALSE, skip=1, sep="\t"， nrows=5)