comparison edgeR_Differential_Gene_Expression.xml @ 45:f710e5ed7cea draft

Uploaded

44:261b997b241f

    print("Renaming of factors:")
    print(old)
    print("To:")
    print(design_matrix[,i])
  }
  design_matrix[,i] <- as.factor(design_matrix[,i])
}

## 1) In the expression matrix, you only want to have the samples described in the design matrix
columns <- match(rownames(design_matrix),colnames(expression_matrix))
columns <- columns[!is.na(columns)]

45:f710e5ed7cea

    print("Renaming of factors:")
    print(old)
    print("To:")
    print(design_matrix[,i])
  }
  ## The following line seems to malfunction the script:
  ##design_matrix[,i] <- as.factor(design_matrix[,i])
}

## 1) In the expression matrix, you only want to have the samples described in the design matrix
columns <- match(rownames(design_matrix),colnames(expression_matrix))
columns <- columns[!is.na(columns)]