update

Dockerfile

@@ -11,6 +11,7 @@ RUN echo 'options(radiant.shinyFiles = FALSE)' >> /usr/local/lib/R/etc/Rprofile.
 COPY . /srv/shiny-server/
 COPY set_path.R /usr/local/lib/R/etc/Rprofile.site.d/00-radiant-path.R
 RUN echo 'source("/srv/shiny-server/radiant.model/R/coxp.R")' >> /usr/local/lib/R/etc/Rprofile.site
+Run echo 'load("/srv/shiny-server/data/test.state.rda")' >> /usr/local/lib/R/etc/Rprofile.site
 
 # 安装所有模块
 RUN R -e "remotes::install_local('/srv/shiny-server/radiant.data',dependencies=TRUE, type='source', upgrade='never',force=TRUE)"
@@ -22,7 +23,6 @@ RUN R -e "remotes::install_local('/srv/shiny-server/radiant.quickgen',dependenci
 RUN R -e "remotes::install_local('/srv/shiny-server/radiant-master',dependencies=TRUE, type='source', upgrade='never',force=TRUE)"
 
 WORKDIR /data
-RUN R -e "load('/data/test.state.rda')"
 CMD ["R", "-e", "radiant::radiant(host='0.0.0.0', port=3838)"]
 
 #docker images | grep radiant 查看镜像

data/avengers.csv

-name,alignment,gender,publisher
Thor,good,male,Marvel
Iron Man,good,male,Marvel
Hulk,good,male,Marvel
Hawkeye,good,male,Marvel
Black Widow,good,female,Marvel
Captain America,good,male,Marvel
Magneto,bad,male,Marvel
\ No newline at end of file

data/superheroes.csv

-name,alignment,gender,publisher
Magneto,bad,male,Marvel
Storm,good,female,Marvel
Mystique,bad,female,Marvel
Batman,good,male,DC
Joker,bad,male,DC
Catwoman,bad,female,DC
Hellboy,good,male,Dark Horse Comics
\ No newline at end of file

radiant-master/inst/translations/translation_zh.csv

@@ -1192,3 +1192,8 @@ Survival curves,生存曲线,coxp_ui.R
 Cumulative hazard,累积风险,coxp_ui.R
 Schoenfeld residuals,Schoenfeld残差图,coxp_ui.R
 Martingale residuals,鞅残差图,coxp_ui.R
+Decimal places:,小数位数：,svm_ui.R
+AI chat guidance,大模型对话引导助手,init.R
+One-click generation > AI chat guidance,一键生成 > 大模型对话引导助手,init.R
+Decision Boundary (2 vars),决策边界（两变量）,svm_ui.R
+Support Vectors & Margin(2 vars),支持向量与间隔（两变量）,svm_ui.R

radiant.model/DESCRIPTION

