cbind mass_data class
Author
Xiaotao Shen xiaotao.shen@outlook.com
Examples
data("expression_data")
data("sample_info")
data("variable_info")
object <- create_mass_dataset(
expression_data = expression_data,
sample_info = sample_info,
variable_info = variable_info
)
x <- object[, 1:2]
temp_expression_data <- extract_expression_data(x)
colnames(temp_expression_data) <- paste0(colnames(temp_expression_data), "_2")
temp_sample_info <- extract_sample_info(x)
temp_sample_info$sample_id <- colnames(temp_expression_data)
rownames(temp_sample_info) <- temp_sample_info$sample_id
y <- create_mass_dataset(
expression_data = temp_expression_data,
sample_info = temp_sample_info,
variable_info = extract_variable_info(x),
sample_info_note = extract_sample_info_note(x),
variable_info_note = extract_variable_info_note(x)
)
result <- cbind_mass_dataset(x, y)
dim(result)
#> variables samples
#> 1000 4
