From 01addb00e52f4ca7641461860596e141db3c1b00 Mon Sep 17 00:00:00 2001 From: Marcel Costa Date: Sat, 5 Feb 2022 08:01:40 +0100 Subject: [PATCH] Correction of example. --- man/ggheatmap.Rd | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/man/ggheatmap.Rd b/man/ggheatmap.Rd index 39e8c3d..7d98aa4 100644 --- a/man/ggheatmap.Rd +++ b/man/ggheatmap.Rd @@ -17,7 +17,11 @@ Generates a heatmap using ggplot for a dataframe. \examples{ library(tidyverse) -df<-data.frame("pats"=paste0("PAT", 1:20), "CytA"=rnorm(20,5), "CytB"=rnorm(20,5),"CytC"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytD"=rnorm(20,5),"CytE"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytF"=rnorm(20,5),"CytG"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5))) %>% gather(Cyt, Value,-pats) +df<-data.frame("pats"=paste0("PAT", 1:20), "CytA"=rnorm(20,5), "CytB"=rnorm(20,5), +"CytC"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytD"=rnorm(20,5), +"CytE"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytF"=rnorm(20,5), +"CytG"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5))) +df<-gather(df, Cyt, Value,-pats) head(df) ggheatmap(df)