cardinal_classification: classification.xml annotate

author	galaxyp
date	Mon, 01 Oct 2018 01:06:08 -0400
parents
children	6a03b201bc12

rev	line source
0 2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	1 <tool id="cardinal_classification" name="MSI classification" version="@VERSION@.0">
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	2 <description>spatial classification of mass spectrometry imaging data</description>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	3 <macros>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	4 <import>macros.xml</import>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	5 </macros>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	6 <expand macro="requirements">
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	7 <requirement type="package" version="2.2.1">r-gridextra</requirement>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	8 <requirement type="package" version="0.20-35">r-lattice</requirement>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	9 <requirement type="package" version="2.2.1">r-ggplot2</requirement>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	10 </expand>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	11 <command detect_errors="exit_code">
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	12 <![CDATA[
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	13
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	14 @INPUT_LINKING@
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	15 cat '${MSI_segmentation}' &&
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	16 Rscript '${MSI_segmentation}'
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	17
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	18 ]]>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	19 </command>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	20 <configfiles>
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	21 <configfile name="MSI_segmentation"><![CDATA[
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	22
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	23
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	24 ################################# load libraries and read file #########################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	25
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	26 library(Cardinal)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	27 library(gridExtra)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	28 library(lattice)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	29 library(ggplot2)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	30
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	31 @READING_MSIDATA@
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	32
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	33 ## create full matrix to make processed imzML files compatible with classification
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	34 iData(msidata) <- iData(msidata)[]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	35
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	36 @DATA_PROPERTIES@
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	37
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	38 ######################################## PDF ###################################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	39 ################################################################################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	40 ################################################################################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	41
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	42 Title = "Prediction"
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	43
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	44 #if str( $type_cond.type_method) == "training":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	45
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	46 Title = "$type_cond.method_cond.class_method"
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	47 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	48
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	49 pdf("classificationpdf.pdf", fonts = "Times", pointsize = 12)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	50 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	51
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	52
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	53 title(main=paste0(Title," for file: \n\n", "$infile.display_name"))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	54
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	55
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	56 ##################### I) numbers and control plots #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	57 ###############################################################################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	58
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	59 ## table with values
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	60 grid.table(property_df, rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	61
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	62
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	63 if (npeaks > 0 && sum(is.na(spectra(msidata)))==0){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	64
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	65 opar <- par()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	66
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	67 ######################## II) Training #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	68 #############################################################################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	69 #if str( $type_cond.type_method) == "training":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	70 print("training")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	71
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	72
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	73 ## load y response (will be needed in every training scenario)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	74
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	75 y_tabular = read.delim("$type_cond.annotation_file", header = $type_cond.tabular_header, stringsAsFactors = FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	76
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	77 #if str($type_cond.column_fold) == "None":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	78 y_input = y_tabular[,c($type_cond.column_x, $type_cond.column_y, $type_cond.column_response)]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	79 #else
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	80 y_input = y_tabular[,c($type_cond.column_x, $type_cond.column_y, $type_cond.column_response, $type_cond.column_fold)]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	81 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	82
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	83 colnames(y_input)[1:2] = c("x", "y")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	84 ## merge with coordinate information of msidata
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	85 msidata_coordinates = cbind(coord(msidata)[,1:2], c(1:ncol(msidata)))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	86 colnames(msidata_coordinates)[3] = "pixel_index"
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	87 merged_response = merge(msidata_coordinates, y_input, by=c("x", "y"), all.x=TRUE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	88 merged_response[is.na(merged_response)] = "NA"
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	89 merged_response = merged_response[order(merged_response\$pixel_index),]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	90 y_vector = as.factor(merged_response[,4])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	91
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	92 ## plot of y vector
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	93
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	94 position_df = cbind(coord(msidata)[,1:2], y_vector)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	95 y_plot = ggplot(position_df, aes(x=x, y=y, fill=y_vector))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	96 geom_tile() +
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	97 coord_fixed()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	98 ggtitle("Distribution of the response variable y")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	99 theme_bw()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	100 theme(text=element_text(family="ArialMT", face="bold", size=15))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	101 theme(legend.position="bottom",legend.direction="vertical")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	102 guides(fill=guide_legend(ncol=4,byrow=TRUE))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	103 coord_labels = aggregate(cbind(x,y)~y_vector, data=position_df, mean, na.rm=TRUE, na.action="na.pass")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	104 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$y_vector)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	105 print(y_plot)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	106
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	107
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	108 ## plot of folds
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	109
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	110 #if str($type_cond.column_fold) != "None":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	111 fold_vector = as.factor(merged_response[,5])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	112
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	113
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	114 position_df = cbind(coord(msidata)[,1:2], fold_vector)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	115 fold_plot = ggplot(position_df, aes(x=x, y=y, fill=fold_vector))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	116 geom_tile() +
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	117 coord_fixed()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	118 ggtitle("Distribution of the fold variable")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	119 theme_bw()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	120 theme(text=element_text(family="ArialMT", face="bold", size=15))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	121 theme(legend.position="bottom",legend.direction="vertical")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	122 guides(fill=guide_legend(ncol=4,byrow=TRUE))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	123 coord_labels = aggregate(cbind(x,y)~fold_vector, data=position_df, mean, na.rm=TRUE, na.action="na.pass")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	124 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$fold_vector)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	125 print(fold_plot)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	126
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	127 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	128
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	129 ######################## PLS #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	130 #if str( $type_cond.method_cond.class_method) == "PLS":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	131 print("PLS")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	132
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	133 ######################## PLS - CV #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	134 #if str( $type_cond.method_cond.analysis_cond.PLS_method) == "cvapply":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	135 print("PLS cv")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	136
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	137 ## set variables for components and number of response groups
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	138 components = c($type_cond.method_cond.analysis_cond.plscv_comp)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	139 number_groups = length(levels(y_vector))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	140
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	141 ## PLS-cvApply:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	142 msidata.cv.pls <- cvApply(msidata, .y = y_vector, .fold = fold_vector, .fun = "PLS", ncomp = components)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	143
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	144 ## create table with summary
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	145 count = 1
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	146 summary_plscv = list()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	147 accuracy_vector = numeric()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	148 for (iteration in components){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	149 summary_iteration = summary(msidata.cv.pls)\$accuracy[[paste0("ncomp = ", iteration)]]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	150 ## change class of numbers into numeric to round and calculate mean
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	151 summary_iteration2 = round(as.numeric(summary_iteration), digits=2)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	152 summary_matrix = matrix(summary_iteration2, nrow=4, ncol=number_groups)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	153 accuracy_vector[count] = mean(summary_matrix[1,]) ## vector with accuracies to find later maximum for plot
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	154 summary_iteration3 = cbind(rownames(summary_iteration), summary_matrix) ## include rownames in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	155 summary_iteration4 = t(summary_iteration3)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	156 summary_iteration5 = cbind(c(paste0("ncomp = ", iteration), colnames(summary_iteration)), summary_iteration4)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	157 summary_plscv[[count]] = summary_iteration5
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	158 count = count+1} ## create list with summary table for each component
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	159 summary_plscv = do.call(rbind, summary_plscv)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	160 summary_df = as.data.frame(summary_plscv)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	161 colnames(summary_df) = NULL
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	162
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	163 ## plots
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	164 ## plot to find ncomp with highest accuracy
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	165 plot(components, accuracy_vector, ylab = "mean accuracy",type="o", main="Mean accuracy of PLS classification")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	166 ncomp_max = components[which.max(accuracy_vector)] ## find ncomp with max. accuracy
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	167 ## one image for each sample/fold, 4 images per page
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	168 minimumy = min(coord(msidata.cv.pls)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	169 maximumy = max(coord(msidata.cv.pls)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	170 image(msidata.cv.pls, model = list(ncomp = ncomp_max),ylim= c(maximumy+0.2maximumy,minimumy-0.2minimumy),layout = c(2, 2))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	171
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	172 ## print table with summary in pdf
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	173 par(opar)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	174 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	175 title(main="Summary for the different components\n", adj=0.5)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	176 ## 20 rows fits in one page:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	177 if (nrow(summary_df)<=20){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	178 grid.table(summary_df, rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	179 }else{
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	180 grid.table(summary_df[1:20,], rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	181 mincount = 21
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	182 maxcount = 40
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	183 for (count20 in 1:(ceiling(nrow(summary_df)/20)-1)){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	184 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	185 if (maxcount <= nrow(summary_df)){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	186 grid.table(summary_df[mincount:maxcount,], rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	187 mincount = mincount+20
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	188 maxcount = maxcount+20
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	189 }else{### stop last page with last sample otherwise NA in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	190 grid.table(summary_df[mincount:nrow(summary_df),], rows= NULL)}
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	191 }
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	192 }
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	193
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	194 ## optional output as .RData
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	195 #if $output_rdata:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	196 save(msidata.cv.pls, file="$classification_rdata")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	197 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	198
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	199
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	200 ######################## PLS - analysis ###########################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	201 #elif str( $type_cond.method_cond.analysis_cond.PLS_method) == "PLS_analysis":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	202 print("PLS analysis")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	203
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	204 ## set variables for components and number of response groups
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	205 component = c($type_cond.method_cond.analysis_cond.pls_comp)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	206 number_groups = length(levels(y_vector))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	207
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	208 ### pls analysis and coefficients plot
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	209 msidata.pls <- PLS(msidata, y = y_vector, ncomp = component, scale=$type_cond.method_cond.analysis_cond.pls_scale)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	210 plot(msidata.pls, main="PLS coefficients per m/z")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	211
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	212 ### summary table of PLS
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	213 summary_table = summary(msidata.pls)\$accuracy[[paste0("ncomp = ",component)]]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	214 summary_table2 = round(as.numeric(summary_table), digits=2)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	215 summary_matrix = matrix(summary_table2, nrow=4, ncol=number_groups)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	216 summary_table3 = cbind(rownames(summary_table), summary_matrix) ## include rownames in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	217 summary_table4 = t(summary_table3)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	218 summary_table5 = cbind(c(paste0("ncomp = ", component), colnames(summary_table)), summary_table4)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	219 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	220 grid.table(summary_table5, rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	221
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	222 ### image of the best m/z
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	223 minimumy = min(coord(msidata)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	224 maximumy = max(coord(msidata)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	225 print(image(msidata, mz = topLabels(msidata.pls)[1,1], normalize.image = "linear", contrast.enhance = "histogram",ylim= c(maximumy+0.2maximumy,minimumy-0.2minimumy), smooth.image="gaussian", main="best m/z heatmap"))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	226
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	227 ### m/z and pixel information output
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	228 pls_classes = data.frame(msidata.pls\$classes[[1]])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	229 pixel_names = gsub(", y = ", "_", names(pixels(msidata)))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	230 pixel_names = gsub(" = ", "y_", pixel_names)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	231 x_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,2]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	232 y_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,3]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	233
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	234 pls_classes2 = data.frame(pixel_names, x_coordinates, y_coordinates, pls_classes)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	235 colnames(pls_classes2) = c("pixel names", "x", "y","predicted condition")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	236 pls_toplabels = topLabels(msidata.pls, n=$type_cond.method_cond.analysis_cond.pls_toplabels)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	237 write.table(pls_toplabels, file="$mzfeatures", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	238 write.table(pls_classes2, file="$pixeloutput", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	239
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	240 ## image with predicted classes
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	241 prediction_df = cbind(coord(msidata.pls)[,1:2], pls_classes)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	242 colnames(prediction_df) = c("x", "y", "predicted_classes")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	243
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	244 prediction_plot = ggplot(prediction_df, aes(x=x, y=y, fill=predicted_classes))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	245 geom_tile() +
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	246 coord_fixed()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	247 ggtitle("Predicted condition for each pixel")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	248 theme_bw()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	249 theme(text=element_text(family="ArialMT", face="bold", size=15))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	250 theme(legend.position="bottom",legend.direction="vertical")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	251 guides(fill=guide_legend(ncol=4,byrow=TRUE))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	252 coord_labels = aggregate(cbind(x,y)~predicted_classes, data=prediction_df, mean, na.rm=TRUE, na.action="na.pass")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	253 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$predicted_classes)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	254 print(prediction_plot)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	255
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	256 ### optional output as .RData
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	257 #if $output_rdata:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	258 save(msidata.pls, file="$classification_rdata")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	259 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	260
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	261 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	262
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	263 ######################## OPLS #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	264 #elif str( $type_cond.method_cond.class_method) == "OPLS":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	265 print("OPLS")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	266
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	267 ######################## OPLS -CV #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	268 #if str( $type_cond.method_cond.opls_analysis_cond.opls_method) == "opls_cvapply":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	269 print("OPLS cv")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	270
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	271 ## set variables for components and number of response groups
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	272 components = c($type_cond.method_cond.opls_analysis_cond.opls_cvcomp)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	273 number_groups = length(levels(y_vector))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	274
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	275 ## OPLS-cvApply:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	276 msidata.cv.opls <- cvApply(msidata, .y = y_vector, .fold = fold_vector, .fun = "OPLS", ncomp = components, keep.Xnew = $type_cond.method_cond.opls_analysis_cond.xnew_cv)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	277
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	278 ## create table with summary
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	279 count = 1
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	280 summary_oplscv = list()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	281 accuracy_vector = numeric()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	282 for (iteration in components){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	283
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	284 summary_iteration = summary(msidata.cv.opls)\$accuracy[[paste0("ncomp = ", iteration)]]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	285 ## change class of numbers into numeric to round and calculate mean
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	286 summary_iteration2 = round(as.numeric(summary_iteration), digits=2)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	287 summary_matrix = matrix(summary_iteration2, nrow=4, ncol=number_groups)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	288 accuracy_vector[count] = mean(summary_matrix[1,]) ## vector with accuracies to find later maximum for plot
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	289 summary_iteration3 = cbind(rownames(summary_iteration), summary_matrix) ## include rownames in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	290 summary_iteration4 = t(summary_iteration3)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	291 summary_iteration5 = cbind(c(paste0("ncomp = ", iteration), colnames(summary_iteration)), summary_iteration4)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	292 summary_oplscv[[count]] = summary_iteration5
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	293 count = count+1} ## create list with summary table for each component
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	294 summary_oplscv = do.call(rbind, summary_oplscv)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	295 summary_df = as.data.frame(summary_oplscv)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	296 colnames(summary_df) = NULL
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	297
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	298 ## plots
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	299 ## plot to find ncomp with highest accuracy
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	300 plot(components, accuracy_vector, ylab = "mean accuracy", type="o", main="Mean accuracy of OPLS classification")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	301 ncomp_max = components[which.max(accuracy_vector)] ## find ncomp with max. accuracy
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	302 ## one image for each sample/fold, 4 images per page
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	303 minimumy = min(coord(msidata.cv.opls)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	304 maximumy = max(coord(msidata.cv.opls)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	305 image(msidata.cv.opls, model = list(ncomp = ncomp_max),ylim= c(maximumy+0.2maximumy,minimumy-0.2minimumy),layout = c(2, 2))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	306
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	307 ## print table with summary in pdf
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	308 par(opar)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	309 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	310 title(main="Summary for the different components\n", adj=0.5)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	311 ## 20 rows fits in one page:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	312 if (nrow(summary_df)<=20){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	313 grid.table(summary_df, rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	314 }else{
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	315 grid.table(summary_df[1:20,], rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	316 mincount = 21
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	317 maxcount = 40
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	318 for (count20 in 1:(ceiling(nrow(summary_df)/20)-1)){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	319 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	320 if (maxcount <= nrow(summary_df)){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	321 grid.table(summary_df[mincount:maxcount,], rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	322 mincount = mincount+20
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	323 maxcount = maxcount+20
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	324 }else{### stop last page with last sample otherwise NA in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	325 grid.table(summary_df[mincount:nrow(summary_df),], rows= NULL)}
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	326 }
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	327 }
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	328
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	329 ## optional output as .RData
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	330 #if $output_rdata:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	331 save(msidata.cv.opls, file="$classification_rdata")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	332 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	333
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	334
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	335 ######################## OPLS -analysis ###########################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	336 #elif str( $type_cond.method_cond.opls_analysis_cond.opls_method) == "opls_analysis":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	337 print("OPLS analysis")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	338
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	339 ## set variables for components and number of response groups
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	340 component = c($type_cond.method_cond.opls_analysis_cond.opls_comp)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	341 number_groups = length(levels(y_vector))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	342
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	343
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	344 ### opls analysis and coefficients plot
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	345 msidata.opls <- PLS(msidata, y = y_vector, ncomp = component, scale=$type_cond.method_cond.opls_analysis_cond.opls_scale, keep.Xnew = $type_cond.method_cond.opls_analysis_cond.xnew)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	346 plot(msidata.opls, main="OPLS coefficients per m/z")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	347
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	348 ### summary table of OPLS
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	349 summary_table = summary(msidata.opls)\$accuracy[[paste0("ncomp = ",component)]]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	350 summary_table2 = round(as.numeric(summary_table), digits=2)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	351 summary_matrix = matrix(summary_table2, nrow=4, ncol=number_groups)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	352 summary_table3 = cbind(rownames(summary_table), summary_matrix) ## include rownames in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	353 summary_table4 = t(summary_table3)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	354 summary_table5 = cbind(c(paste0("ncomp = ", component), colnames(summary_table)), summary_table4)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	355 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	356 grid.table(summary_table5, rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	357
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	358 ### image of the best m/z
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	359 minimumy = min(coord(msidata)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	360 maximumy = max(coord(msidata)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	361 print(image(msidata, mz = topLabels(msidata.opls)[1,1], normalize.image = "linear", contrast.enhance = "histogram",smooth.image="gaussian", ylim= c(maximumy+0.2maximumy,minimumy-0.2minimumy), main="best m/z heatmap"))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	362
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	363 ## m/z and pixel information output
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	364 opls_classes = data.frame(msidata.opls\$classes[[1]])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	365 pixel_names = gsub(", y = ", "_", names(pixels(msidata)))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	366 pixel_names = gsub(" = ", "y_", pixel_names)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	367 x_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,2]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	368 y_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,3]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	369 opls_classes2 = data.frame(pixel_names, x_coordinates, y_coordinates, opls_classes)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	370 colnames(opls_classes2) = c("pixel names", "x", "y","predicted condition")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	371
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	372 opls_toplabels = topLabels(msidata.opls, n=$type_cond.method_cond.opls_analysis_cond.opls_toplabels)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	373 write.table(opls_toplabels, file="$mzfeatures", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	374 write.table(opls_classes2, file="$pixeloutput", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	375
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	376 ## image with predicted classes
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	377 prediction_df = cbind(coord(msidata.opls)[,1:2], opls_classes)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	378 colnames(prediction_df) = c("x", "y", "predicted_classes")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	379
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	380 prediction_plot = ggplot(prediction_df, aes(x=x, y=y, fill=predicted_classes))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	381 geom_tile() +
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	382 coord_fixed()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	383 ggtitle("Predicted condition for each pixel")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	384 theme_bw()+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	385 theme(text=element_text(family="ArialMT", face="bold", size=15))+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	386 theme(legend.position="bottom",legend.direction="vertical")+
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	387 guides(fill=guide_legend(ncol=4,byrow=TRUE))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	388 coord_labels = aggregate(cbind(x,y)~predicted_classes, data=prediction_df, mean, na.rm=TRUE, na.action="na.pass")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	389 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$predicted_classes)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	390 print(prediction_plot)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	391
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	392 ## optional output as .RData
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	393 #if $output_rdata:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	394 save(msidata.opls, file="$classification_rdata")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	395 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	396 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	397
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	398
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	399 ######################## SSC #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	400 #elif str( $type_cond.method_cond.class_method) == "spatialShrunkenCentroids":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	401 print("SSC")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	402
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	403 ######################## SSC - CV #############################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	404 #if str( $type_cond.method_cond.ssc_analysis_cond.ssc_method) == "ssc_cvapply":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	405 print("SSC cv")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	406
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	407 ## set variables for components and number of response groups
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	408 number_groups = length(levels(y_vector))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	409
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	410 ## SSC-cvApply:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	411 msidata.cv.ssc <- cvApply(msidata, .y = y_vector,.fold = fold_vector,.fun = "spatialShrunkenCentroids", r = c($type_cond.method_cond.ssc_r), s = c($type_cond.method_cond.ssc_s), method = "$type_cond.method_cond.ssc_kernel_method")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	412
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	413 ## create table with summary
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	414 count = 1
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	415 summary_ssccv = list()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	416 accuracy_vector = numeric()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	417 iteration_vector = character()
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	418 for (iteration in names(msidata.cv.ssc@resultData[[1]][,1])){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	419
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	420 summary_iteration = summary(msidata.cv.ssc)\$accuracy[[iteration]]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	421 ## change class of numbers into numeric to round and calculate mean
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	422 summary_iteration2 = round(as.numeric(summary_iteration), digits=2)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	423 summary_matrix = matrix(summary_iteration2, nrow=4, ncol=number_groups)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	424 accuracy_vector[count] = mean(summary_matrix[1,]) ## vector with accuracies to find later maximum for plot
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	425 summary_iteration3 = cbind(rownames(summary_iteration), summary_matrix) ## include rownames in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	426 summary_iteration4 = t(summary_iteration3)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	427 summary_iteration5 = cbind(c(iteration, colnames(summary_iteration)), summary_iteration4)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	428 summary_ssccv[[count]] = summary_iteration5
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	429 iteration_vector[count] = unlist(strsplit(iteration, "[,]"))[3]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	430 count = count+1} ## create list with summary table for each component
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	431 summary_ssccv = do.call(rbind, summary_ssccv)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	432 summary_df = as.data.frame(summary_ssccv)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	433 colnames(summary_df) = NULL
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	434
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	435 ## plot to find parameters with highest accuracy
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	436 plot(c($type_cond.method_cond.ssc_s),accuracy_vector[!duplicated(iteration_vector)], type="o",ylab="Mean accuracy", xlab = "Shrinkage parameter (s)", main="Mean accuracy of SSC classification")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	437 best_params = names(msidata.cv.ssc@resultData[[1]][,1])[which.max(accuracy_vector)] ## find parameters with max. accuracy
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	438 r_value = as.numeric(substring(unlist(strsplit(best_params, ","))[1], 4))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	439 s_value = as.numeric(substring(unlist(strsplit(best_params, ","))[3], 5)) ## remove space
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	440 minimumy = min(coord(msidata.cv.ssc)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	441 maximumy = max(coord(msidata.cv.ssc)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	442 image(msidata.cv.ssc, model = list( r = r_value, s = s_value ), ylim= c(maximumy+0.2maximumy,minimumy-0.2minimumy),layout=c(2,2))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	443
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	444 ## print table with summary in pdf
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	445 par(opar)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	446 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	447 title(main="Summary for the different parameters\n", adj=0.5)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	448 ## 20 rows fits in one page:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	449 if (nrow(summary_df)<=20){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	450 grid.table(summary_df, rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	451 }else{
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	452 grid.table(summary_df[1:20,], rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	453 mincount = 21
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	454 maxcount = 40
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	455 for (count20 in 1:(ceiling(nrow(summary_df)/20)-1)){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	456 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	457 if (maxcount <= nrow(summary_df)){
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	458 grid.table(summary_df[mincount:maxcount,], rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	459 mincount = mincount+20
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	460 maxcount = maxcount+20
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	461 }else{### stop last page with last sample otherwise NA in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	462 grid.table(summary_df[mincount:nrow(summary_df),], rows= NULL)}
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	463 }
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	464 }
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	465
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	466 ## optional output as .RData
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	467 #if $output_rdata:
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	468 save(msidata.cv.ssc, file="$classification_rdata")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	469 #end if
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	470
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	471 ######################## SSC -analysis ###########################
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	472 #elif str( $type_cond.method_cond.ssc_analysis_cond.ssc_method) == "ssc_analysis":
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	473 print("SSC analysis")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	474
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	475 ## set variables for components and number of response groups
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	476 number_groups = length(levels(y_vector))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	477
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	478 ## SSC analysis and plot
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	479 msidata.ssc <- spatialShrunkenCentroids(msidata, y = y_vector, .fold = fold_vector,
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	480 r = c($type_cond.method_cond.ssc_r), s = c($type_cond.method_cond.ssc_s), method = "$type_cond.method_cond.ssc_kernel_method")
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	481 plot(msidata.ssc, mode = "tstatistics", model = list("r" = c($type_cond.method_cond.ssc_r), "s" = c($type_cond.method_cond.ssc_s)))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	482
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	483 ### summary table SSC
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	484 ##############summary_table = summary(msidata.ssc)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	485 summary_table = summary(msidata.ssc)\$accuracy[[names(msidata.ssc@resultData)]]
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	486 summary_table2 = round(as.numeric(summary_table), digits=2)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	487 summary_matrix = matrix(summary_table2, nrow=4, ncol=number_groups)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	488 summary_table3 = cbind(rownames(summary_table), summary_matrix) ## include rownames in table
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	489 summary_table4 = t(summary_table3)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	490 summary_table5 = cbind(c(names(msidata.ssc@resultData),colnames(summary_table)), summary_table4)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	491 plot(0,type='n',axes=FALSE,ann=FALSE)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	492 grid.table(summary_table5, rows= NULL)
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	493
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	494 ### image of the best m/z
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	495 minimumy = min(coord(msidata)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	496 maximumy = max(coord(msidata)[,2])
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	497 print(image(msidata, mz = topLabels(msidata.ssc)[1,1], normalize.image = "linear", contrast.enhance = "histogram",smooth.image="gaussian", ylim= c(maximumy+0.2maximumy,minimumy-0.2minimumy), main="best m/z heatmap"))
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	498
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	499 ## m/z and pixel information output
2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415 galaxyp parents: diff changeset	500 ssc_classes = data.frame(msidata.ssc\$classes[[1]])

0

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

1 <tool id="cardinal_classification" name="MSI classification" version="@VERSION@.0">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

2 <description>spatial classification of mass spectrometry imaging data</description>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

3 <macros>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

4 <import>macros.xml</import>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

5 </macros>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

6 <expand macro="requirements">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

7 <requirement type="package" version="2.2.1">r-gridextra</requirement>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

8 <requirement type="package" version="0.20-35">r-lattice</requirement>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

9 <requirement type="package" version="2.2.1">r-ggplot2</requirement>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

10 </expand>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

11 <command detect_errors="exit_code">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

12 <![CDATA[

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

13

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

14 @INPUT_LINKING@

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

15 cat '${MSI_segmentation}' &&

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

16 Rscript '${MSI_segmentation}'

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

17

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

18 ]]>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

19 </command>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

20 <configfiles>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

21 <configfile name="MSI_segmentation"><![CDATA[

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

22

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

23

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

24 ################################# load libraries and read file #########################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

25

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

26 library(Cardinal)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

27 library(gridExtra)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

28 library(lattice)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

29 library(ggplot2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

30

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

31 @READING_MSIDATA@

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

32

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

33 ## create full matrix to make processed imzML files compatible with classification

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

34 iData(msidata) <- iData(msidata)[]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

35

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

36 @DATA_PROPERTIES@

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

37

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

38 ######################################## PDF ###################################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

39 ################################################################################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

40 ################################################################################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

41

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

42 Title = "Prediction"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

43

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

44 #if str( $type_cond.type_method) == "training":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

45

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

46 Title = "$type_cond.method_cond.class_method"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

47 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

48

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

49 pdf("classificationpdf.pdf", fonts = "Times", pointsize = 12)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

50 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

51

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

52

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

53 title(main=paste0(Title," for file: \n\n", "$infile.display_name"))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

54

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

55

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

56 ##################### I) numbers and control plots #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

57 ###############################################################################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

58

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

59 ## table with values

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

60 grid.table(property_df, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

61

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

62

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

63 if (npeaks > 0 && sum(is.na(spectra(msidata)))==0){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

64

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

65 opar <- par()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

66

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

67 ######################## II) Training #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

68 #############################################################################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

69 #if str( $type_cond.type_method) == "training":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

70 print("training")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

71

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

72

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

73 ## load y response (will be needed in every training scenario)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

74

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

75 y_tabular = read.delim("$type_cond.annotation_file", header = $type_cond.tabular_header, stringsAsFactors = FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

76

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

77 #if str($type_cond.column_fold) == "None":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

78 y_input = y_tabular[,c($type_cond.column_x, $type_cond.column_y, $type_cond.column_response)]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

79 #else

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

80 y_input = y_tabular[,c($type_cond.column_x, $type_cond.column_y, $type_cond.column_response, $type_cond.column_fold)]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

81 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

82

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

83 colnames(y_input)[1:2] = c("x", "y")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

84 ## merge with coordinate information of msidata

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

85 msidata_coordinates = cbind(coord(msidata)[,1:2], c(1:ncol(msidata)))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

86 colnames(msidata_coordinates)[3] = "pixel_index"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

87 merged_response = merge(msidata_coordinates, y_input, by=c("x", "y"), all.x=TRUE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

88 merged_response[is.na(merged_response)] = "NA"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

89 merged_response = merged_response[order(merged_response\$pixel_index),]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

90 y_vector = as.factor(merged_response[,4])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

91

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

92 ## plot of y vector

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

93

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

94 position_df = cbind(coord(msidata)[,1:2], y_vector)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

95 y_plot = ggplot(position_df, aes(x=x, y=y, fill=y_vector))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

96 geom_tile() +

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

97 coord_fixed()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

98 ggtitle("Distribution of the response variable y")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

99 theme_bw()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

100 theme(text=element_text(family="ArialMT", face="bold", size=15))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

101 theme(legend.position="bottom",legend.direction="vertical")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

102 guides(fill=guide_legend(ncol=4,byrow=TRUE))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

103 coord_labels = aggregate(cbind(x,y)~y_vector, data=position_df, mean, na.rm=TRUE, na.action="na.pass")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

104 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$y_vector)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

105 print(y_plot)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

106

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

107

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

108 ## plot of folds

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

109

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

110 #if str($type_cond.column_fold) != "None":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

111 fold_vector = as.factor(merged_response[,5])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

112

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

113

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

114 position_df = cbind(coord(msidata)[,1:2], fold_vector)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

115 fold_plot = ggplot(position_df, aes(x=x, y=y, fill=fold_vector))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

116 geom_tile() +

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

117 coord_fixed()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

118 ggtitle("Distribution of the fold variable")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

119 theme_bw()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

120 theme(text=element_text(family="ArialMT", face="bold", size=15))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

121 theme(legend.position="bottom",legend.direction="vertical")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

122 guides(fill=guide_legend(ncol=4,byrow=TRUE))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

123 coord_labels = aggregate(cbind(x,y)~fold_vector, data=position_df, mean, na.rm=TRUE, na.action="na.pass")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

124 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$fold_vector)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

125 print(fold_plot)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

126

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

127 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

128

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

129 ######################## PLS #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

130 #if str( $type_cond.method_cond.class_method) == "PLS":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

131 print("PLS")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

132

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

133 ######################## PLS - CV #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

134 #if str( $type_cond.method_cond.analysis_cond.PLS_method) == "cvapply":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

135 print("PLS cv")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

136

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

137 ## set variables for components and number of response groups

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

138 components = c($type_cond.method_cond.analysis_cond.plscv_comp)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

139 number_groups = length(levels(y_vector))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

140

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

141 ## PLS-cvApply:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

142 msidata.cv.pls <- cvApply(msidata, .y = y_vector, .fold = fold_vector, .fun = "PLS", ncomp = components)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

143

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

144 ## create table with summary

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

145 count = 1

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

146 summary_plscv = list()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

147 accuracy_vector = numeric()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

148 for (iteration in components){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

149 summary_iteration = summary(msidata.cv.pls)\$accuracy[[paste0("ncomp = ", iteration)]]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

150 ## change class of numbers into numeric to round and calculate mean

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

151 summary_iteration2 = round(as.numeric(summary_iteration), digits=2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

152 summary_matrix = matrix(summary_iteration2, nrow=4, ncol=number_groups)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

153 accuracy_vector[count] = mean(summary_matrix[1,]) ## vector with accuracies to find later maximum for plot

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

154 summary_iteration3 = cbind(rownames(summary_iteration), summary_matrix) ## include rownames in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

155 summary_iteration4 = t(summary_iteration3)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

156 summary_iteration5 = cbind(c(paste0("ncomp = ", iteration), colnames(summary_iteration)), summary_iteration4)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

157 summary_plscv[[count]] = summary_iteration5

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

158 count = count+1} ## create list with summary table for each component

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

159 summary_plscv = do.call(rbind, summary_plscv)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

160 summary_df = as.data.frame(summary_plscv)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

161 colnames(summary_df) = NULL

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

162

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

163 ## plots

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

164 ## plot to find ncomp with highest accuracy

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

165 plot(components, accuracy_vector, ylab = "mean accuracy",type="o", main="Mean accuracy of PLS classification")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

166 ncomp_max = components[which.max(accuracy_vector)] ## find ncomp with max. accuracy

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

167 ## one image for each sample/fold, 4 images per page

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

168 minimumy = min(coord(msidata.cv.pls)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

169 maximumy = max(coord(msidata.cv.pls)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

170 image(msidata.cv.pls, model = list(ncomp = ncomp_max),ylim= c(maximumy+0.2*maximumy,minimumy-0.2*minimumy),layout = c(2, 2))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

171

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

172 ## print table with summary in pdf

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

173 par(opar)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

174 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

175 title(main="Summary for the different components\n", adj=0.5)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

176 ## 20 rows fits in one page:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

177 if (nrow(summary_df)<=20){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

178 grid.table(summary_df, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

179 }else{

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

180 grid.table(summary_df[1:20,], rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

181 mincount = 21

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

182 maxcount = 40

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

183 for (count20 in 1:(ceiling(nrow(summary_df)/20)-1)){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

184 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

185 if (maxcount <= nrow(summary_df)){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

186 grid.table(summary_df[mincount:maxcount,], rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

187 mincount = mincount+20

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

188 maxcount = maxcount+20

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

189 }else{### stop last page with last sample otherwise NA in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

190 grid.table(summary_df[mincount:nrow(summary_df),], rows= NULL)}

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

191 }

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

192 }

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

193

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

194 ## optional output as .RData

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

195 #if $output_rdata:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

196 save(msidata.cv.pls, file="$classification_rdata")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

197 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

198

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

199

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

200 ######################## PLS - analysis ###########################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

201 #elif str( $type_cond.method_cond.analysis_cond.PLS_method) == "PLS_analysis":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

202 print("PLS analysis")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

203

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

204 ## set variables for components and number of response groups

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

205 component = c($type_cond.method_cond.analysis_cond.pls_comp)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

206 number_groups = length(levels(y_vector))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

207

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

208 ### pls analysis and coefficients plot

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

209 msidata.pls <- PLS(msidata, y = y_vector, ncomp = component, scale=$type_cond.method_cond.analysis_cond.pls_scale)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

210 plot(msidata.pls, main="PLS coefficients per m/z")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

211

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

212 ### summary table of PLS

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

213 summary_table = summary(msidata.pls)\$accuracy[[paste0("ncomp = ",component)]]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

214 summary_table2 = round(as.numeric(summary_table), digits=2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

215 summary_matrix = matrix(summary_table2, nrow=4, ncol=number_groups)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

216 summary_table3 = cbind(rownames(summary_table), summary_matrix) ## include rownames in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

217 summary_table4 = t(summary_table3)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

218 summary_table5 = cbind(c(paste0("ncomp = ", component), colnames(summary_table)), summary_table4)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

219 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

220 grid.table(summary_table5, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

221

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

222 ### image of the best m/z

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

223 minimumy = min(coord(msidata)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

224 maximumy = max(coord(msidata)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

225 print(image(msidata, mz = topLabels(msidata.pls)[1,1], normalize.image = "linear", contrast.enhance = "histogram",ylim= c(maximumy+0.2*maximumy,minimumy-0.2*minimumy), smooth.image="gaussian", main="best m/z heatmap"))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

226

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

227 ### m/z and pixel information output

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

228 pls_classes = data.frame(msidata.pls\$classes[[1]])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

229 pixel_names = gsub(", y = ", "_", names(pixels(msidata)))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

230 pixel_names = gsub(" = ", "y_", pixel_names)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

231 x_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,2]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

232 y_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,3]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

233

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

234 pls_classes2 = data.frame(pixel_names, x_coordinates, y_coordinates, pls_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

235 colnames(pls_classes2) = c("pixel names", "x", "y","predicted condition")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

236 pls_toplabels = topLabels(msidata.pls, n=$type_cond.method_cond.analysis_cond.pls_toplabels)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

237 write.table(pls_toplabels, file="$mzfeatures", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

238 write.table(pls_classes2, file="$pixeloutput", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

239

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

240 ## image with predicted classes

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

241 prediction_df = cbind(coord(msidata.pls)[,1:2], pls_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

242 colnames(prediction_df) = c("x", "y", "predicted_classes")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

243

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

244 prediction_plot = ggplot(prediction_df, aes(x=x, y=y, fill=predicted_classes))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

245 geom_tile() +

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

246 coord_fixed()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

247 ggtitle("Predicted condition for each pixel")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

248 theme_bw()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

249 theme(text=element_text(family="ArialMT", face="bold", size=15))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

250 theme(legend.position="bottom",legend.direction="vertical")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

251 guides(fill=guide_legend(ncol=4,byrow=TRUE))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

252 coord_labels = aggregate(cbind(x,y)~predicted_classes, data=prediction_df, mean, na.rm=TRUE, na.action="na.pass")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

253 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$predicted_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

254 print(prediction_plot)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

255

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

256 ### optional output as .RData

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

257 #if $output_rdata:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

258 save(msidata.pls, file="$classification_rdata")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

259 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

260

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

261 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

262

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

263 ######################## OPLS #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

264 #elif str( $type_cond.method_cond.class_method) == "OPLS":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

265 print("OPLS")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

266

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

267 ######################## OPLS -CV #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

268 #if str( $type_cond.method_cond.opls_analysis_cond.opls_method) == "opls_cvapply":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

269 print("OPLS cv")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

270

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

271 ## set variables for components and number of response groups

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

272 components = c($type_cond.method_cond.opls_analysis_cond.opls_cvcomp)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

273 number_groups = length(levels(y_vector))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

274

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

275 ## OPLS-cvApply:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

276 msidata.cv.opls <- cvApply(msidata, .y = y_vector, .fold = fold_vector, .fun = "OPLS", ncomp = components, keep.Xnew = $type_cond.method_cond.opls_analysis_cond.xnew_cv)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

277

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

278 ## create table with summary

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

279 count = 1

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

280 summary_oplscv = list()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

281 accuracy_vector = numeric()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

282 for (iteration in components){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

283

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

284 summary_iteration = summary(msidata.cv.opls)\$accuracy[[paste0("ncomp = ", iteration)]]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

285 ## change class of numbers into numeric to round and calculate mean

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

286 summary_iteration2 = round(as.numeric(summary_iteration), digits=2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

287 summary_matrix = matrix(summary_iteration2, nrow=4, ncol=number_groups)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

288 accuracy_vector[count] = mean(summary_matrix[1,]) ## vector with accuracies to find later maximum for plot

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

289 summary_iteration3 = cbind(rownames(summary_iteration), summary_matrix) ## include rownames in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

290 summary_iteration4 = t(summary_iteration3)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

291 summary_iteration5 = cbind(c(paste0("ncomp = ", iteration), colnames(summary_iteration)), summary_iteration4)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

292 summary_oplscv[[count]] = summary_iteration5

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

293 count = count+1} ## create list with summary table for each component

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

294 summary_oplscv = do.call(rbind, summary_oplscv)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

295 summary_df = as.data.frame(summary_oplscv)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

296 colnames(summary_df) = NULL

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

297

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

298 ## plots

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

299 ## plot to find ncomp with highest accuracy

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

300 plot(components, accuracy_vector, ylab = "mean accuracy", type="o", main="Mean accuracy of OPLS classification")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

301 ncomp_max = components[which.max(accuracy_vector)] ## find ncomp with max. accuracy

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

302 ## one image for each sample/fold, 4 images per page

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

303 minimumy = min(coord(msidata.cv.opls)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

304 maximumy = max(coord(msidata.cv.opls)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

305 image(msidata.cv.opls, model = list(ncomp = ncomp_max),ylim= c(maximumy+0.2*maximumy,minimumy-0.2*minimumy),layout = c(2, 2))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

306

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

307 ## print table with summary in pdf

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

308 par(opar)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

309 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

310 title(main="Summary for the different components\n", adj=0.5)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

311 ## 20 rows fits in one page:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

312 if (nrow(summary_df)<=20){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

313 grid.table(summary_df, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

314 }else{

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

315 grid.table(summary_df[1:20,], rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

316 mincount = 21

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

317 maxcount = 40

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

318 for (count20 in 1:(ceiling(nrow(summary_df)/20)-1)){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

319 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

320 if (maxcount <= nrow(summary_df)){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

321 grid.table(summary_df[mincount:maxcount,], rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

322 mincount = mincount+20

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

323 maxcount = maxcount+20

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

324 }else{### stop last page with last sample otherwise NA in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

325 grid.table(summary_df[mincount:nrow(summary_df),], rows= NULL)}

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

326 }

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

327 }

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

328

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

329 ## optional output as .RData

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

330 #if $output_rdata:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

331 save(msidata.cv.opls, file="$classification_rdata")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

332 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

333

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

334

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

335 ######################## OPLS -analysis ###########################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

336 #elif str( $type_cond.method_cond.opls_analysis_cond.opls_method) == "opls_analysis":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

337 print("OPLS analysis")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

338

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

339 ## set variables for components and number of response groups

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

340 component = c($type_cond.method_cond.opls_analysis_cond.opls_comp)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

341 number_groups = length(levels(y_vector))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

342

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

343

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

344 ### opls analysis and coefficients plot

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

345 msidata.opls <- PLS(msidata, y = y_vector, ncomp = component, scale=$type_cond.method_cond.opls_analysis_cond.opls_scale, keep.Xnew = $type_cond.method_cond.opls_analysis_cond.xnew)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

346 plot(msidata.opls, main="OPLS coefficients per m/z")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

347

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

348 ### summary table of OPLS

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

349 summary_table = summary(msidata.opls)\$accuracy[[paste0("ncomp = ",component)]]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

350 summary_table2 = round(as.numeric(summary_table), digits=2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

351 summary_matrix = matrix(summary_table2, nrow=4, ncol=number_groups)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

352 summary_table3 = cbind(rownames(summary_table), summary_matrix) ## include rownames in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

353 summary_table4 = t(summary_table3)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

354 summary_table5 = cbind(c(paste0("ncomp = ", component), colnames(summary_table)), summary_table4)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

355 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

356 grid.table(summary_table5, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

357

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

358 ### image of the best m/z

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

359 minimumy = min(coord(msidata)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

360 maximumy = max(coord(msidata)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

361 print(image(msidata, mz = topLabels(msidata.opls)[1,1], normalize.image = "linear", contrast.enhance = "histogram",smooth.image="gaussian", ylim= c(maximumy+0.2*maximumy,minimumy-0.2*minimumy), main="best m/z heatmap"))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

362

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

363 ## m/z and pixel information output

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

364 opls_classes = data.frame(msidata.opls\$classes[[1]])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

365 pixel_names = gsub(", y = ", "_", names(pixels(msidata)))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

366 pixel_names = gsub(" = ", "y_", pixel_names)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

367 x_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,2]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

368 y_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,3]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

369 opls_classes2 = data.frame(pixel_names, x_coordinates, y_coordinates, opls_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

370 colnames(opls_classes2) = c("pixel names", "x", "y","predicted condition")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

371

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

372 opls_toplabels = topLabels(msidata.opls, n=$type_cond.method_cond.opls_analysis_cond.opls_toplabels)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

373 write.table(opls_toplabels, file="$mzfeatures", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

374 write.table(opls_classes2, file="$pixeloutput", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

375

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

376 ## image with predicted classes

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

377 prediction_df = cbind(coord(msidata.opls)[,1:2], opls_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

378 colnames(prediction_df) = c("x", "y", "predicted_classes")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

379

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

380 prediction_plot = ggplot(prediction_df, aes(x=x, y=y, fill=predicted_classes))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

381 geom_tile() +

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

382 coord_fixed()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

383 ggtitle("Predicted condition for each pixel")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

384 theme_bw()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

385 theme(text=element_text(family="ArialMT", face="bold", size=15))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

386 theme(legend.position="bottom",legend.direction="vertical")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

387 guides(fill=guide_legend(ncol=4,byrow=TRUE))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

388 coord_labels = aggregate(cbind(x,y)~predicted_classes, data=prediction_df, mean, na.rm=TRUE, na.action="na.pass")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

389 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$predicted_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

390 print(prediction_plot)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

391

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

392 ## optional output as .RData

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

393 #if $output_rdata:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

394 save(msidata.opls, file="$classification_rdata")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

395 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

396 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

397

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

398

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

399 ######################## SSC #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

400 #elif str( $type_cond.method_cond.class_method) == "spatialShrunkenCentroids":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

401 print("SSC")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

402

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

403 ######################## SSC - CV #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

404 #if str( $type_cond.method_cond.ssc_analysis_cond.ssc_method) == "ssc_cvapply":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

405 print("SSC cv")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

406

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

407 ## set variables for components and number of response groups

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

408 number_groups = length(levels(y_vector))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

409

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

410 ## SSC-cvApply:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

411 msidata.cv.ssc <- cvApply(msidata, .y = y_vector,.fold = fold_vector,.fun = "spatialShrunkenCentroids", r = c($type_cond.method_cond.ssc_r), s = c($type_cond.method_cond.ssc_s), method = "$type_cond.method_cond.ssc_kernel_method")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

412

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

413 ## create table with summary

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

414 count = 1

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

415 summary_ssccv = list()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

416 accuracy_vector = numeric()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

417 iteration_vector = character()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

418 for (iteration in names(msidata.cv.ssc@resultData[[1]][,1])){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

419

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

420 summary_iteration = summary(msidata.cv.ssc)\$accuracy[[iteration]]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

421 ## change class of numbers into numeric to round and calculate mean

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

422 summary_iteration2 = round(as.numeric(summary_iteration), digits=2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

423 summary_matrix = matrix(summary_iteration2, nrow=4, ncol=number_groups)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

424 accuracy_vector[count] = mean(summary_matrix[1,]) ## vector with accuracies to find later maximum for plot

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

425 summary_iteration3 = cbind(rownames(summary_iteration), summary_matrix) ## include rownames in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

426 summary_iteration4 = t(summary_iteration3)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

427 summary_iteration5 = cbind(c(iteration, colnames(summary_iteration)), summary_iteration4)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

428 summary_ssccv[[count]] = summary_iteration5

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

429 iteration_vector[count] = unlist(strsplit(iteration, "[,]"))[3]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

430 count = count+1} ## create list with summary table for each component

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

431 summary_ssccv = do.call(rbind, summary_ssccv)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

432 summary_df = as.data.frame(summary_ssccv)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

433 colnames(summary_df) = NULL

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

434

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

435 ## plot to find parameters with highest accuracy

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

436 plot(c($type_cond.method_cond.ssc_s),accuracy_vector[!duplicated(iteration_vector)], type="o",ylab="Mean accuracy", xlab = "Shrinkage parameter (s)", main="Mean accuracy of SSC classification")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

437 best_params = names(msidata.cv.ssc@resultData[[1]][,1])[which.max(accuracy_vector)] ## find parameters with max. accuracy

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

438 r_value = as.numeric(substring(unlist(strsplit(best_params, ","))[1], 4))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

439 s_value = as.numeric(substring(unlist(strsplit(best_params, ","))[3], 5)) ## remove space

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

440 minimumy = min(coord(msidata.cv.ssc)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

441 maximumy = max(coord(msidata.cv.ssc)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

442 image(msidata.cv.ssc, model = list( r = r_value, s = s_value ), ylim= c(maximumy+0.2*maximumy,minimumy-0.2*minimumy),layout=c(2,2))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

443

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

444 ## print table with summary in pdf

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

445 par(opar)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

446 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

447 title(main="Summary for the different parameters\n", adj=0.5)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

448 ## 20 rows fits in one page:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

449 if (nrow(summary_df)<=20){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

450 grid.table(summary_df, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

451 }else{

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

452 grid.table(summary_df[1:20,], rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

453 mincount = 21

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

454 maxcount = 40

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

455 for (count20 in 1:(ceiling(nrow(summary_df)/20)-1)){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

456 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

457 if (maxcount <= nrow(summary_df)){

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

458 grid.table(summary_df[mincount:maxcount,], rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

459 mincount = mincount+20

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

460 maxcount = maxcount+20

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

461 }else{### stop last page with last sample otherwise NA in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

462 grid.table(summary_df[mincount:nrow(summary_df),], rows= NULL)}

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

463 }

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

464 }

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

465

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

466 ## optional output as .RData

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

467 #if $output_rdata:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

468 save(msidata.cv.ssc, file="$classification_rdata")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

469 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

470

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

471 ######################## SSC -analysis ###########################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

472 #elif str( $type_cond.method_cond.ssc_analysis_cond.ssc_method) == "ssc_analysis":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

473 print("SSC analysis")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

474

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

475 ## set variables for components and number of response groups

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

476 number_groups = length(levels(y_vector))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

477

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

478 ## SSC analysis and plot

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

479 msidata.ssc <- spatialShrunkenCentroids(msidata, y = y_vector, .fold = fold_vector,

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

480 r = c($type_cond.method_cond.ssc_r), s = c($type_cond.method_cond.ssc_s), method = "$type_cond.method_cond.ssc_kernel_method")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

481 plot(msidata.ssc, mode = "tstatistics", model = list("r" = c($type_cond.method_cond.ssc_r), "s" = c($type_cond.method_cond.ssc_s)))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

482

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

483 ### summary table SSC

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

484 ##############summary_table = summary(msidata.ssc)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

485 summary_table = summary(msidata.ssc)\$accuracy[[names(msidata.ssc@resultData)]]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

486 summary_table2 = round(as.numeric(summary_table), digits=2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

487 summary_matrix = matrix(summary_table2, nrow=4, ncol=number_groups)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

488 summary_table3 = cbind(rownames(summary_table), summary_matrix) ## include rownames in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

489 summary_table4 = t(summary_table3)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

490 summary_table5 = cbind(c(names(msidata.ssc@resultData),colnames(summary_table)), summary_table4)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

491 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

492 grid.table(summary_table5, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

493

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

494 ### image of the best m/z

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

495 minimumy = min(coord(msidata)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

496 maximumy = max(coord(msidata)[,2])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

497 print(image(msidata, mz = topLabels(msidata.ssc)[1,1], normalize.image = "linear", contrast.enhance = "histogram",smooth.image="gaussian", ylim= c(maximumy+0.2*maximumy,minimumy-0.2*minimumy), main="best m/z heatmap"))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

498

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

499 ## m/z and pixel information output

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

500 ssc_classes = data.frame(msidata.ssc\$classes[[1]])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

501 pixel_names = gsub(", y = ", "_", names(pixels(msidata)))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

502 pixel_names = gsub(" = ", "y_", pixel_names)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

503 x_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,2]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

504 y_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,3]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

505 ssc_classes2 = data.frame(pixel_names, x_coordinates, y_coordinates, ssc_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

506 colnames(ssc_classes2) = c("pixel names", "x", "y","predicted condition")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

507 ssc_toplabels = topLabels(msidata.ssc, n=$type_cond.method_cond.ssc_analysis_cond.ssc_toplabels)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

508 write.table(ssc_toplabels, file="$mzfeatures", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

509 write.table(ssc_classes2, file="$pixeloutput", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

510

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

511 ## image with predicted classes

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

512 prediction_df = cbind(coord(msidata.ssc)[,1:2], ssc_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

513 colnames(prediction_df) = c("x", "y", "predicted_classes")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

514

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

515 prediction_plot = ggplot(prediction_df, aes(x=x, y=y, fill=predicted_classes))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

516 geom_tile() +

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

517 coord_fixed()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

518 ggtitle("Predicted condition for each pixel")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

519 theme_bw()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

520 theme(text=element_text(family="ArialMT", face="bold", size=15))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

521 theme(legend.position="bottom",legend.direction="vertical")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

522 guides(fill=guide_legend(ncol=4,byrow=TRUE))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

523 coord_labels = aggregate(cbind(x,y)~predicted_classes, data=prediction_df, mean, na.rm=TRUE, na.action="na.pass")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

524 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$predicted_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

525 print(prediction_plot)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

526

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

527

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

528 ## optional output as .RData

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

529 #if $output_rdata:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

530 save(msidata.ssc, file="$classification_rdata")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

531 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

532

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

533 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

534 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

535

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

536

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

537

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

538 ######################## II) Prediction #############################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

539 #############################################################################

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

540

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

541 #elif str($type_cond.type_method) == "prediction":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

542 print("prediction")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

543

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

544 training_data = loadRData("$type_cond.training_result")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

545

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

546 #if str($type_cond.new_y_values_cond.new_y_values) == "new_response":

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

547 print("new response")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

548

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

549 new_y_tabular = read.delim("$type_cond.new_y_values_cond.new_response_file", header = $type_cond.new_y_values_cond.new_tabular_header, stringsAsFactors = FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

550 new_y_input = new_y_tabular[,c($type_cond.new_y_values_cond.column_new_x, $type_cond.new_y_values_cond.column_new_y, $type_cond.new_y_values_cond.column_new_response)]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

551 colnames(new_y_input)[1:2] = c("x", "y")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

552 ## merge with coordinate information of msidata

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

553 msidata_coordinates = cbind(coord(msidata)[,1:2], c(1:ncol(msidata)))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

554 colnames(msidata_coordinates)[3] = "pixel_index"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

555 merged_response = merge(msidata_coordinates, new_y_input, by=c("x", "y"), all.x=TRUE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

556 merged_response[is.na(merged_response)] = "NA"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

557 merged_response = merged_response[order(merged_response\$pixel_index),]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

558 new_y_vector = as.factor(merged_response[,4])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

559 prediction = predict(training_data,msidata, newy = new_y_vector)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

560

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

561 #else

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

562 prediction = predict(training_data,msidata)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

563 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

564

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

565 ## m/z and pixel information output

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

566 predicted_classes = data.frame(prediction\$classes[[1]])

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

567 pixel_names = gsub(", y = ", "_", names(pixels(msidata)))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

568 pixel_names = gsub(" = ", "y_", pixel_names)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

569 x_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,2]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

570 y_coordinates = matrix(unlist(strsplit(pixel_names, "_")), ncol=3, byrow=TRUE)[,3]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

571 predicted_classes2 = data.frame(pixel_names, x_coordinates, y_coordinates, predicted_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

572 colnames(predicted_classes2) = c("pixel names", "x", "y","predicted condition")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

573 predicted_toplabels = topLabels(prediction, n=$type_cond.predicted_toplabels)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

574 write.table(predicted_toplabels, file="$mzfeatures", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

575 write.table(predicted_classes2, file="$pixeloutput", quote = FALSE, row.names = FALSE, col.names=TRUE, sep = "\t")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

576

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

577 ## image with predicted classes

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

578

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

579 prediction_df = cbind(coord(prediction)[,1:2], predicted_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

580 colnames(prediction_df) = c("x", "y", "predicted_classes")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

581

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

582 prediction_plot = ggplot(prediction_df, aes(x=x, y=y, fill=predicted_classes))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

583 geom_tile() +

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

584 coord_fixed()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

585 ggtitle("Predicted condition for each pixel")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

586 theme_bw()+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

587 theme(text=element_text(family="ArialMT", face="bold", size=15))+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

588 theme(legend.position="bottom",legend.direction="vertical")+

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

589 guides(fill=guide_legend(ncol=4,byrow=TRUE))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

590 coord_labels = aggregate(cbind(x,y)~predicted_classes, data=prediction_df, mean, na.rm=TRUE, na.action="na.pass")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

591 coord_labels\$file_number = gsub( "_.*$", "", coord_labels\$predicted_classes)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

592 print(prediction_plot)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

593

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

594 ## Summary table prediction

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

595 summary_table = summary(prediction)\$accuracy[[names(prediction@resultData)]]

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

596 summary_table2 = round(as.numeric(summary_table), digits=2)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

597 summary_matrix = matrix(summary_table2, nrow=4, ncol=ncol(summary_table))

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

598 summary_table3 = cbind(rownames(summary_table), summary_matrix) ## include rownames in table

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

599 summary_table4 = t(summary_table3)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

600 summary_table5 = cbind(c(names(prediction@resultData),colnames(summary_table)), summary_table4)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

601 plot(0,type='n',axes=FALSE,ann=FALSE)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

602 grid.table(summary_table5, rows= NULL)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

603

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

604 ## optional output as .RData

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

605 #if $output_rdata:

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

606 msidata = prediction

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

607 save(msidata, file="$classification_rdata")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

608 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

609

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

610 #end if

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

611

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

612 dev.off()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

613

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

614 }else{

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

615 print("Inputfile has no intensities > 0 or contains NA values")

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

616 dev.off()

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

617 }

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

618

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

619

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

620 ]]></configfile>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

621 </configfiles>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

622 <inputs>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

623 <expand macro="reading_msidata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

624 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

625 <param name="type_method" type="select" label="Analysis step to perform">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

626 <option value="training" selected="True">training</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

627 <option value="prediction">prediction</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

628 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

629 <when value="training">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

630

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

631 <param name="annotation_file" type="data" format="tabular" label="Load tabular file with pixel coordinates and their classes"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

632 help="Three or four columns: x values, y values, response values, optionally fold values"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

633 <param name="column_x" data_ref="annotation_file" label="Column with x values" type="data_column"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

634 <param name="column_y" data_ref="annotation_file" label="Column with y values" type="data_column"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

635 <param name="column_response" data_ref="annotation_file" label="Column with response (condition) values" type="data_column" help="This is the condition (pixel group) which will be classified"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

636 <param name="column_fold" data_ref="annotation_file" optional="True" label="Column with fold values - only neccessary for cvapply" type="data_column" help="Each fold must contain pixels of all response groups and is used for cross validation"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

637 <param name="tabular_header" type="boolean" label="Tabular files contain a header line" truevalue="TRUE" falsevalue="FALSE"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

638

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

639 <conditional name="method_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

640 <param name="class_method" type="select" label="Select the method for classification">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

641 <option value="PLS" selected="True">PLS-DA</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

642 <option value="OPLS">OPLS-DA</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

643 <option value="spatialShrunkenCentroids">spatial shrunken centroids</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

644 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

645 <when value="PLS">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

646

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

647 <conditional name="analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

648 <param name="PLS_method" type="select" label="Crossvalidation or analysis">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

649 <option value="cvapply" selected="True">cvApply</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

650 <option value="PLS_analysis">PLS-DA analysis</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

651 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

652 <when value="cvapply">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

653 <param name="plscv_comp" type="text" value="1:2"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

654 label="The number of PLS-DA components" help="For cvapply multiple values are allowed (e.g. 1,2,3 or 2:5)">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

655 <expand macro="sanitizer_multiple_digits"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

656 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

657 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

658 <when value="PLS_analysis">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

659 <param name="pls_comp" type="integer" value="5"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

660 label="The optimal number of PLS-DA components as indicated by cross-validations" help="Run cvApply first to optain optiaml number of PLS-DA components"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

661 <param name="pls_scale" type="boolean" label="Data scaling" truevalue="TRUE" falsevalue="FALSE"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

662 <param name="pls_toplabels" type="integer" value="100"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

663 label="Number of toplabels (m/z features) which should be written in tabular output"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

664 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

665 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

666 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

667

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

668 <when value="OPLS">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

669

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

670 <conditional name="opls_analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

671 <param name="opls_method" type="select" label="Analysis step to perform">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

672 <option value="opls_cvapply" selected="True">cvApply</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

673 <option value="opls_analysis">OPLS-DA analysis</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

674 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

675

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

676 <when value="opls_cvapply">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

677 <param name="opls_cvcomp" type="text" value="1:2"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

678 label="The number of OPLS-DA components" help="For cvapply multiple values are allowed (e.g. 1,2,3 or 2:5)">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

679 <expand macro="sanitizer_multiple_digits"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

680 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

681 <param name="xnew_cv" type="boolean" truevalue="TRUE" falsevalue="FALSE" label="Keep new matrix"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

682 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

683

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

684 <when value="opls_analysis">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

685 <param name="opls_comp" type="integer" value="5"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

686 label="The optimal number of OPLS-DA components as indicated by cross-validations" help="Run cvApply first to optain optiaml number of OPLS-DA components"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

687 <param name="xnew" type="boolean" truevalue="TRUE" falsevalue="FALSE" label="Keep new matrix"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

688 <param name="opls_scale" type="boolean" truevalue="TRUE" falsevalue="FALSE" label="Data scaling"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

689 <param name="opls_toplabels" type="integer" value="100"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

690 label="Number of toplabels (m/z features) which should be written in tabular output"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

691 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

692 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

693 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

694

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

695 <when value="spatialShrunkenCentroids">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

696 <conditional name="ssc_analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

697 <param name="ssc_method" type="select" label="Analysis step to perform">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

698 <option value="ssc_cvapply" selected="True">cvApply</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

699 <option value="ssc_analysis">spatial shrunken centroids analysis</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

700 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

701 <when value="ssc_cvapply"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

702

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

703 <when value="ssc_analysis">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

704 <param name="ssc_toplabels" type="integer" value="100"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

705 label="Number of toplabels (m/z features) which should be written in tabular output"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

706 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

707 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

708 <param name="ssc_r" type="text" value="2"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

709 label="The spatial neighborhood radius of nearby pixels to consider (r)" help="For cvapply multiple values are allowed (e.g. 1,2,3 or 2:5)">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

710 <expand macro="sanitizer_multiple_digits"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

711 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

712 <param name="ssc_s" type="text" value="2"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

713 label="The sparsity thresholding parameter by which to shrink the t-statistics (s)" help="For cvapply multiple values are allowed (e.g. 1,2,3 or 2:5)">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

714 <expand macro="sanitizer_multiple_digits"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

715 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

716 <param name="ssc_kernel_method" type="select" display="radio" label = "The method to use to calculate the spatial smoothing kernels for the embedding. The 'gaussian' method refers to spatially-aware (SA) weights, and 'adaptive' refers to spatially-aware structurally-adaptive (SASA) weights">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

717 <option value="gaussian">gaussian</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

718 <option value="adaptive" selected="True">adaptive</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

719 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

720

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

721 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

722 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

723 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

724

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

725 <when value="prediction">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

726 <param name="training_result" type="data" format="rdata" label="Result from previous classification training"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

727 <param name="predicted_toplabels" type="integer" value="100"

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

728 label="Number of toplabels (m/z features) which should be written in tabular output"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

729 <conditional name="new_y_values_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

730 <param name="new_y_values" type="select" label="Should new response values be used">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

731 <option value="no_new_response" selected="True">old response should be used</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

732 <option value="new_response">load new response from tabular file</option>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

733 </param>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

734 <when value="no_new_response"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

735 <when value="new_response">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

736 <param name="new_response_file" type="data" format="tabular" label="Load tabular file with pixel coordinates and the new response"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

737 <param name="column_new_x" data_ref="new_response_file" label="Column with x values" type="data_column"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

738 <param name="column_new_y" data_ref="new_response_file" label="Column with y values" type="data_column"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

739 <param name="column_new_response" data_ref="new_response_file" label="Column with new response values" type="data_column"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

740 <param name="new_tabular_header" type="boolean" label="Tabular files contain a header line" truevalue="TRUE" falsevalue="FALSE"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

741 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

742 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

743 </when>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

744 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

745 <param name="output_rdata" type="boolean" label="Results as .RData output" help="Can be used to generate a classification prediction on new data"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

746 </inputs>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

747 <outputs>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

748 <data format="pdf" name="classification_images" from_work_dir="classificationpdf.pdf" label = "${tool.name} on ${on_string}"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

749 <data format="tabular" name="mzfeatures" label="${tool.name} on ${on_string}: features"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

750 <data format="tabular" name="pixeloutput" label="${tool.name} on ${on_string}: pixels"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

751 <data format="rdata" name="classification_rdata" label="${tool.name} on ${on_string}: results.RData">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

752 <filter>output_rdata</filter>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

753 </data>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

754 </outputs>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

755 <tests>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

756 <test expect_num_outputs="3">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

757 <param name="infile" value="testfile_squares.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

758 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

759 <param name="type_method" value="training"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

760 <param name="annotation_file" value= "pixel_annotation_file1.tabular" ftype="tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

761 <param name="column_x" value="1"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

762 <param name="column_y" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

763 <param name="column_response" value="4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

764 <param name="column_fold" value="3"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

765 <param name="tabular_header" value="False"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

766 <conditional name="method_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

767 <param name="class_method" value="PLS"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

768 <conditional name="analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

769 <param name="PLS_method" value="cvapply"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

770 <param name="plscv_comp" value="2:4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

771 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

772 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

773 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

774 <output name="mzfeatures" file="features_test1.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

775 <output name="pixeloutput" file="pixels_test1.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

776 <output name="classification_images" file="test1.pdf" compare="sim_size" delta="2000"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

777 </test>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

778

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

779 <test expect_num_outputs="4">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

780 <param name="infile" value="testfile_squares.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

781 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

782 <param name="type_method" value="training"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

783 <param name="annotation_file" value= "pixel_annotation_file1.tabular" ftype="tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

784 <param name="column_x" value="1"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

785 <param name="column_y" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

786 <param name="column_response" value="4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

787 <param name="tabular_header" value="False"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

788 <conditional name="method_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

789 <param name="class_method" value="PLS"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

790 <conditional name="analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

791 <param name="PLS_method" value="PLS_analysis"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

792 <param name="pls_comp" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

793 <param name="pls_scale" value="TRUE"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

794 <param name="pls_toplabels" value="100"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

795 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

796 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

797 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

798 <param name="output_rdata" value="True"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

799 <output name="mzfeatures" file="features_test2.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

800 <output name="pixeloutput" file="pixels_test2.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

801 <output name="classification_images" file="test2.pdf" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

802 <output name="classification_rdata" file="test2.rdata" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

803 </test>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

804

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

805 <test expect_num_outputs="3">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

806 <param name="infile" value="testfile_squares.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

807 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

808 <param name="type_method" value="training"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

809 <param name="annotation_file" value= "random_factors.tabular" ftype="tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

810 <param name="column_x" value="1"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

811 <param name="column_y" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

812 <param name="column_response" value="4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

813 <param name="column_fold" value="3"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

814 <param name="tabular_header" value="False"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

815 <conditional name="method_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

816 <param name="class_method" value="OPLS"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

817 <conditional name="opls_analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

818 <param name="opls_method" value="opls_cvapply"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

819 <param name="opls_cvcomp" value="1:2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

820 <param name="xnew_cv" value="FALSE"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

821 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

822 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

823 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

824 <output name="mzfeatures" file="features_test3.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

825 <output name="pixeloutput" file="pixels_test3.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

826 <output name="classification_images" file="test3.pdf" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

827 </test>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

828

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

829 <test expect_num_outputs="4">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

830 <param name="infile" value="testfile_squares.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

831 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

832 <param name="type_method" value="training"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

833 <param name="annotation_file" value= "random_factors.tabular" ftype="tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

834 <param name="column_x" value="1"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

835 <param name="column_y" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

836 <param name="column_response" value="4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

837 <param name="tabular_header" value="False"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

838 <conditional name="method_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

839 <param name="class_method" value="OPLS"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

840 <conditional name="opls_analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

841 <param name="opls_method" value="opls_analysis"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

842 <param name="opls_comp" value="3"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

843 <param name="xnew" value="FALSE"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

844 <param name="opls_scale" value="FALSE"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

845 <param name="opls_toplabels" value="100"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

846 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

847 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

848 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

849 <param name="output_rdata" value="True"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

850 <output name="mzfeatures" file="features_test4.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

851 <output name="pixeloutput" file="pixels_test4.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

852 <output name="classification_images" file="test4.pdf" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

853 <output name="classification_rdata" file="test4.rdata" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

854 </test>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

855

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

856 <test expect_num_outputs="3">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

857 <param name="infile" value="testfile_squares.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

858 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

859 <param name="type_method" value="training"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

860 <param name="annotation_file" value= "pixel_annotation_file1.tabular" ftype="tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

861 <param name="column_x" value="1"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

862 <param name="column_y" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

863 <param name="column_response" value="3"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

864 <param name="column_fold" value="4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

865 <param name="tabular_header" value="False"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

866 <conditional name="method_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

867 <param name="class_method" value="spatialShrunkenCentroids"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

868 <conditional name="ssc_analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

869 <param name="ssc_method" value="ssc_cvapply"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

870 <param name="ssc_r" value="1:2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

871 <param name="ssc_s" value="2:3"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

872 <param name="ssc_kernel_method" value="adaptive"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

873 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

874 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

875 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

876 <output name="mzfeatures" file="features_test5.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

877 <output name="pixeloutput" file="pixels_test5.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

878 <output name="classification_images" file="test5.pdf" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

879 </test>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

880

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

881 <test expect_num_outputs="4">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

882 <param name="infile" value="testfile_squares.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

883 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

884 <param name="type_method" value="training"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

885 <param name="annotation_file" value= "random_factors.tabular" ftype="tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

886 <param name="column_x" value="1"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

887 <param name="column_y" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

888 <param name="column_response" value="4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

889 <conditional name="method_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

890 <param name="class_method" value="spatialShrunkenCentroids"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

891 <conditional name="ssc_analysis_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

892 <param name="ssc_method" value="ssc_analysis"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

893 <param name="ssc_toplabels" value="20"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

894 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

895 <param name="ssc_r" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

896 <param name="ssc_s" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

897 <param name="ssc_kernel_method" value="adaptive"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

898 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

899 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

900 <param name="output_rdata" value="True"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

901 <output name="mzfeatures" file="features_test6.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

902 <output name="pixeloutput" file="pixels_test6.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

903 <output name="classification_images" file="test6.pdf" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

904 <output name="classification_rdata" file="test6.rdata" compare="sim_size" />

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

905 </test>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

906

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

907 <test expect_num_outputs="4">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

908 <param name="infile" value="testfile_squares.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

909 <conditional name="type_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

910 <param name="type_method" value="prediction"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

911 <param name="training_result" value="test2.rdata" ftype="rdata"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

912 <conditional name="new_y_values_cond">

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

913 <param name="new_y_values" value="new_response"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

914 <param name="new_response_file" value="pixel_annotation_file1.tabular" ftype="tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

915 <param name="column_new_x" value="1"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

916 <param name="column_new_y" value="2"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

917 <param name="column_new_response" value="4"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

918 <param name="new_tabular_header" value="False"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

919 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

920 </conditional>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

921 <param name="output_rdata" value="True"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

922 <output name="mzfeatures" file="features_test7.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

923 <output name="pixeloutput" file="pixels_test7.tabular"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

924 <output name="classification_images" file="test7.pdf" compare="sim_size"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

925 <output name="classification_rdata" file="test7.rdata" compare="sim_size" />

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

926 </test>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

927 </tests>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

928 <help>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

929 <![CDATA[

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

930

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

931

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

932 @CARDINAL_DESCRIPTION@

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

933

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

934 -----

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

935

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

936 This tool provides three different Cardinal functions for supervised classification of mass-spectrometry imaging data.

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

937

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

938 @MSIDATA_INPUT_DESCRIPTION@

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

939 - For training: tabular file with condition and fold for each pixel: Two columns for pixel coordinates (x and y values); one column with the condition for the pixel, which will be used for classification; for the cross validation (cvapply) another column with a fold is necessary, each fold must contain pixels of all response groups and is used for cross validation. Condition and fold columns are treated as factor to perform discriminant analysis (also when numeric values are provided).

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

940

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

941 ::

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

942

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

943 x_coord y_coord condition fold

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

944 1 1 A f1

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

945 2 1 A f2

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

946 3 1 A f3

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

947 1 2 B f1

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

948 2 2 B f2

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

949 3 2 B f3

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

950 ...

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

951 ...

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

952

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

953

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

954 - For prediction: RData output from previous classification run is needed as input, optionally new response values can be loaded with a tabular file containing x values, y values and the response

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

955

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

956

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

957 **Options**

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

958

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

959 - PLS-DA: partial least square discriminant analysis

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

960 - O-PLS-DA: Orthogonal partial least squares discriminant analysis

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

961 - Spatial shrunken centroids

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

962

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

963 **Tips**

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

964

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

965 - The classification function will only run on files with valid intensity values (NA are not allowed)

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

966 - Only a single input file is accepted, several files have to be combined previously, for example with the msi_combine tool.

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

967

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

968

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

969 **Output**

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

970

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

971 - Pdf with the heatmaps and plots for the classification

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

972 - Tabular file with information on m/z features and pixels: toplabels/classes

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

973 - Optional: RData output that can be used to predict new data or to explore the results more deeply with the Cardinal package in R

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

974

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

975 ]]>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

976 </help>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

977 <expand macro="citations"/>

2fdbbb1be2b0 planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/cardinal commit 0825a4ccd3ebf4ca8a298326d14f3e7b25ae8415

galaxyp

parents:

diff changeset

978 </tool>

Mercurial > repos > galaxyp > cardinal_classification

annotate classification.xml @ 0:2fdbbb1be2b0 draft