| Groupplot.fn | R Documentation | 
function to plot the mean and error bar of sample entropy or the MFDFA results by group
Groupplot.fn(
  x,
  Average,
  GroupName,
  errorbar = NA,
  xRange = NA,
  yRange = NA,
  col = NA,
  pch = NA,
  Position = "topright",
  cex.legend = 0.75,
  xlab = "",
  ylab = "",
  main = ""
)
x | 
 a vector for x axis.  | 
Average | 
 Matrix for average in each group  | 
GroupName | 
 a vector of names for each group  | 
errorbar | 
 matrix for value of erorr bar  | 
xRange | 
 range for the x-axis  | 
yRange | 
 range for the y-axis  | 
col | 
 a vector for the colors to indicate groups  | 
pch | 
 a vector for points types to indicate groups  | 
Position | 
 position for the legend  | 
cex.legend | 
 cex for legend  | 
xlab | 
 a title for the x axis  | 
ylab | 
 a title for the y axis  | 
main | 
 main title for the plot  | 
No value returned
Zhang T, Dong X, Chen C, Wang D, Zhang XD. RespirAnalyzer: an R package for continuous monitoring of respiratory signals.
data("HqData")
PP_Hq <- HqData
filenames <- row.names(PP_Hq)
q <- -10:10
ClassNames <- c(substr(filenames[1:19], start = 1, stop = 3),
                substr(filenames[20:38], start = 1, stop = 5))
Class <- unique(ClassNames)
for (i in 1:length(q)){
  Data <- GroupComparison.fn(PP_Hq[,i],ClassNames)
  Result_mean_vec <- Data[,"Mean"]
  Result_sd_vec <- Data[,"SE"]
  if( i == 1 ) {
    Result_mean_mat <- Result_mean_vec
    Result_sd_mat <- Result_sd_vec
  } else {
    Result_mean_mat <- rbind(Result_mean_mat, Result_mean_vec)
    Result_sd_mat <- rbind(Result_sd_mat, Result_sd_vec)
 }
}
Groupplot.fn (q[1:10],Result_mean_mat[1:10,],Class,errorbar = Result_sd_mat[1:10,],
              xRange = NA, yRange = NA, col = NA, pch = rep(16,4), Position = "topright",
              cex.legend = 1, xlab="q",ylab="Hurst exponent",main = "")
Groupplot.fn (q[11:21],Result_mean_mat[11:21,],Class,errorbar = Result_sd_mat[11:21,],
              xRange = NA, yRange = NA, col = NA, pch = rep(16,4), Position = "topright",
              cex.legend = 1, xlab="q",ylab="Hurst exponent",main = "")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.