### R代码来自Vignette Source'spem-package.rnw'############################################################### ###代码块数字1：libpackage #########################################################################################################################abs（rnorm（12）），nrow = 3，ncol = 4，dimnames = list（paste（“ g”，c（1：3），sep =''），粘贴（“ tp”，c（0,2），4,6），sep =“ _”））########################################################### ###代码块数字3：setpara ##########################################################（0,2,4,6），sep ='_'），time = c（0,2,4,6），row.names =粘贴（“ tp”，c（0,2,4,6），sep ='_'））####################################################### ###代码块编号4：SetPara ########################################################ow.names = c（“索引”，“标签”，“ time”））toy_varmetadata ################################################################ ###代码块数字5：setpara ######################################################################################代码块数字6：setpara ####################################################### toy_ExpressionSet<-new("ExpressionSet", exprs=toy_expression_data,phenoData=toy_phenoData) ################################################### ### code chunk number 7: libPackage ################################################### library(SPEM) library(Rsolnp) library(Biobase) ################################################### ### code chunk number 8: loadData ################################################### data(sos) ################################################### ### code chunk number 9: setPara ################################################### n<- 1 sparsity<- 0.2 lbH<- -3 ubH<- 3 lbB<- 0 ubB<- 10 ################################################### ### code chunk number 10: setPara ################################################### Slope<- s_diff(sos) S<-Slope[1,] sparsity<- 0.2 lbH<- -3 ubH<- 3 lbB<- 0 ubB<- 10 beta<-runif(n=1,min=lbB,max=ubB)