-Package: radiant.model
-Type: Package
-Title: Model Menu for Radiant: Business Analytics using R and Shiny
-Version: 1.6.7
-Date: 2024-10-7
-Authors@R: person("Vincent", "Nijs", , "radiant@rady.ucsd.edu", c("aut", "cre"))
-Description: The Radiant Model menu includes interfaces for linear and logistic
-    regression, naive Bayes, neural networks, classification and regression trees,
-    model evaluation, collaborative filtering, decision analysis, and simulation. 
-    The application extends the functionality in 'radiant.data'.
-Depends:
-    R (>= 4.3.0),
-    radiant.data (>= 1.6.6)
-Imports:
-    radiant.basics (>= 1.6.6),
-    shiny (>= 1.8.1),
-    nnet (>= 7.3.12),
-    NeuralNetTools (>= 1.5.1),
-    sandwich (>= 2.3.4),
-    car (>= 2.1.3),
-    ggplot2 (>= 3.4.2),
-    scales (>= 1.2.1),
-    data.tree (>= 0.7.4),
-    stringr (>= 1.1.0),
-    lubridate (>= 1.7.2),
-    tidyr (>= 0.8.2),
-    dplyr (>= 1.1.2),
-    tidyselect (>= 1.2.0),
-    rlang (>= 0.4.10),
-    magrittr (>= 1.5),
-    DiagrammeR (>= 1.0.9),
-    import (>= 1.1.0),
-    psych (>= 1.8.4),
-    e1071 (>= 1.6.8),
-    rpart (>= 4.1.11),
-    ggrepel (>= 0.8),
-    broom (>= 0.7.0),
-    patchwork (>= 1.0.0),
-    ranger (>= 0.11.2),
-    xgboost (>= 1.6.0.1),
-    pdp (>= 0.8.1),
-    vip (>= 0.3.2),
-    stringi,
-    yaml,
-    shiny.i18n
-Suggests:
-    testthat (>= 2.0.0),
-    pkgdown (>= 1.1.0)
-URL: https://github.com/radiant-rstats/radiant.model/,
-  https://radiant-rstats.github.io/radiant.model/,
-  https://radiant-rstats.github.io/docs/
-BugReports: https://github.com/radiant-rstats/radiant.model/issues/
-License: AGPL-3 | file LICENSE
-LazyData: true
-Encoding: UTF-8
-Language: en-US
-RoxygenNote: 7.3.2
+Package: radiant.model
+Type: Package
+Title: Model Menu for Radiant: Business Analytics using R and Shiny
+Version: 1.6.7
+Date: 2024-10-7
+Authors@R: person("Vincent", "Nijs", , "radiant@rady.ucsd.edu", c("aut", "cre"))
+Description: The Radiant Model menu includes interfaces for linear and logistic
+    regression, naive Bayes, neural networks, classification and regression trees,
+    model evaluation, collaborative filtering, decision analysis, and simulation. 
+    The application extends the functionality in 'radiant.data'.
+Depends:
+    R (>= 4.3.0),
+    radiant.data (>= 1.6.6)
+Imports:
+    radiant.basics (>= 1.6.6),
+    shiny (>= 1.8.1),
+    nnet (>= 7.3.12),
+    NeuralNetTools (>= 1.5.1),
+    sandwich (>= 2.3.4),
+    car (>= 2.1.3),
+    ggplot2 (>= 3.4.2),
+    scales (>= 1.2.1),
+    data.tree (>= 0.7.4),
+    stringr (>= 1.1.0),
+    lubridate (>= 1.7.2),
+    tidyr (>= 0.8.2),
+    dplyr (>= 1.1.2),
+    tidyselect (>= 1.2.0),
+    rlang (>= 0.4.10),
+    magrittr (>= 1.5),
+    DiagrammeR (>= 1.0.9),
+    import (>= 1.1.0),
+    psych (>= 1.8.4),
+    e1071 (>= 1.6.8),
+    rpart (>= 4.1.11),
+    ggrepel (>= 0.8),
+    broom (>= 0.7.0),
+    patchwork (>= 1.0.0),
+    ranger (>= 0.11.2),
+    xgboost (>= 1.6.0.1),
+    pdp (>= 0.8.1),
+    vip (>= 0.3.2),
+    stringi,
+    yaml,
+    survminer,
+    shiny.i18n
+Suggests:
+    testthat (>= 2.0.0),
+    pkgdown (>= 1.1.0)
+URL: https://github.com/radiant-rstats/radiant.model/,
+  https://radiant-rstats.github.io/radiant.model/,
+  https://radiant-rstats.github.io/docs/
+BugReports: https://github.com/radiant-rstats/radiant.model/issues/
+License: AGPL-3 | file LICENSE
+LazyData: true
+Encoding: UTF-8
+Language: en-US
+RoxygenNote: 7.3.2

radiant.model/NAMESPACE

@@ -20,6 +20,7 @@ S3method(plot,repeater)
 S3method(plot,rforest)
 S3method(plot,rforest.predict)
 S3method(plot,simulater)
+S3method(plot,svm)
 S3method(plot,uplift)
 S3method(predict,coxp)
 S3method(predict,crtree)
@@ -84,6 +85,7 @@ export(cv.crtree)
 export(cv.gbt)
 export(cv.nn)
 export(cv.rforest)
+export(cv.svm)
 export(dtree)
 export(dtree_parser)
 export(evalbin)

radiant.model/R/coxp.R

