第六组第四次作业.pdfVIP

第 1 题 #第一题， 1 a - c(5,0,1,8,10) a n=length(a) n j-1 for(j in 1:n){ if(a[j]a[j+1]) { temp=a[j] loc=j a[j+1]=a[j] a[j]=temp j+1=loc } } temp loc #疑问 1：显示“误于 j + 1 = loc : 没有+-这个函数”，不理解为什么？ # 2 x=c(23,35,64,4,5,27,22,145,12,1) N=length(x) temp=min(i:N) temp loc=which.min(i:N) loc For （I from 1 to N） { c(x[1:i],temp,x[-loc][i:N]) } #疑问 2：输入 10 个数字：23,35,64,4,5,27,22,145,12,1，为什么输出 11 个数字： 23 35 64 4 5 5 27 22 145 12 1 #疑问 3：I from 1 to N 与 I in 1:n 的区别在哪里 #第二题 mpsf - function(v) { cd - length(v) repeat { FIN - FALSE cd - cd - 1 for(i in 1:cd) { if ( v[i] v[i+1] ) { t - v[i] v[i] - v[i+1] v[i+1] - t FIN - TRUE } } if ( !FIN ) break; } v } v - c(2,9,13,6,5,22) print(mpsf(v)) 第 2 题 1. 安 ioconductor The downloaded binary packages are in C:\Users\Administrator\AppData\Local\Temp\RtmpUzWHzS\downloaded_packages 2. library(ALL) 载入需要的 包：Biobase 载入需要的 包：BiocGenerics 载入需要的 包：parallel 载入 包：‘BiocGenerics’ 下列对象被 了from ‘package:parallel’: clusterApply, clusterApplyLB, clusterCall, clusterEvalQ, clusterExport, clusterMap, parApply, parCapply, parLapply, parLapplyLB, parRapply, parSapply, parSapplyLB 下列对象被 了from ‘package:stats’: xtabs 下列对象被 了from ‘package:base’: anyDuplicated, append, as.data.frame, as.vector, cbind, colnames, duplicated, eval, evalq, Filter, Find, get, intersect, is.unsorted, lapply, Map, mapply, match, mget, order, paste, pmax, pmax.int, pmin, pmin.int, Position, rank, rbind, Reduce, rep.int, rownames, sapply, setdiff, sort, table, tapply, union, unique, unlist Welcome to Bioconductor Vignettes con