带包实现:
rm(list=ls()) setwd("C:/Users/Administrator/Desktop/R语言与数据挖掘作业/实验4-人工神经网络") Data=read.csv("sales_data.csv")[,2:5] library(nnet) colnames(Data)<-c("x1","x2","x3","y") model1=nnet(y~.,data=Data,size=6,decay=5e-4,maxit=1000) pred=predict(model1,Data[,1:3],type="class") (p=sum(as.numeric(pred==Data$y))/nrow(Data)) table(Data$y,pred) prop.table(table(Data$y,pred),1)
RK平台Android4.4 添加一个新的遥控器支持以及添加特殊按键【转】
C语言中函数strcpy ,strncpy ,strlcpy的用法【转】
对字符串进行加密解密
数字转IP地址函数
汉字转拼音函数
输出指定格式的数据列
在SQL SERVER中实现RSA加解密函数(第二版)
在SQL SERVER中实现RSA加解密函数(第一版)
无序字符比较函数