R

显示值

getwd 看working directory
data<-read.csvv(file="sample.csv") 打开文件赋值给data
names(data) 显示数据分类名
data$HR_Rate 显示所有heart rate的值

直方图

hist(data$HR_RATE) 用heart 数据做直方图 ?hist 显示帮助（比如改直方图的lable） hist(data$HR_RATE.xlab="MC is crazy") 改lable
hist(data$HR_RATE.xlab="MC is crazy"main="this is a historam")增加直方图标题

name(data)
data$elasped_TIME<-NULL如果有个数据没用赋值为空删除掉
view(data)

决策树

library(party)
dt<-ctree(ACTIVITY_TRAIN~.,data)绘制决策树
plot(dt) 显示决策树
predictions<-predict(dt.data) 预测
predictions 显示预测
library(caret)
confusionmatrix(predictions.datasactivity_TRAIN)

write.csv(file="outclass.csv".data)
getwd()
fastHR<-which(data$HR_RATE>80) 大于80的赋值给fastRH fastHR data$HR_RATE(fastHR)