Displaying 3 results from an estimated 3 matches for "makecolon".
2006 Apr 27
0
pamr package: pamr.adaptthresh() error rates
...s would be appreciated!
thanks.
########################### CODE #################################
library(multtest) # golub
library(siggenes) # SAM
library(e1071) # support vector m/c
library(base)
library(graphics)
library(pamr)
library(bootstrap)
rm(list = ls())
gc()
makeColon <- function(){
# This dataset has 24 cancer, and 9 normal samples
n2 <- read.table("data/Colon.data",header = FALSE,sep = ",")
cancdat <- n2[,n2[1,]== 'tumor']
normdat <- n2[,n2[1,]== 'normal']
cancdat <- cancdat[-1,]
norm...
2006 Apr 27
0
package pamr: pamr.adaptthresh() error rates
...in pamr.adaptthresh(), without any success. I have reproduced my code below. Any comments would be appreciated! thanks. ########################### CODE ################################# library(base) library(graphics) library(pamr) rm(list = ls()) gc() makeColon <- function(){ # This dataset has 24 cancer, and 9 normal samples n2 <- read.table("data/Colon.data",header = FALSE,sep = ",") cancdat <- n2[,n2[1,]== 'tumor'] normdat <- n2[,n2[1,]== 'normal'] cancdat <- cancdat[-1,]...
2006 Apr 27
0
package pamr: pamr.adapthresh() ---- Take 2!
...s would be appreciated!
thanks.
########################### CODE #################################
library(multtest) # golub
library(siggenes) # SAM
library(e1071) # support vector m/c
library(base)
library(graphics)
library(pamr)
library(bootstrap)
rm(list = ls())
gc()
makeColon <- function(){
# This dataset has 24 cancer, and 9 normal samples
n2 <- read.table("data/Colon.data",header = FALSE,sep = ",")
cancdat <- n2[,n2[1,]== 'tumor']
normdat <- n2[,n2[1,]== 'normal']
cancdat <- cancdat[-1,]
norm...