自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(8)
  • 收藏
  • 关注

原创 R语言实现KNN算法

KNN近邻分类随机抽取1/2的样本作为训练集,另外一半的样本作为测试集来验证模型的效果iris1<-irisset.seed(1234)利用caret包的createDataPartition函数按不同类别等比例抽取50%library(caret)ind <- createDataPartition(iris1$Species,times=1,p=0.5,list=F)traindata <-iris1[ind,] #构建训练集testdata <- iris1[

2020-10-20 19:51:42 6587

原创 JavaWeb jsp url 是中文

首先报错java.lang.IllegalArgumentException:Invalid character found in the request target.The valid characters are defined in RFC 7230 and RFC 3986我的错误是因为jsp文件{zhiye.companyid}是中文并且这个是从mysql数据库中读取的如果这个不是定义的主键也是会报错误的解决方案1在mysql数据库中解决设置主键2改变编码首先改变读入那的编码把

2020-10-16 19:08:03 142

原创 R语言对含有文字的CSV缺失值处理

首先我们职位的数据因为都是字符串类型然后发现R语言对字符串的空值会用””来补齐就不能检查缺失值我就采用which来查看缺失值的下标查看占比数量可以定用什么来补齐看图可以得可以用未知或NA来补齐了代码实现player <- read.csv(“abalone.csv”,T,encoding=“UTF-8”)head(player)str(player)sum(!complete.cases(player))player <- read.csv(“总体.csv”,T,enco

2020-10-16 18:58:13 1585

原创 处理数据失衡问题

首先看一组失衡数据:这组数据01比率严重失调这会对我们以后的预测值大大减小所以我们需要对它进行处理#进行失衡处理perc.over=100:表示少类别样本数=151+151*100%=302perc.under=200:表示多类样本数(新增少数样本数200%=151200%=302)hyper_new <- SMOTE(target~.,hyper,perc.over = 100,perc.under = 200)利用SOMTE函数可以对我们的两组数据进行处理最后会形成两组是1:1的

2020-09-24 17:52:43 455

原创 R语言DMwR报错问题

使用包DMwR的SOMTE函数报错Error in factor(newCases[, a], levels = 1:nlevels(data[, a]), labels = levels(data[, :invalid ‘labels’; length 0 should be 1 or 2此外: There were 21 warnings (use warnings() to see them)是因为自己的文件类型不是因子或者数字是这种类型所以在用那个函数之前要变换hyperV1=as.

2020-09-24 17:42:50 3823

原创 r语言的基础

数据类型##矩阵#创建矩阵m <- matrix(1:8, nrow = 2)#Q:按行创建矩阵m <- matrix(1:8,nrow= 2, byrow = T)mmatrix(c(1,5,2,6,3,7,4,8), nrow = 2) #byrow参数知识改变了数据的输入顺序,矩阵本身依然是按列存储#矩阵运算m1 <- matrix(1:4, nrow = 2)m2 <- matrix(2:7, nrow = 2)m1;m2m1 + m2m1 * m2

2020-09-24 17:36:56 267

原创 R语言列表

#列表#创建列表stu.lst <- list(name =c( “xiaoming”,“xiahua”), id=1001, is.past.exam = T)stu.lststu.lst2 <- list(“xiaoming”, 1001, T)#可以不给列表加标签stu.lst2new.l <- vector(mode = “list”)new.lnew.l[[“name”]] <- “xiaoming”new.l#列表的常规操作#列表索引stu.lst

2020-09-12 08:55:47 202

原创 R语言入门

R语言入门学习1 R语言环境包R下载官网官网:https://www.r-project.org/Rstudio下载官网:https://www.rstudio.com/注(下载的路径不要有中文的文件夹)2R语言空间管理函数3对于R语言工程的创建第一步File–>New Project–>在弹出的窗口选择路径即可–>getwd可以查看当前路径第二步创建R文件Ctrl +S可命名R文件夹当前文件会被存入一个".RDate"的文件夹3R语言的包library()

2020-09-06 08:38:08 1506

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除