Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 168 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 182 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Couldn't connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 208 ms: Couldn't connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Couldn't connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 212 ms: Couldn't connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in 'T2DFitTailor-Ex.R' failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 3168 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 184 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 199 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 291 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in ‘T2DFitTailor-Ex.R’ failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 297 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in 'T2DFitTailor-Ex.R' failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 2958 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted
Running examples in 'T2DFitTailor-Ex.R' failed
The error most likely occurred in:

> ### Name: TailorExercisePlan
> ### Title: Visualize Tailored Exercise Plan for T2D Patients
> ### Aliases: TailorExercisePlan
> 
> ### ** Examples
> 
> 
> #Create a demo dataframe
> set.seed(5)
> df <- data.frame(
+   Age = sample(39:77, 8, replace = TRUE),
+   Sex = sample(0:1, 8, replace = TRUE),
+   BMI = sample(18:31, 8, replace = TRUE),
+   WHtR = sample(0.4:0.6, 8, replace = TRUE),
+   PCS = sample(27:54, 8, replace = TRUE),
+   Duration_T2D = sample(1:26, 8, replace = TRUE),
+   Total_cholesterol = sample(7.4:14.1, 8, replace = TRUE),
+   HDL = sample(1:1.7, 8, replace = TRUE),
+   LDL = sample(2.2:4.7, 8, replace = TRUE),
+   VO2_Max = sample(13:45, 8, replace = TRUE),
+   Lung_capacity = sample(1900:4600, 8, replace = TRUE),
+   Back_Scratch_Test = sample(-30:8, 8, replace = TRUE))
> 
> names(df) <- c('Age', 'Sex', 'BMI', 'WHtR', 'PCS', 'Duration_T2D (year)',
+               'Total cholesterol (mmol/L)', 'HDL (mmol/L)', 'LDL (mmol/L)',
+               'VO2_Max (ml/kg/min)', 'Lung_capacity (ml)', 'Back_Scratch_Test (cm)')
> rownames(df) <- c('Sample1', 'Sample2', 'Sample3', 'Sample4',
+                   'Sample5', 'Sample6', 'Sample7', 'Sample8')
> 
> # Run the TailorExercisePlan function
> demo_result <- TailorExercisePlan(df)
Note: Sample_ID and the rownames of input data correspond on a one-to-one basis.
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Could not connect to server [106.54.44.39]: Failed to connect to 106.54.44.39 port 5002 after 2917 ms: Could not connect to server
Calls: TailorExercisePlan ... request_fetch.write_memory -> <Anonymous> -> raise_libcurl_error
Execution halted