执行转换时出错.r工作室的魔术.如何解决此错误

Question

>将一些预测变量从整数更改为因子(制作假人(

chclass <-c("numeric","factor","factor","numeric","numeric","factor","factor","numeric","factor","numeric","factor","factor","factor","factor")
heart.data <- convert.magic(heart.data,chclass)

这是我尝试执行的代码，但我得到的错误是：

Error in convert.magic(heart.data,chclass):
   Could not find function "convert.magic"  

如何解决此错误？我已经安装了魔术包。

Answer 1

转换

预测变量值类所需的函数：

   convert.magic <- function(obj,types) 
   { for (i in 1:length(obj)) {  FUN
   <- switch(types[i],character = as.character,numeric =
   as.numeric,factor = as.factor) obj[,i] <- FUN(obj[,i]) }  obj }

   convert.names <- function(row){
     row=gsub("sex1", "male", row)
     row=gsub("thal7", "reversable defect thalassemia", row)
     row=gsub("thal6", "fixed defect thalassemia", row)
     row=gsub("cp4", "asymptomatic chest pain", row)
     row=gsub("cp3", "non-anginal chest pain", row)
     row=gsub("cp2", "atypical angina chest pain", row)
     row=gsub("oldpeak", "ST depression from exercise", row)
     row=gsub("thalach", "maximum heart rate achieved", row)
     row=gsub("trestbps", "resting blood pressure", row)
     row=gsub("ca2", "2 major vessels col/b fluoro., ca2", row)
     row=gsub("ca1", "1 major vessel col/b fluoro., ca1", row)
     row=gsub("slope2", "flat peak exercise ST segment", row)
     row=gsub("slope1", "upsloping peak exercise ST segment", row)
     row=gsub("slope3", "downsloping peak exercise ST segment", row)
     row=gsub("chol", "serum cholestoral", row)
     row=gsub("exang", "exercise induced angina", row)
     row=gsub("restecg2", "restec: showing left ventricular hypertrophy
                         by Estes criteria", row)
     row=gsub("restecg1", "restec: having ST-T wave abnormality", row)
     row=gsub("fbs1", "fasting blood sugar > 120 mg/dl", row)
     }

在 chclass 之前使用此函数。