featureChromosome=factor(c("chr1","chr1","chr1","chr1"))
featurePosition=c(as.integer(47193),as.integer(47197),as.integer(47201),
as.integer(47205))
featureCopyNumber=c(as.integer(1),as.integer(1),as.integer(1),as.integer(1))
a=5.379897
exprs=matrix(a,nrow=4)
genomeName="Sc03b_MR_v04_10000"
featureSequence=c("TCATCAAGGGAAGAGAGTCTCTCAG","TGATCATCACGGGACTTCTGGTTTA","CGGGACTTCTGGTTTATGGAACTAT","ACTTCTGGTTTATGGAACTATAAGG")
newSet <- new('tilingSet', featureChromosome=featureChromosome,
featurePosition=featurePosition,featureCopyNumber=featureCopyNumber,
exprs=exprs, genomeName=genomeName, featureSequence=featureSequence)
Run the code above in your browser using DataLab