| 
																	
																	
																	
																 | 
																@ -1,4 +1,4 @@ | 
															
														
														
													
														
															
																 | 
																 | 
																ggstats_add_xy_test<-function(table_stat, table, xcol=NULL, group, y="max", bracket.offset=0.05, bracket.inspace=0.05, exclude_group=NULL){ | 
																 | 
																 | 
																 | 
															
														
														
													
														
															
																 | 
																 | 
																 | 
																 | 
																 | 
																ggstats_add_xy<-function(table_stat, table, xcol=NULL, group, y="max", bracket.offset=0.05, bracket.inspace=0.05, exclude_group=NULL){ | 
															
														
														
													
														
															
																 | 
																 | 
																  ## Adapted version to fit rstatix output | 
																 | 
																 | 
																  ## Adapted version to fit rstatix output | 
															
														
														
													
														
															
																 | 
																 | 
																  value.var<-table_stat[[1,".y."]] | 
																 | 
																 | 
																  value.var<-table_stat[[1,".y."]] | 
															
														
														
													
														
															
																 | 
																 | 
																  if (is.null(xcol)){ | 
																 | 
																 | 
																  if (is.null(xcol)){ | 
															
														
														
													
												
													
														
															
																| 
																	
																		
																			
																		
																	
																	
																	
																 | 
																
 |