weixin_42099676的博客

1、更换标签的代码setwd("C:/Users/11565/Desktop")wbcd <- read.csv("knn数据集.csv",head = T,stringsAsFactors = FALSE)head(wbcd)attach(wbcd)range(diagonsis)table(diagonsis)i = 1for (i in 1:length(diagon...

'''神经网络需要的安装包是neuralnet包，RSNNS包在iris数据集里面随机抽取训练集和测试集'''data("iris")head(iris)library(neuralnet)ind <- sample(2,nrow(iris),replace = T,prob = c(0.7,0.3))trainset <- iris[ind == 1,]testse...

#在旗舰店商品表中的店铺ID转换成编号setwd("C:/Users/11565/Desktop/合并二")xqijian <- read.csv("旗舰店商品正确合并.csv",header = T)#读取旗舰店数据x3 <- read.csv("旗舰店店铺链接.csv",header = T)#读取店铺的id，即最后一天所有的旗舰店店铺IDx4 <- read.csv...

主要介绍tapply函数：每次只能求一列aggregate函数：每次按组可以求多列tapply(shuju[shuju[,3],shuju$year,mean)#以年份为组，求shuju表第三列的均值aggregate(shuju[,3:4],list(shuju[,2]),mean)#以年份为均值，求数据表第三列，第四列的均值...

setwd("C:/Users/11565/Desktop/合并二")shuju <- read.csv("数据.csv",header = T)library(psych)head(shuju)attach(shuju)head(mtcars)aggregate(shuju,by= list(state),FUN = mean,na.rm = T)tapply(shuju[,...

setwd("c:/users/11565/Desktop/合并二/可以用数据")taobao<-read.csv("淘宝直接做回归用的数据_1.csv",na.strings=" ",stringsAsFactors = F)#na.strings主要是讲空格转变成na值str(taobao)dim(taobao);names(taobao)attach(taobao)detac...

可以先列出提纲，也就是大框架，列框架时，须注意。if(){}else{}  表示先执行if括号后面的条件语句，如果正确就执行第一个大括号里的程序，如果错误就执行else后面大括号里的语句。    但是如果出现下面的情况就会报错：if{}else{}   也就是else语句没有在大括号的后面，这是r会认为if语句已经执行完毕，但执行else发现前面无法执行，else必须紧挨着if语句...