@@ -15,8 +15,6 @@ coxp <- function(dataset,
   
   if (!requireNamespace("survival", quietly = TRUE))
     stop("survival package is required but not installed.")
-  attachNamespace("survival") 
-  on.exit(detach("package:survival"), add = TRUE)
   
   ## ---- 公式入口 ----------------------------------------------------------
   if (!missing(form)) {

radiant.model/man/cv.svm.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/svm.R
+\name{cv.svm}
+\alias{cv.svm}
+\title{Cross-validation for SVM}
+\usage{
+cv.svm(
+  object,
+  K = 5,
+  repeats = 1,
+  kernel = c("linear", "radial"),
+  cost = seq(0.1, 10, by = 0.5),
+  gamma = seq(0.1, 5, by = 0.5),
+  seed = 1234,
+  trace = TRUE,
+  fun,
+  ...
+)
+}
+\description{
+Cross-validation for SVM
+}

radiant.model/man/plot.svm.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/svm.R
+\name{plot.svm}
+\alias{plot.svm}
+\title{Plot method for the svm function}
+\usage{
+\method{plot}{svm}(
+  x,
+  plots = "vip",
+  size = 12,
+  nrobs = -1,
+  incl = NULL,
+  incl_int = NULL,
+  shiny = FALSE,
+  custom = FALSE,
+  ...
+)
+}
+\description{
+Plot method for the svm function
+}

radiant.model/man/predict.svm.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/svm.R
 \name{predict.svm}
 \alias{predict.svm}
-\title{Predict method}
+\title{Predict method for the svm function}
 \usage{
 \method{predict}{svm}(
   object,
@@ -14,5 +14,5 @@
 )
 }
 \description{
-Predict method
+Predict method for the svm function
 }

radiant.model/man/print.svm.predict.Rd

@@ -2,10 +2,10 @@
 % Please edit documentation in R/svm.R
 \name{print.svm.predict}
 \alias{print.svm.predict}
-\title{Print predictions}
+\title{Print method for predict.svm}
 \usage{
 \method{print}{svm.predict}(x, ..., n = 10)
 }
 \description{
-Print predictions
+Print method for predict.svm
 }

radiant.model/man/scale_df.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/nn.R
+% Please edit documentation in R/nn.R, R/svm.R
 \name{scale_df}
 \alias{scale_df}
 \title{Center or standardize variables in a data frame}
 \usage{
+scale_df(dataset, center = TRUE, scale = TRUE, sf = 2, wts = NULL, calc = TRUE)
+
 scale_df(dataset, center = TRUE, scale = TRUE, sf = 2, wts = NULL, calc = TRUE)
 }
 \arguments{
@@ -23,5 +25,7 @@ scale_df(dataset, center = TRUE, scale = TRUE, sf = 2, wts = NULL, calc = TRUE)
 Scaled data frame
 }
 \description{
+Center or standardize variables in a data frame
+
 Center or standardize variables in a data frame
 }

radiant.model/man/summary.svm.Rd

@@ -2,10 +2,10 @@
 % Please edit documentation in R/svm.R
 \name{summary.svm}
 \alias{summary.svm}
-\title{Summary method}
+\title{Summary method for the svm function}
 \usage{
-\method{summary}{svm}(object, ...)
+\method{summary}{svm}(object, prn = TRUE, ...)
 }
 \description{
-Summary method
+Summary method for the svm function
 }

radiant.model/man/svm.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/svm.R
 \name{svm}
 \alias{svm}
-\title{Support Vector Machine using e1071}
+\title{Support Vector Machine}
 \usage{
 svm(
   dataset,
@@ -12,15 +12,10 @@ svm(
   lev = "",
   kernel = "radial",
   cost = 1,
-  gamma = "auto",
-  degree = 3,
-  coef0 = 0,
-  nu = 0.5,
-  epsilon = 0.1,
-  probability = FALSE,
+  gamma = 1,
   wts = "None",
-  seed = 1234,
-  check = NULL,
+  seed = NA,
+  check = "standardize",
   form,
   data_filter = "",
   arr = "",
@@ -29,5 +24,5 @@ svm(
 )
 }
 \description{
-Support Vector Machine using e1071
+Support Vector Machine
 }

radiant.model/man/varimp.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/nn.R
+% Please edit documentation in R/nn.R, R/svm.R
 \name{varimp}
 \alias{varimp}
 \title{Variable importance using the vip package and permutation importance}
 \usage{
+varimp(object, rvar, lev, data = NULL, seed = 1234)
+
 varimp(object, rvar, lev, data = NULL, seed = 1234)
 }
 \arguments{
@@ -18,5 +20,7 @@ varimp(object, rvar, lev, data = NULL, seed = 1234)
 \item{seed}{Random seed for reproducibility}
 }
 \description{
+Variable importance using the vip package and permutation importance
+
 Variable importance using the vip package and permutation importance
 }

radiant.model/man/varimp_plot.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/nn.R
+% Please edit documentation in R/nn.R, R/svm.R
 \name{varimp_plot}
 \alias{varimp_plot}
 \title{Plot permutation importance}
 \usage{
+varimp_plot(object, rvar, lev, data = NULL, seed = 1234)
+
 varimp_plot(object, rvar, lev, data = NULL, seed = 1234)
 }
 \arguments{
@@ -18,5 +20,7 @@ varimp_plot(object, rvar, lev, data = NULL, seed = 1234)
 \item{seed}{Random seed for reproducibility}
 }
 \description{
+Plot permutation importance
+
 Plot permutation importance
 }

radiant.quickgen/R/quickgen_ai.R

 # === 配置 ===
 MODELSCOPE_OPENAI_URL <- "https://api-inference.modelscope.cn/v1"
-MODELSCOPE_API_KEY    <- Sys.getenv("MODELSCOPE_API_KEY", "ms-6638b00e-57e4-4623-996d-214e375d220f")
+MODELSCOPE_API_KEY    <- Sys.getenv("MODELSCOPE_API_KEY", "ms-5b9f3668-ea8e-4a2c-8cd3-a1a9ba04810b")
 MODEL_ID              <- "deepseek-ai/DeepSeek-V3.1"
 
 # === 低层封装：单次对话 ===